> Cara lain ya lempar langsung ke portnya. Jadi direct. Kalo dulu
bikin
> Program pake pascal yg baca file teks trus isinya di print ke
printer.
> Jadi delphinya ngisi file teks, trus manggil program print yg gw
bikin
> pake pascal tadi.
>
> Ada yg punya cara lebih baik? Share donk.
>
> Kudanil.
Kalo saya pake yg spt ini, selama ini sih ngak pernah problem atau
ngaco tapi ngak tau apa bener DOS mode atau Windows. Tolong kasih tau
apakah sama spt assignprn ? Krn kata WinAPI sih kalo PASSTHROUGH itu
Allows the application to send data directly to a printer. Kalo ngak
berarti dikadalin ame Bill dong. Jadi bener kata quote dr Kang Jaim.
Kita itu terlampau enak pake komponen buatan org sehingga ngak bisa
apa-apa. Jadi musti belajar yg dalem lagi nih ampe tenggelem :)
procedure PrintDirect(sString: string);
type
TPrnBuffRec = record
BuffLength : word;
Buffer : array [0..255] of char;
end;
var
Buff : TPrnBuffRec;
begin
StrPCopy(Buff.Buffer, sString + Chr(10));
Buff.BuffLength := StrLen(Buff.Buffer);
Escape(Printer.Canvas.Handle, PASSTHROUGH, 0, @Buff, nil);
end;
procedure PrintComDirect(sString: string);
type
TPrnBuffRec = record
BuffLength : word;
Buffer : string[255];
end;
var
Buff : TPrnBuffRec;
begin
Buff.Buffer := sString;
Buff.BuffLength := Length(Buff.Buffer);
Escape(Printer.Canvas.Handle, PASSTHROUGH, 0, @Buff, nil);
end;
Salam,
Aris
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark
Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
