Печать Dos-файла в порт напрямуюDelphi , Файловая система , ПортыПечать Dos-файла в порт напрямуюАвтор: http://blackman.wp-club.net При печати Dos-файла в порт напрямую можно это сделать.
Например, напечатать за 2 прохода: var FileOut: TextFile; filename: string[128]; .... Filename := 'PRN'; AssignFile(Fileout, Filename); ... Write(FileOut, Chr(27) + '@'); Str1 := AnToAs(chr(27) + 'G' + 'Double' + chr(27) + 'H'); Writeln(FileOut, Str1); ... {преобразование Ansi to Ascii} function AnToAs(s: string): string; var i, kod: Integer; begin Result := s; for i := 1 to length(s) do begin kod := Ord(s[i]); if kod 13 then Result[i] := ' '; if (kod >= 192) and (kod = 239) then Result[i] := Chr(kod - 64); if (kod >= 240) and (kod = 255) then Result[i] := Chr(kod - 16); if kod = 168 then Result[i] := Chr(240); if kod = 184 then Result[i] := Chr(241); end; end; Статья Печать Dos-файла в порт напрямую раздела Файловая система Порты может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |