İnternetten bulduğum bir program ise devreyi çalıştırıyor acaba kodlarımda mı bir sorun var??
memo1 in textini hem 0001 hemde 00000001 yaptım ama olmadı...
yardımcı olursanız sevinirim.
Not:asm kodları NT tabanında çalışmıyor.
Ayrıca programımı çalıştırdığımda printer özelliklerinden verinin yollandığını görüyorum.
var
port_adi: array[0..80] of char;
str:string;
yazilan_bayt:dword;
ok:boolean;
lpthandle:thandle;
begin
port_adi:='lpt1';
lpthandle:=CreateFile(port_adi,generic_write,0,nil,open_existing,0,0);
if lpthandle=-1 then
begin
showmessage('Hata Port açilmadi');
exit;
end;
showmessage('veri yollanıyor');
str:=Memo1.Text;
ok:=writefile(lpthandle,str,length(str),yazilan_bayt,nil);
showmessage('Motor Dönmeli');
if not ok then
showmessage('VeriYAzılamadı');
CloseHandle(lpthandle);
exit;
end;
