Hola Amigos.
Estoy tratando de recivir por el serial port una data y llevarla a un edit.Pero no lo logro.
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, CPort, StdCtrls;
type
TForm1 = class(TForm)
ComPort1: TComPort;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure ComPort1ReceiveCallBack(Data: String);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Comport1.Connected:=true;
Comport1.WriteStr(#2#0);
end;
procedure TForm1.ComPort1ReceiveCallBack(Data: String);
begin
Edit1.Text:=(Data);
end;
end.
Que esta mal aqui?
Un Saludo.