Ver Mensaje Individual
  #5  
Antiguo 12-12-2008
Avatar de fenixariel
fenixariel fenixariel is offline
Miembro
 
Registrado: mar 2007
Posts: 77
Reputación: 18
fenixariel Va por buen camino
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;

Última edición por fenixariel fecha: 05-02-2009 a las 01:57:11.
Responder Con Cita