Group: it.comp.lang.delphi · Group Profile · Search for setserial in it.comp.lang.delphi
Author: Marco Ferlini
Date: Mar 3, 2008 22:32
... begin sSt:= SkyeTek_CreateDevice('COM1',pSkyDev); Memo1.Lines.Add('Create Device: '+GetStatus(sSt)); end else Memo1.Clear; if pSkyRdr=nil then begin // SetSerial pSkySer:= nil; SkyDev:= pSkyDev^; sSt:=SkyeTek_GetSerialOptions(SkyDev,SkySer); Memo1.Lines.Add('Get Serial Options: '+GetStatus(sSt)); SkySer.baudRate:=38400; SkySer....
|