unit1.pas

delphi写的简单udp传输

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

TMyThread=class(TThread)
  protected
    procedure execute;override;
  end;

var
  Form1: TForm1;
  ServerSocket:TSocket;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
    aWSAData:TWSAData;
begin
    if WSAStartup($0101,aWSAData)<>0 then
    begin
        MessageBox(handle,'初始化socket动态连接库失败！','提示',mb_ok);
        exit;
    end;

    ServerSocket:=socket(PF_INET,SOCK_DGRAM,IPPROTO_IP);
    if ServerSocket=INVALID_SOCKET then
    begin
        MessageBox(Form1.handle,'创建客户端套接字失败!','提示',mb_ok);
    end
    else
        Form1.memo1.Lines.Add('创建客户端套接字成功!');



    TMyThread.Create(false); 
end;

procedure TMyThread.execute;
var
    RecvLen:integer;//收到流的长度
    ca:SOCKADDR_IN;
    buf:array of char;
    ss:TStringStream;
    i:integer;
    str:string;
begin


    ca.sin_family :=AF_INET;
    ca.sin_port:=htons(10000);
    ca.sin_addr.S_addr:=INADDR_ANY;

    bind(ServerSocket,ca,sizeof(ca));

    i:=sizeof(ca);
    while not terminated do
    begin
        recvLen:=recvfrom(ServerSocket,buf,sizeof(buf),0,ca,i);
        ss:=TStringStream.Create('');
        ss.Write(buf,recvLen);
        ss.Seek (0,0);

        Form1.Memo1.Lines.Add(Inet_Ntoa(ca.sin_addr)+':  '+ss.DataString  );

        ss.Free;
    end;
end;

end.