• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

使用winsock Api实现finger_Delphi

Delphi 搞代码 3年前 (2018-08-09) 150次浏览 已收录 0个评论

在编制Winsocket程序的时候,要有一些必要的步骤:
1、初始化Winsock动态连接库;

2、建立一个Winsock对象。

3、连接主机。

4、和主机进行数据交流。

5、关闭Socket对象

http://www.gaodaima.com/?p=65850使用winsock Api实现finger_Delphi

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.
如果有什么问题,请联系 [email protected] (杭州电子工业学院)

欢迎大家阅读《使用winsock Api实现finger_Delphi,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址