Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
procedure
TForm1.Button1Click(Sender: TObject); var
port, prnfile: file
; buffer: array
[1..128] of
Char; Read
: Integer; begin
// Specify a file to print
AssignFile(prnfile, 'filetoprint');
Reset(prnfile, 1);
// specify printer port
AssignFile(port, 'LPT1');
Rewrite(port, 1);
repeat
BlockRead(prnfile, buffer, SizeOf(buffer), Read
); BlockWrite(port, buffer, Read
);
// Application.ProcessMessages;
until
EOF(prnfile) or
(Read
<> SizeOf(buffer)); CloseFile(prnfile); CloseFile(port); end
;