udptester2.pas

针对 UDP 通讯协议的 Socket 构件

unit Udptester2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, udpSocket;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    udpSocket1: TudpSocket;
    Label4: TLabel;
    procedure udpSocket1Error(msg: String; num: Integer);
    procedure udpSocket1CloseSocket(sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure udpSocket1Receive(sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  first:boolean;
implementation

{$R *.DFM}

procedure TForm1.udpSocket1Error(msg: String; num: Integer);
begin
label4.caption:=msg+ ' '+inttostr(num);
if num = 10048 then begin
showmessage('Only one copy of this application can be run on a computer!');
close;
end;
end;

procedure TForm1.udpSocket1CloseSocket(sender: TObject);
begin
label4.caption:='Socket Closed';

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
udpsocket1.Location:=edit3.text;
udpsocket1.SendString(edit1.text);
edit1.text:='';

end;

procedure TForm1.udpSocket1Receive(sender: TObject);
var
h:Thostabout;
s:string;
begin
h:=udpsocket1.ReadString(s);
edit2.text:=s;
label4.caption:='message received from '+h.IP_dotdot;
application.Restore;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
if first then udpsocket1.S_Open;
first:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
first:=true;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
application.Minimize;
end;

end.