Winsock编程实例

unit   testEchoMain;

interface

uses
    Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,
    Winsock,   ExtCtrls,   StdCtrls,   ComCtrls;

type
    TfrmMain   =   class(TForm)
        edtSend:   TEdit;
        Label1:   TLabel;
        btnSend:   TButton;
        edtPort:   TEdit;
        edtHostIP:   TEdit;
        Label4:   TLabel;
        Label3:   TLabel;
        Bevel1:   TBevel;
        edtEcho:   TEdit;
        Label5:   TLabel;
        btnConnect:   TButton;
        btnDisConnect:   TButton;
        StatusBar1:   TStatusBar;
        procedure   FormCreate(Sender:   TObject);
        procedure   FormDestroy(Sender:   TObject);
        procedure   btnConnectClick(Sender:   TObject);
        procedure   btnDisConnectClick(Sender:   TObject);
        procedure   btnSendClick(Sender:   TObject);

    private
        {   Private   declarations   }
    public
        {   Public   declarations   }
    end;

var
    frmMain:   TfrmMain;
    socket1:TSocket;

implementation

{$R   *.DFM}

procedure   TfrmMain.FormCreate(Sender:   TObject);
var
        WSAData:TWSAData;
begin
        //初始化Socket
        if   (WSAStartup(MAKEWORD(2,0),WSAData) <> 0)   then
        begin
                //初始化失败
                StatusBar1.SimpleText:= 'Init   Failed ';
                exit;
        end
        else
                StatusBar1.SimpleText:= 'Init   Success ';
end;

procedure   TfrmMain.FormDestroy(Sender:   TObject);
begin
          //释放winsock
          WSACleanUP();
end;

procedure   TfrmMain.btnConnectClick(Sender:   TObject);
var
        SocketAddr:TSockAddr;
        Re:Integer;
begin
        //建立socket
        socket1:=socket(AF_INET,SOCK_STREAM,0);
        if(socket1=INVALID_SOCKET)then
        begin
                StatusBar1.SimpleText:= '错误：建立socket失败 ';
                exit;
        end;
        //连接主机
        ZeroMemory(@SocketAddr,sizeof(SocketAddr));
        SocketAddr.sin_family   :=AF_INET;
        SocketAddr.sin_addr.s_addr   :=inet_addr(Pchar(edtHostIP.Text));
        SocketAddr.sin_port:=htons(StrToInt(edtPort.Text));
        Re   :=   connect(socket1,SocketAddr,sizeof(SocketAddr));
        if(Re <> 0)then
        begin
                  StatusBar1.SimpleText:= '连接服务器失败 ';
                  exit;
        end;
        //连接主机成功
        StatusBar1.SimpleText:= '连接主机成功 ';
end;

procedure   TfrmMain.btnDisConnectClick(Sender:   TObject);
var
        re,err:integer;
        info:string;
begin
        //   关闭
        re:=closesocket(socket1);
        //   判断关闭socket结果
        if   re=SOCKET_ERROR   then
        begin
                err:=WSAGetLastError();
                case   err   of
                        WSANOTINITIALISED:info:= '请先调用WSAStartup ';
                        WSAENETDOWN:info:= '网络子系统失败 ';
                        WSAENOTSOCK:info:= '描述符不是socket对象 ';
                        WSAEINPROGRESS:info:= 'Socket忙 ';
                        WSAEINTR:info:= '通过WSACancelBlockingCall取消操作 ';
                        WSAEWOULDBLOCK:info:= '超时值过大 ';
                end;
        end
        else
                Info:= '成功关闭socket ';
        StatusBar1.SimpleText:=info;
end;

procedure   TfrmMain.btnSendClick(Sender:   TObject);
var
        Info:string;
        BufSend,BufRecv:pchar;
        Re:Integer;
begin
        //发送消息
        GetMem(BufSend,1024);
        ZeroMemory(BufSend,1024);
        Info:=edtSend.Text;
        StrPCopy(BufSend,Info);
        Re:=send(socket1,BufSend^,Length(BufSend),0);
        if(Re=SOCKET_ERROR)then
        begin
                  StatusBar1.SimpleText:= '发送数据失败 ';
                  exit;
        end;                              
        //接收消息
        GetMem(BufRecv,1024);
        ZeroMemory(bufRecv,1024);
        re   :=   recv(socket1,   BufRecv^,   1024,   0);
        Info:=StrPas(bufRecv);
        edtEcho.Text:=Info;
        //释放pchar变量
        FreeMem(BufSend);
        FreeMem(BufRecv);
end;

end.