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

當(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)下載排行

主站蜘蛛池模板: 国产乱插 | 色在线影院| www.国产嫩草在线观看 | 国内精品国语自产拍在线观看91 | 天天拍天天操 | 欧美疯狂xxxx乱大交视频 | 91在线视频免费看 | 免看黄 | 亚洲欧美日韩精品久久亚洲区 | 亚洲午夜久久久精品影院视色 | 欧美一级爱爱 | 亚洲精品一区二区蜜桃 | 中文字幕一区二区三区四区五区人 | 24小时日本影院www | 国产精品免费视频一区二区三区 | 天天碰天天操 | 天天舔天天舔 | 日本jjzzz| 欧美日韩一区二区综合在线视频 | 亚洲黄色性视频 | 中文字幕一区二区三区久久网站 | 日韩18视频在线观看 | 91高清免费国产自产拍2021 | 亚洲成人高清在线 | 久久99亚洲综合精品首页 | 免费99精品国产自在现线观看 | 国产精品嫩草影院奶水 | 精品伊人网 | 欧美激情αv一区二区三区 欧美激情第1页 | fc2成本人免费视频 fenfencao在线观看免费视频 | www.夜夜操.com| 亚洲欧美高清 | 男人黄女人色视频在线观看 | 国产成人影院在线观看 | 特级无码毛片免费视频尤物 | 国产粉嫩粉嫩的18在线播放91 | 国产精品国产三级国产普通话对白 | 日本乱人伦免费播放 | 91新网址 | 不卡中文一二三区 | 日本一区二区三区四区视频 |