main.pas

红外通讯套件IrD Socket

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WSocket, WIrCOMMSocket;

type
  TfrmGSMTest = class(TForm)
    WIrSocket: TWIrCOMMSocket;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    cbxCommand: TComboBox;
    Label1: TLabel;
  
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure WIrSocketDataAvailable(Sender: TObject; Error: Word);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmGSMTest: TfrmGSMTest;

implementation

{$R *.dfm}


procedure TfrmGSMTest.Button1Click(Sender: TObject);
begin
  if WIrSocket.GetConnectedDevices.Count > 0 then begin
      WIrSocket.irDeviceID := WIrSocket.GetConnectedDevices.Items[0].irdaDeviceID;
      WIrSocket.Connect;
     end;
end;

procedure TfrmGSMTest.Button2Click(Sender: TObject);
begin
  WIrSocket.SendStr(cbxCommand.Text +#13);
end;

procedure TfrmGSMTest.WIrSocketDataAvailable(Sender: TObject;
  Error: Word);
var
 buffer: String;
begin
   SetLength(buffer, 2048);
   SetLength(buffer, WIrSocket.Receive(@buffer[1], 2048));
   memo1.Lines.Add(buffer)
   //add to line
end;

end.