![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
Печать Dos-файла в порт напрямуюDelphi , Файловая система , ПортыАвтор: 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; Программный код на Delphi, который выводит файл DOS напрямую в порт сериального устройства. Код использует компонент Обзор кода:
Функция
Функция В статье описывается способ печати Dos-файла в порт напрямую, используя команды ESC @, ESC G и ESC H, а также программный код на языке Pascal для преобразования Ansi-вывода в Ascii. Комментарии и вопросыПолучайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |