Mega Code Archive
Yazıcıya doğrudan baskı gönderme işlemi
<![CDATA[
Codec By GeNiUS !
genius@turkiye.com
unit Esc1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses
Printers;
{$R *.DFM}
{ "PASSTHROUGH" yapısını belirle }
type TPrnBuffRec = record
BuffLength : word;
Buffer : array [0..255] of char;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Buff : TPrnBuffRec;
TestInt : integer;
s : string;
begin
{ "PASSTHROUGH" işleminin desteklendiğinden emin ol }
TestInt := PASSTHROUGH;
if Escape(Printer.Handle,
QUERYESCSUPPORT,
sizeof(TestInt),
@TestInt,
nil) > 0 then
begin
{ Baskıyı başlat }
Printer.BeginDoc;
{ Doğrudan gönderilecek metni hazırla }
s := ' Test satırı ';
{ Mtni Buffer'a kopyala }
StrPCopy(Buff.Buffer, s);
{ Buffer uzunluğunu ayarla }
Buff.BuffLength := StrLen(Buff.Buffer);
{ Gönder}
Escape(Printer.Canvas.Handle,
PASSTHROUGH,
0,
@Buff,
nil);
{ Baskıyı bitir }
Printer.EndDoc;
end;
end;
end.
]]>