在编制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(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 (杭州电子工业学院） |