[Solved] Get AT Command result to TMemo with synapse
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
Mujie · 2010-07-07 14:03

Hi,
I'm currently try to make a simple app with synapse. My problem is,
how I get the AT command result (capture result) likes Hyperterminal
does to the TMemo ? Thanks for your help

----------------------------------------------------------------------
theo · 2010-07-07 14:44

Memo1.Text:=AtCommand(..
?

----------------------------------------------------------------------
Mujie · 2010-07-07 16:20

Take a look at this code (taken from synapse/synazer example) :

Code: [Select]procedure TForm1.Button1Click(Sender: TObject);
var
  ser: TBlockSerial;
begin
  ser:=TBlockSerial.Create;
  try
    ser.Connect('COM19');
    ser.Config(460800,8,'N',0,false,true);
    ser.ATCommand('AT');
  if (ser.LastError <> 0) or (not ser.ATResult) then
      Exit;
  if (ser.LastError <> 0) or (not ser.ATResult) then
      Exit;
  finally
    ser.Free;
  end;
end;


How to get and show the result to the TMemo ?

----------------------------------------------------------------------
Mujie · 2010-07-07 17:31

Arrggghhh n00b of me, its solved now. Sorry for bothering you Theo.

Here it is the working code :

Code: [Select]procedure TForm1.Button1Click(Sender: TObject);
var
  ser: TBlockSerial;
begin
  ser:=TBlockSerial.Create;
  try
    ser.Connect('COM19');
    ser.Config(9600,8,'N',0,false,false);
    Memo1.Lines.Text:=ser.ATCommand(Edit1.Text);
  finally
    ser.free;
  end;
end;

----------------------------------------------------------------------
LazaruX · 2010-07-07 20:37

This may help you too http://activexperts.com/xmstoolkit/atcommands/

----------------------------------------------------------------------
Mujie · 2010-07-08 13:04

Wow thanks a million BPsoftware