Hi,
I wish to use synaser to capture text sent to a serial port. I do not
have a test facilty at the moment, so I need a little help to make sure
I am going in the right direction.
The basic code I have is as follows.
code----------------------------------
{$MODE DELPHI}
Program testser;
uses
synaser, sysutils;
var
ser:TBlockSerial;
LCMD:String;
begin
ser:=TBlockserial.Create;
try
ser.RaiseExcept:=True;
ser.Connect('COM1');
ser.Config(9600,8,'N',0,false,false);
with ser do
begin
repeat
if terminated then break;
LCMD := RecvString(1000);
if lastError<>0 then break;
writeLn('LCMD');
if lastError<>0 then break;
until false;
end;
finally
ser.Free;
end;
end.
End of code----------------------------------
Does this look OK?
If not, how should I do this?
Lloydie T
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
