Bueno en particular para varias aplicaciones compare el componente de la Async Pro con el SerialNG, los 2 son buenos pero prefiero el ultimo.-
para comenzar a usar el Async Pro puedes usar un Edit, un Button y un memo y el componente. En el Evento OnTriggerAvail
Código Delphi
[-]
procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
I : Word;
C : String;
begin
Memo1.Lines.Add('RECIBIDO :');
for I := 1 to Count do
begin
C := C + ApdComPort1.GetChar; end;
Memo1.Lines.Add(C); Memo1.Lines.Add('')
end;
y en el evento onClick del Button:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
ApdComPort1.Output:=Edit1.Text;
with Memo1 do
begin
Lines.Add('____________________');
Lines.Add('ENVIADO :');
Lines.Add(Edit1.Text);
Lines.Add('')
end;
end;