Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Comport1.Connected:=true;
Comport1.WriteStr('0200');
Comport1.Connected:=False;
end;
end.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Comport1.Connected:=true;
Comport1.WriteStr('0200');
Comport1.Connected:=False;
end;
end.

Código Delphi [-]
Comport1.WriteStr(#2#0);

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
    { Private declarations }
  public
    { Public declarations }
  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.

Código Delphi [-]
Temperatura:=Ord(Data[1]);

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
Comport1.Connected:=true;
Comport1.WriteStr(#2#0);
end;

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
Comport1.Connected:=true;
Comport1.WriteStr(#2#0);
end;

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
   Comport1.Connected:=true;
   Comport1.WriteStr(#2);
   Sleep(12);
   Comport1.WriteStr(#0);
end;

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
   Comport1.Connected:=true;
   Comport1.WriteStr(#2);
   Sleep(120);
   Comport1.WriteStr(#0);
   Sleep(256);
end;

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
begin
  ApdSLController1.Monitoring := True;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ApdComport1.Open := False;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ApdComPort1.PutString(#2#0);
end;

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);beginComport1.Connected:=true;Comport1.WriteStr(#2#0);end;

Código Delphi [-]
procedure TForm1.ComPort1ReceiveCallBack(Data: String);
begin
  Edit1.Text:=(Data);
end;

Código Delphi [-]
 
 procedure TForm1.ComPortRxChar(Sender: TObject; Count:Integer);
 var
   Str: String;
 begin
   
   ComPort.ReadStr(Str, Count);
   Memo.Text := Memo.Text + Str;
 end;

Código Delphi [-]
procedure AddHexString(S : String; Lines : TStrings );
var AddS, HexS, CopyS : String;
    i : Integer;
const SLen = 8;
begin
  while Length(S) > 0 do
    begin
      AddS := Copy(S,1,SLen);
      HexS := '';
      Delete(S,1,SLen);
      for i := 1 to SLen do
        begin
          CopyS := Copy(AddS,i,1);
          if CopyS <> '' then
            HexS := HexS + ' ' + Format('%2.2x',[Byte(CopyS[1])]) //
          else
            HexS := HexS + '   ';
        end;
       while Length(AddS) < SLen do
         AddS := AddS + ' ';
       for i := 1 to SLen do
         case AddS[i] of
           #0..#31 : AddS[i] := '.';
           #127    : AddS[i] := '.';
         end;
       Lines.Add(HexS+' : '+AddS);
    end;
end;

Código Delphi [-]
 procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
 ComPort.ReadStr(Str, Count);
 AddHexString(Str,Memo.Lines);
end;

Código Delphi [-]
 
If PalabraMagica = 'Hi-LOGIC' then
   ShowMessage('Ya estamos conectados')
else ShowMessage('Ya nos la pellizcamos');

Código Delphi [-]
 
Const
    Nulo = #0; 
    SOH = #1;
    // Estas son laas señales que yo utilizo con mas frecuencia.
    STX = #2;
    EXT = #3;
    EOT = #4;
    ENQ = #5;
    ACK = #6;
    NAK = #21;

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CPort, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    ComPort1: TComPort;
    procedure Button1Click(Sender: TObject);
    procedure ComPortRxChar(Sender: TObject; Count: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure AddHexString(S : String; Lines : TStrings );
var AddS, HexS, CopyS : String;
    i : Integer;
const SLen = 8;
begin
  while Length(S) > 0 do
    begin
      AddS := Copy(S,1,SLen);
      HexS := '';
      Delete(S,1,SLen);
      for i := 1 to SLen do
        begin
          CopyS := Copy(AddS,i,1);
          if CopyS <> '' then
            HexS := HexS + ' ' + Format('%2.2x',[Byte(CopyS[1])]) //
          else
            HexS := HexS + '   ';
        end;
       while Length(AddS) < SLen do
         AddS := AddS + ' ';
       for i := 1 to SLen do
         case AddS[i] of
           #0..#31 : AddS[i] := '.';
           #127    : AddS[i] := '.';
         end;
       Lines.Add(HexS+' : '+AddS);
    end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 Comport1.Connected:=true;
  Comport1.WriteStr(#2#0);
end;
 procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
 ComPort1.ReadStr(Str, Count);
   If Str= 'Hi-LOGIC' then
   ShowMessage('Ya estamos conectados')
else ShowMessage('Ya nos la pellizcamos');
end;
end.

Código Delphi [-]
var Cadena: string;
ComPort.ReadStr(Str,Count);
Cadena := Cadena + Str;

Código Delphi [-]
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
begin
  ComPort1.ReadStr(Str,Count);
  Cadena := Cadena + Str;
  if Cadena = 'Hi-LOGIC' then begin
     ShowMessage('Ya estamos conectados');
     Cadena := ''; 
  end;
end;

Código Delphi [-]
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
     ComPort.ReadStr(Str, Count);
       AddHexString(Str,Memo.Lines);
     if length(Str)>= 8 then
    if Str = 'Hi-LOGIC' then
      showmessage('¡OK! ¡ES ORIGINAL!')
    else
      showmessage('¡HORROR!, ¡ES PIRATA!');
end;