Delphi idtcpserver/client 用法
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Delphi idtcpserver/client 用法相关的知识,希望对你有一定的参考价值。
请教各位Delphi中idtcpserver和idtcpclient的用法,直接给代码是不给分的哦。
请如下叙述:
服务器端:
1、设置端口
2、设置端口可用
3、创建线程类
4、在XX事件中监听接收?
客户端:
1、设置服务器IP
2、设置服务器端口
3、和服务器连接(Connected)
4、如何发送消息?(靠什么事件?)
貌似TCP/IP就这么连吧,我当中肯定少了很多东西,比如线程,在线程中接收数据什么的,这些步骤我都不知道。
直接给代码的话请加注释,无注释的代码不好看,而且我想知道的是编代码具体的步骤。
比如写delphi串口的话就是:
1、设置波特率
2、设置数据位
3、设置……(设置所有参数,记得是6个?)
4、在接收事件中写接收代码(ReceiveData事件)
PS:我用的是D7
2.阻塞方式的通信方式虽然"笨"点,但当一个"笨"办法有效,那它就不是一个笨办法.
3.由于是Tcp方式的连接,可靠性高了很多,而且使得内网连接也可靠了许多.
一.关于组件的一般无错处理和应用
虽然IdTcpClient没有Execute事件,但可以用线程的办法解决,这个网上很多
TClientHandleThread = class(TThread)
private
servercmd:integer;
procedure HandleInput;
protected
procedure Execute; override;
end;
再在主窗口定义一全局变量
ClientHandleThread: TClientHandleThread;
两个过程:
procedure TClientHandleThread.Execute;
begin
while not Terminated do
begin
if not fmclient.cTcpC.Connected then
Terminate
else
try
servercmd:=fmclient.cTcpC.Socket.ReadInteger;
Synchronize(HandleInput);
except
end;
end;
end;
procedure TClientHandleThread.HandleInput;
begin
case servercmd of
....
else
end;
end;
在Client连接时创建线程
if ClientHandleThread<>nil then ClientHandleThread.Terminate;
try
ctcpc.Connect;
if ctcpc.Connected then begin
ClientHandleThread := TClientHandleThread.Create(True);
ClientHandleThread.FreeOnTerminate:=True;
ClientHandleThread.Resume;
end;
except
ctcpc.Disconnect;
end;
在Client的DisConnected事件中释放线程
ClientHandleThread.Terminate;
IdTcpServer在还有Client连接时要断开可不是件容易事,网上对它也作了些讨论,但没什么结果,在本人的使用过程中,可以用以下方法解决
1.当然是释放所有Connection
一般在Server中都会用一个ListView来登记登录进来的Client,我是这样来释放的
i:=clist.Items.Count-1;
while i>=0 do begin
TIdContext(clist.Items[i].Data).Connection.Disconnect;
dec(i);
end;
try
ctcps.Contexts.UnlockList;
ctcps.Active:=false;
except
end;
2.后续无错处理
这样还没有完,因为一定会在DisConnected事件中有若干代码,而关闭不成功的主要原因我猜测不是来自于IdTcpServer本身,而是这些后续代码引起的.所以这步很有必要.
例如:
在Form的Close事件中让IdTcpServer.Tag=-1
在DisConnected中
If IdTcpServer.Tag<0 then exit;
1.Client对Server的数据传输
这个简单的很,基本上可以用一问一答的方式来作比方(阻塞方式的优点啊).
Client用Socket来喊话,它的Write方法很有意思,可以Write多种类型的数据,当然,都是定长或可以判断出长度的类型,而服务器的Execute事件就能用AContext.Connection.IOHandler的各种Read方法来读出相应的内容.
由于是阻塞状态,所以所有的操作都可以在一次Server的Execute事件中完成,哪怕是传输大文件.而在这个Execute的对话中,不会触发Client的监视线程!这个尤其重要.
2.Server对Client的数据传输
与其说是数据传输,事实上不如说是指令传输.这是在服务器主动的方式下进行的一次性指令传输.注意,与Client对Server交流不同,服务器的所有内容必须在这一次传输中进行完毕!也就是说,这次传输必须是:指令+数据大小+数据内容。 参考技术A 不需要创建线程,连接的时候已经带线程了。
type
PCClient=^TClient;
TClient=record
DNS: String[20];
LVData: Pointer;
Connected,
LastAciton : TDateTime;
Thread :Pointer;
end;
在Connection的事件里这么写
GetMem(NewClient, SizeOf(TClient));
NewClient.DNS := AThread.Connection.LocalName;
NewClient.LVData := lvUserList.Items.Item[lvUserList.Items.Count - 1].Data;
NewClient.Connected := Now;
NewClient.LastAciton := NewClient.Connected;
NewClient.Thread := AThread;
AThread.Data:=TObject(NewClient);
try
Clients.LockList.Add(NewClient);
finally
Clients.UnlockList;
AThread.Connection.WriteLn(WELCOME_STR);
end;
可以获得客户端列表本回答被提问者采纳 参考技术B indy server低层代码已经有创建线程了,你可以省掉。client的话,你一定要自建一个线程。在那个线程里面定时地收,发数据。
indy一般是用线程,同步(即阻塞)的方式收发数据。
你要发数据,就调用发的过程,要收数据就调用收的过程。
跟据不同的协议类型,调用不同的函数。
设置端口地址的话,只是设属性而已。你摸一下就知道了。创建线程,你注意一下释放,和同其它线程的数据交互就行了。收发的话就是一个过程。
你找一下demo看一下就行了。
Delphi IdTCPClient IdTCPServer 点对点传送文件
https://blog.csdn.net/luojianfeng/article/details/53959175
客户端向另一个客户端传送文件,不通过服务端中转
那一个很重要的点是,这个客户端也要放一个IdTCPServer,也就是说这个客户端既是客户端,当接收文件的时候也是服务端,必须相应其它客户
端对它的连接,这个时候客户端相当与服务端,好了,明白这个道理就好办了
A客户端(放一个IdTCPClient控件,发送文件)
procedure TFormFileSend.FormShow(Sender: TObject);//连接到服务端,同时自己变成服务端
begin
//自己变成服务端
IdTCPServer1.Bindings.Clear;
IdTCPServer1.Bindings.Add.IP:=‘192.168.252.1‘;
IdTCPServer1.Bindings.Add.Port:=8831;
IdTCPServer1.Active:=true;
if IdTCPServer1.Active then
begin
Memo1.Lines.Add(‘服务器已启动‘);
end
else
begin
Memo1.Lines.Add(‘服务器已停止‘);
end;
//连接到服务端
IdTCPClient1.Host:=FormMain.host;//‘192.168.252.1‘;
IdTCPClient1.Port:=StrToInt(FormMain.port);//8829;
if IdTCPClient1.Connected then
IdTCPClient1.Disconnect;
Try
IdTCPClient1.Connect;
IdTCPClient1.WriteLn(FormMain.qm+‘|‘+FormMain.bh);
except
MessageBox(Handle,‘服务器没有开启‘,‘提示‘,MB_OK);
Exit;
end;
loading();//连接到服务端,显示上线的客户端
end;
procedure TFormFileSend.loading();
var
Node: TTreeNode;
begin
RzCheckTree1.Items.Clear;
sleep(500);//这里一定要延时,不然下面的数据明明有,但是读不出来, 2016-12-31
with ADOQuery2 do
begin
SQL.Clear;
SQL.Add(‘select a.ip,a.bh,a.qm,c.qm as bm from ipdz a left join zy b on a.bh=b.bh left join bm c on b.szbm=c.bh ‘);
Open;
while not Eof do
begin
Node := RzCheckTree1.Items.AddChild(nil,FieldByName(‘qm‘).AsString+‘(‘+FieldByName(‘bm‘).AsString+‘)‘+FieldByName(‘ip‘).AsString);
Node.Data:=strnew(PChar(FieldByName(‘ip‘).AsString));
Next;
end;
end;
end;
procedure TFormFileSend.SpeedButton1Click(Sender: TObject);//发送文件
var
iFileHandle:integer;
iFileLen,cnt:integer;
buf:array[0..4096] of byte;
i: integer;
zt:Boolean;
begin
if Edit1.Text=‘‘ then
begin
ShowMessage(‘请选择要上传的文件‘);
Exit;
end;
zt:=False;
for i:=0 to RzCheckTree1.Items.Count - 1 do
begin
if RzCheckTree1.ItemState[i] = cschecked then
begin
zt:=True;
end;
end;
if zt=False then
begin
Application.MessageBox(‘请选择接收人!‘,‘提示‘,64);
exit;
end;
for i:=0 to RzCheckTree1.Items.Count - 1 do
begin
if RzCheckTree1.ItemState[i] = cschecked then
begin
IdTCPClient2.Host:=PChar(RzCheckTree1.Items.Item[i].Data);
IdTCPClient2.Port:=8831;
if IdTCPClient2.Connected then
IdTCPClient2.Disconnect;
Try
IdTCPClient2.Connect;
except
Memo1.Lines.Add(RzCheckTree1.Items.Item[i].Text+‘不在线‘);
continue;
end;
iFileHandle:=FileOpen(Edit1.Text,fmOpenRead);
iFileLen:=FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
ProgressBar1.Max:=iFileLen;
ProgressBar1.Position := 0;
IdTCPClient2.WriteLn(ExtractFileName(Edit1.Text)+‘|‘+IntToStr(iFileLen));
while true do
begin
Application.ProcessMessages;
cnt:=FileRead(iFileHandle,buf,4096);
IdTCPClient2.WriteBuffer(buf,cnt);
ProgressBar1.Position:=ProgressBar1.Position + cnt;
Memo1.Lines.Add(‘正在传送文件...‘+DateTimeToStr(Now));
if cnt<4096 then
break;
end;
FileClose(iFileHandle);
Memo1.Lines.Add(‘文件传送完成!‘+DateTimeToStr(Now));
end;
end;
end;
procedure TFormFileSend.SpeedButton5Click(Sender: TObject);//取消发送
var
i:Integer;
begin
FileClose(iFileHandle);
IdTCPClient2.Disconnect;
for i:=0 to RzCheckTree1.Items.Count - 1 do
begin
if RzCheckTree1.ItemState[i] = cschecked then
begin
IdTCPClient2.Host:=PChar(RzCheckTree1.Items.Item[i].Data);
IdTCPClient2.Port:=8831;
if IdTCPClient2.Connected then
IdTCPClient2.Disconnect;
Try
IdTCPClient2.Connect;
except
Memo1.Lines.Add(RzCheckTree1.Items.Item[i].Text+‘不在线‘);
continue;
end;
IdTCPClient2.WriteLn(‘取消发送‘);
IdTCPClient2.Disconnect;
end;
end;
//Sleep(500);
Memo1.Lines.Add(‘取消文件发送‘+DateTimeToStr(Now));
end;
B客户端(要放一个IdTCPServer控件,相当于服务端接收)
procedure TFormFileSend.IdTCPServer1Execute(AThread: TIdPeerThread);
var
rbyte:array[0..4096] of byte;
sFile:TFileStream;
cmd,FileSize:integer;
str,FileName:string;
begin
if not AThread.Terminated and AThread.Connection.Connected then //注意这里
begin
with AThread.Connection do
begin
Try
str:=AThread.Connection.ReadLn;
if POS(‘|‘,str)>0 then
begin
cmd:=pos(‘|‘,str); //查找分隔符
FileName:=copy(str,1,cmd-1); //提取文件名
FileSize:=StrToInt(copy(str,cmd+1,Length(str)-cmd+1)); //提取文件大小
if MessageBox(0,Pchar(‘您有文件 "‘+FileName+‘" 您是接受还是拒绝?‘),‘文件接受‘,MB_YesNo or MB_ICONQUESTION)=ID_Yes
then //询问是否接收
begin
ProgressBar1.Max:=FileSize div 100; //初始化进度条
ProgressBar1.Position:=0;
SaveDialog1.FileName:=FileName; //指定保存的默认文件名,一定要在 SaveDialog1.Execute;之前,不然文件名为空
SaveDialog1.Execute;
sFile:=TFileStream.Create(SaveDialog1.FileName,fmCreate); //创建待写入的文件流
While FileSize>4096 do
begin
Application.ProcessMessages;
AThread.Connection.ReadBuffer(rbyte,4096);// 读取文件流
ProgressBar1.Position:=ProgressBar1.Position + (4096 div 100); //更新显示进度
Memo1.Lines.Add(‘正在接收文件中...‘+DateTimeToStr(Now));
sFile.Write(rByte,4096); //写入文件流
inc(FileSize,-4096);
end;
AThread.Connection.ReadBuffer(rbyte,FileSize);// .ReadBuffer(rbyte,iLen);
sFile.Write(rByte,FileSize);
sFile.Free;
Memo1.Lines.Add(‘文件接收完成!‘+DateTimeToStr(Now));
end;
end;
Finally
//Disconnect;//断开连接
end;
end;
end;
end;
以上是关于Delphi idtcpserver/client 用法的主要内容,如果未能解决你的问题,请参考以下文章
Delphi IdTCPClient IdTCPServer 点对点传送文件
Delphi组件indy 10中IdTCPServer修正及SSL使用心得
Delphi XE10 IdTCPClient和IdTCPServer 通讯编码规则写法(Indy 10)(编码乱码)
Delphi XE10 IdTCPClient和IdTCPServer 通讯编码规则写法(Indy 10)(编码乱码)