Lalu dibuatlah program percobaan sederhana menggunakan FPC 2.6.0 dan beberapa function dari Windows API. Awalnya sama saja dengan ketika melakukan percobaan di PHP, yaitu timing untuk membaca tak bisa sinkron dengan RtS dari device. Diselidiki... dicari... dan terus mencari hingga seharian. Ternyata masalahnya harus menggunakan teknik overlapped reading/writing. Tetapi masih saja belum saja berhasil, selidiki lagi..., selidiki lagi..., selidiki terus...., dan ketemu juga. Overlapped harus menggunakan timeout, kalau tidak maka percuma saja karena ketika reading dari port tidak akan menunggu input masuk.
Hehehe... setelah setting overlapped dan timeout, JRENG.... berhasil deh. Data masuk dan bisa diolah. Di bawah ini adalah sourcenya, atau bisa download di: http://sites.google.com/site/karuniaprojects/documents/magread.pas
Berikutnya coba porting ke PHP, pastinya menggunakan library Windows dan command linux stty. Hmm... tantangan.
uses crt,windows;
const
bfsize=4096;
var
comhnd:handle;
evtwr:toverlapped;
evtrd:toverlapped;
tmo:_commtimeouts;
dcb:_dcb;
procedure comwrite(st:string);
var
ln:dword;
written:dword;
begin
setcommmask(comhnd,ev_rxchar);
ln:=length(st);
written:=0;
writefile(comhnd,st[1],ln,written,@evtwr);
repeat until getoverlappedresult(comhnd,evtwr,written,true);
end;
function comread:string;
type
tbuffer=array[0..bfsize-1] of char;
var
buffer:^tbuffer;
readed:dword;
st:string;
begin
purgecomm(comhnd,purge_rxclear);
setcommmask(comhnd,ev_rxchar);
getmem(buffer,bfsize);
write('data buffer: ');
writeln(sizeof(buffer^));
readfile(comhnd,buffer^,bfsize,readed,@evtrd);
repeat until getoverlappedresult(comhnd,evtrd,readed,true);
write('data readed: ');
writeln(readed);
readln;
setlength(st,readed);
move(buffer^,st[1],readed);
freemem(buffer);
comread:=st;
end;
procedure init();
begin
clrscr;
evtwr.offset:=0;
evtwr.offsetHigh:=0;
evtwr.hevent:=createevent(nil,true,false,nil);
if(evtwr.hevent=0) then begin
writeln('failed create write event');
halt;
end;
evtrd.offset:=0;
evtrd.offsetHigh:=0;
evtrd.hevent:=createevent(nil,true,false,nil);
if(evtwr.hevent=0) then begin
writeln('failed create read event');
closehandle(evtwr.hevent);
halt;
end;
comhnd:=createfile(
pchar('\\.\COM2'),
generic_read or generic_write,0,nil,open_
existing,file_attribute_normal or file_flag_overlapped,0
);
setcommmask(comhnd,ev_rxchar);
setupcomm(comhnd,bfsize,bfsize);
purgecomm(comhnd,
purge_txabort or purge_rxabort or purge_txclear or purge_rxclear
);
// timeout
tmo.readintervaltimeout:=300;
tmo.readtotaltimeoutmultiplier:=1000;
tmo.readtotaltimeoutconstant:=300;
tmo.writetotaltimeoutmultiplier:=2;
tmo.writetotaltimeoutconstant:=0;
setcommtimeouts(comhnd,@tmo);
// comm state
dcb.dcblength:=sizeof(dcb);
getcommstate(comhnd,@dcb);
dcb.baudrate:=9600;
dcb.bytesize:=8;
dcb.parity:=noparity;
dcb.stopbits:=1;
setcommstate(comhnd,@dcb);
// okeh
escapecommfunction(comhnd,setdtr);
end;
procedure done();
begin
comwrite(#27#48);
setcommmask(comhnd,0);
escapecommfunction(comhnd,clrdtr);
purgecomm(comhnd,purge_txabort or purge_rxabort or purge_txclear or purge_rxclear);
closehandle(comhnd);
closehandle(evtwr.hevent);
closehandle(evtrd.hevent);
exitcode:=0;
end;
procedure run();
begin
//comwrite(#27#48);
comwrite(#27#66#84#27#106);
writeln('read track command sended, hit return!');
readln;
writeln('waiting input...');
writeln(comread);
readln;
//comwrite(#27#66#84#27#106);
//readln;
end;
begin
init;
run;
done;
end.
