使用winsockApi实现finger.docVIP

使用winsock Api实现finger 在编制Winsocket程序的时候，要有一些必要的步骤： 1、初始化Winsock动态连接库； 2、建立一个Winsock对象。 3、连接主机。 4、和主机进行数据交流。 5、关闭Socket对象 6、释放Winsoket动态链接库。 下面是一个使用winsock Api实现finger实现的源程序：在Delphi6中调试通过。 unit finger; interface 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(Re0)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:=r