Direct Printing Dengan Delphi

Biar tidak terjadi kesalahpahaman, direct printing yang saya maksud adalah, suatu proses cetak/print secara langsung(direct) ke LPT (Port Printer), khususnya Teks yang di print menggunakan Printer Dotmatrix

Tujuannya adalah untuk kecepatan proses print, yang seringnya diimplementasikan untuk cetak struk/nota, maupun laporan(Text Base Reporting).

Lebih jelasnya, lihat gambar berikut:

'

Diatas merupakan contoh direct printing melalui Command Prompt Windows System.

Bagaimana jika dilakukan melalui pemrograman Delphi?

Ya, Command diatas disimpan dalam batch file ( .cmd / .bat ),
terus batch file tersebut dijalankan di Delphi perintah ShellExecute(), bisa kan.

Dengan cara itu bisa dilakukan, tapi disini kita akan coba implementasikan secara internal(tidak melalui perantara batch-file)

Perhatikan prosedure kode ini:

	procedure TextPrint(lst:TStringList);
	var
	F: TextFile;
	begin
	AssignFile(F,'LPT1');
	Rewrite(F);
	Write(F,lst.Gettext);
	CloseFile(F);
	end;
	//pemanggilan prosedur
	procedure TForm1.btn3Click(Sender: TObject);
	var
	infoNota : TStringlist;
	begin
	infoNota := TStringList.Create;
	try
	infoNota.Add('isinya teks, asumsi nota');
	infoNota.Add('isinya baris kedua');
	infoNota.Add('isinya baris ketiga, dst...');
	TextPrint(infoNota);
	finally
	infoNota.Free;
	end;
	end;

view raw code.snippet.textprint.pas hosted with ❤ by GitHub

Contoh diatas diatas akan mencetak semua teks(string) yang ada di dalam variabel infoNota(TStringlist).


Nah, anda lebih suka yang mana?