使用winsockApi实现finger


在编制Winsocket程序的时候，要有一些必要的步骤：
1、初始化Winsock动态连接库；
2、建立一个Winsock对象。
3、连接主机。
4、和主机进行数据交流。
5、关闭Socket对象
6、释放Winsoket动态链接库。
下面是一个使用winsock Api实现finger实现的源程序：在delphi6中调试通过。
unit finger;
inte易做图ce
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,winsock, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    edtHost: TEdit;
    btnFinger: TButton;
    edtUser: TEdit;
    memInfo: TMemo;
    procedure btnFingerClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnFingerClick(Sender: TObject);
var
        Info:string;//服务器返回的用户信息
        BufSend,BufRev:pChar;//中间信息
        skt:TSOCKET;//创建Socket对象
        addr:TSockAddr;//地址信息
        Re:Integer;
begin
        //1、建立Socket
        skt:=socket(AF_INET,SOCK_STREAM,0);
        if(skt=INVALID_SOCKET)Then
        begin
                memInfo.Lines.Add(Error:Create Winsock Failed);
                exit;
        end;
        //2、连接主机
        ZeroMemory(@addr,sizeof(addr));
        Addr.sin_family:=AF_INET;
        Addr.sin_addr.S_addr:=inet_addr(Pchar(edtHost.Text));
        //开放79端口
        addr.sin_port:=htons(79);
        Re:=connect(skt,addr,sizeof(addr));
        if(Re<>0)then
        begin
                memInfo.Lines.Add(Connect to Server Failed!);
                exit;
        end;
        //3、发送信息
        GETMem(BufSend,1024);
        ZeroMemory(BufSend,1024);
        Info:=edtUser.Text+#10;
        StrPCopy(BufSend,info);
        Re:=Send(skt,Bufsend^,Length(BufSend),0);
        if(Re=SOCKET_ERROR)then
        begin
                memInfo.Lines.Add(Send Data Failed!);
                exit;
        end;
        //5、读取主机返回信息
        GetMem(BufRev,1024);
        Repeat
                ZeroMemory(BufRev,1024);
                re:=recv(skt,BufRev^,1024,0);
                Info:=Strpas(bufRev);
                memInfo.Lines.Add(Info);
        Until re=0;
        memInfo.Lines.Add(FINISH!);
        FreeMem(BufSend);
        FreeMem(BufRev);
        //6、关闭socket连接
        closesocket(skt);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
        WSAData:TWSAData; //是TWSAData类型的变量，系统把加载的版本信息添加到这个结构中
begin
//初始化Winsock
        if(WSAStartup(MAKEWORD(2,0),WSAData)<>0)then
        begin
                //初始化失败
                memInfo.Lines.Add(Winsock Init Failed!);
                exit;
        end
        else
        memInfo.Lines.Add(Winsock Start!);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
        WSACleanUP();
end;
end.
如果有什么问题，请联系     qiujianben@163.com (杭州电子工业学院）

补充：软件开发 , Delphi ,