Ayuda componente para RS232

[fenixariel]

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; // Aqui puede tomar estos valores para sus nesecidades
      //Memo1.Lines.Add(C); // Habilitar esto para mostrar byte por byte
    end;
    Memo1.Lines.Add(C); // Habilitar esto para mostrar como cadena
    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;