Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Нужен пример печати на матричный принтер по сети

DmiSb © (2006-04-19 14:18:00)
На локальный принтер очень хорошо печатается следующим образом:

var
Handle: THandle;
N: DWORD;
DocInfo1: TDocInfo1;
begin
OpenPrinter(PChar(PrinterName), Handle, nil);
with DocInfo1 do begin
pDocName := PChar('test doc');
pOutputFile := nil;
pDataType := 'RAW';
end;
StartDocPrinter(Handle, 1, @DocInfo1);
StartPagePrinter(Handle);
....
WritePrinter(Handle, PChar(S), Length(S), N);
....
EndPagePrinter(Handle);
EndDocPrinter(Handle);
ClosePrinter(Handle);

Но на сетевой расшаренный принтер так почемуто не печатает.

Slym (2006-04-21 13:47:00) [1]
hfile:=CreateFile('\\Server\printer',...);
WriteFile(hfile, PChar(S), Length(S),...);
CloseFile(hfile);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »