日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當(dāng)前位置:雨林木風(fēng)下載站 > 技術(shù)開發(fā)教程 > 詳細(xì)頁面

運(yùn)用winsock Api完成finger

運(yùn)用winsock Api完成finger

更新時(shí)間:2022-05-10 文章作者:未知 信息來源:網(wǎng)絡(luò) 閱讀次數(shù):

在編制Winsocket程序的時(shí)候,要有一些必要的步驟:
1、初始化Winsock動(dòng)態(tài)連接庫;

2、建立一個(gè)Winsock對(duì)象。

3、連接主機(jī)。

4、和主機(jī)進(jìn)行數(shù)據(jù)交流。

5、關(guān)閉Socket對(duì)象

6、釋放Winsoket動(dòng)態(tài)鏈接庫。

下面是一個(gè)使用winsock Api實(shí)現(xiàn)finger實(shí)現(xiàn)的源程序:在delphi6中調(diào)試通過。

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;//服務(wù)器返回的用戶信息
BufSend,BufRev:pChar;//中間信息
skt:TSOCKET;//創(chuàng)建Socket對(duì)象
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、連接主機(jī)
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、發(fā)送信息
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、讀取主機(jī)返回信息
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、關(guān)閉socket連接
closesocket(skt);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
WSAData:TWSAData; //是TWSAData類型的變量,系統(tǒng)把加載的版本信息添加到這個(gè)結(jié)構(gòu)中
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.
如果有什么問題,請(qǐng)聯(lián)系 qiujianben@163.com (杭州電子工業(yè)學(xué)院)

溫馨提示:喜歡本站的話,請(qǐng)收藏一下本站!

本類教程下載

系統(tǒng)下載排行

主站蜘蛛池模板: 综合激情在线 | 天天想天天干 | 香蕉福利久久福利久久香蕉 | 250pp亚洲情艺中心在线 | 欧美性猛交xxxx乱大交蜜桃 | 欧美激情一区二区三级高清视频 | 国产精品一区高清在线观看 | 在线观看视频日本 | 伊人激情久久综合中文字幕 | 6969精品视频在线观看 | 国产在线观看网站 | 亚洲欧美在线看 | 97精品国产高清在线看入口 | www.日本高清视频 | 日本怡红 | 日韩中文字幕网 | 色综合久久伊人 | 日本高清wwww免费视频 | 日韩大片免费观看视频播放 | 亚洲精品久久中文字幕 | 边接电话边做国语高清对白 | 色日韩在线 | 成人日批 | 国产一级毛片在线 | 欧美干色 | 日本久草视频 | 亚洲男人影院 | 最新国产三级在线观看不卡 | 日本色综合| 亚洲国产精品一区二区久 | 人人射人人干 | 浮力草草影视 | 欧美videos超乳巨大人妖 | 中国护士一级毛片免费版本 | 日韩另类在线 | 亚洲国产欧美日韩精品一区二区三区 | 国产精品综合视频 | 99热久久这里只精品国产 | 欧美一级在线 | 亚洲欧美日韩精品中文乱码 | 特级黄色视频毛片 |