Наши преимущества

двухстороння печать в deplhi как ?!

Если у тебя Delphi for .NET, см. книгу Петцольд "Программирование Windows Forms на C#". Там как раз и написано про классы .NET, которые можно вызывать без различно, на каком языке C# или Paskal

Эл. копия существует в интернете.
 
Var
H: THandle;
DM: PDeviceMode;
begin
Printer.GetPrinter(DeviceName, DriverName, PortName, H);
//В принципе, может потребоваться работа с памятью под структуру DEVMODE.
//Смотри подробнее в MSDN в топике "HOWTO: Modify Printer Settings with the DocumentProperties() Function"
DM:=GlobalLock(H);
try
if (DM.dmFields and DM_DUPLEX) then //Если принтер поддерживает дуплекс
begin
DM.dmDuplex:=DMDUP_HORIZONTAL; //Режим дуплекса
end;
finally
GlobalUnlock(H);
end;
end;

А часто лучше просто дать пользователю возможность установить дуплекс в диалоге настройки принтера.
 
ploki сказал(а):
Var
H: THandle;
DM: PDeviceMode;
begin
Printer.GetPrinter(DeviceName, DriverName, PortName, H);
//В принципе, может потребоваться работа с памятью под структуру DEVMODE.
//Смотри подробнее в MSDN в топике "HOWTO: Modify Printer Settings with the DocumentProperties() Function"
DM:=GlobalLock(H);
try
if (DM.dmFields and DM_DUPLEX) then //Если принтер поддерживает дуплекс
begin
DM.dmDuplex:=DMDUP_HORIZONTAL; //Режим дуплекса
end;
finally
GlobalUnlock(H);
end;
end;

А часто лучше просто дать пользователю возможность установить дуплекс в диалоге настройки принтера.
Нажмите, чтобы раскрыть...

Чем иницилизить (DeviceName, DriverName, PortName) ?
 
Инициализировать нужно при вызове SetPrinter :).
А при вызове GetPrinter эти параметры - выходные, то есть это ссылки на буфера, заполняемые системой.
DeviceName - название принтера (например - 'Epson EPL-5700'),
DriverName - обычно 'WINSPOOL',
APort - в WIN32 это nil.
 
на GetPrinter Delphi делает rise exception и падает :(
Printer.GetPrinter(<name>, 'WINSPOOL', nil, H);
 
Повторяю (наверное плохо объяснил :( ), эти параметры - выходные, то есть это ссылки на буфера, заполняемые системой.
Например:

var
ADeviceName, ADriver, APort: array[0..100] of Char;
ADeviceMode: THandle;
...
begin
Printer.GetPrinter(ADeviceName, ADriver, APort, ADeviceMode);
...
 
Для ответа нужно войти/зарегистрироваться
Верх