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

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

主站蜘蛛池模板: 一本岛高清v不卡免费一三区 | 日本道色 | 久9久9精品视频在线观看 | 欧美日韩国产在线观看 | 中文字幕在线一区 | 一区二区三区免费在线 | 97精品国产高清久久久久蜜芽 | 国产成人一区二区三区视频免费蜜 | 夜夜想夜夜爽天天爱天天摸 | 日韩一品在线播放视频一品免费 | 国产成人免费在线观看 | 国产欧美在线观看视频 | 成年午夜视频 | 日本精品久久久久中文字幕 1 | 91免费在线看 | 亚洲五月六月丁香激情 | 99蜜臀噜噜噜在线视频观看 | 日本一级毛片免费播 | 竹菊影视一区二区三区 | 欧美国产在线视频 | 高清视频在线播放ww | 在线国产小视频 | 国产爽视频 | 免费视频国产 | 国产精品糟蹋漂亮女教师 | 青青久久国产成人免费网站 | 999精品久久久中文字幕蜜桃 | 夜色福利久久久久久777777 | 亚洲免费中文字幕 | 在线视频 日韩 | 99久热在线精品视频观看 | 清纯唯美亚洲综合日韩第 | 国产 在线 | 日韩 | 亚洲激情视频 | 亚洲高清国产一线久久 | 国产精品第二页在线播放 | 欧美成人黄色小说 | 成人浮力影院免费看 | 欧美成 人激情视频 | 九九啪啪 | 亚洲高清国产一区二区三区 |