Delphi idtcpserver/client 用法是啥?

Posted 2023-04-29

在Client连接时创建线程即可。

一、Client用Socket来喊话,它的Write方法很有意思,可以Write多种类型的数据,当然,都是定长或可以判断出长度的类型,而服务器的Execute事件就能用AContext.Connection.IOHandler的各种Read方法来读出相应的内容。

二、指令传输.这是在服务器主动的方式下进行的一次性指令传输.注意,与Client对Server交流不同,服务器的所有内容必须在这一次传输中进行完毕!也就是说,这次传输必须是：指令+数据大小+数据内容。

三、在DisConnected事件中有若干代码,而关闭不成功的主要原因我猜测不是来自于IdTcpServer本身,而是这些后续代码引起的。

四、在Server中都会用一个ListView来登记登录进来的Client,我是这样来释放i:=clist.Items.Count-1;while i>=0 do beginTIdContext(clist.Items[i].Data).Connection.Disconnect。

参考技术A

服务端发送:

var

iFileHandle:integer;

iFileLen,cnt:integer;

buf:array[0..4096] of byte;

=======================================================

客户端接收：

procedure TForm1.Button1Click(Sender: TObject);

var

rbyte:array[0..4096] of byte;

sFile:TFileStream;

iFileSize:integer;

IdTCPClient1.ReadBuffer(rbyte,iFileSize);// .ReadBuffer(rbyte,iLen);

sFile.Write(rByte,iFileSize);

sFile.Free;

ShowMessage('file get ok!');

end;

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Delphi XE IdTCPClient1 和 IdTCPServer1 数据的发送与接收（indy10）

Delphi XE  IdTCPClient1 和 IdTCPServer1 数据的发送与接收（indy10）

1、IdTCPClient1 端 发送数据

1.1 发送结构体：

//定义结构体
TMData = record
      id:Integer;
      Name:Array[0..20] of Char;
      Age:Byte;
      UpdateTime:double;
  end;

//发送
procedure TForm2.Button2Click(Sender: TObject);
var
  SendD: TMData;
begin
  SendD.ID := 10;
  StrPCopy(SendD.Name, ‘Delphi 您好‘);
  SendData.age := 18;
  SendD.UpdateTime := Now;
  IdTCPClient1.IOHandler.Write(#100); //提前发送一个标识符，用于区分数据
  IdTCPClient1.IOHandler.Write(RawToBytes(SendD, SizeOf(SendD)));
end;

1.2 发送TStrings类型

procedure TForm2.Button3Click(Sender: TObject);
var
   sList:TStrings;
   I:Integer;
begin
  sList := TStringList.Create;
  for I :=0  to 50 do
  begin
    sList.Add(‘数据Test‘ + IntToStr(i));
  end;
  IdTCPClient1.IOHandler.Write(#200);　　
  IdTCPClient1.IOHandler.Write(sList.Count);
  IdTCPClient1.IOHandler.Write(ToBytes(sList.Text,TIdTextEncoding.UTF8));
end;

1.3 发送一行字符串数据

procedure TForm2.Button4Click(Sender: TObject);
begin
  IdTCPClient1.IOHandler.Write(#10);
  IdTCPClient1.IOHandler.Write(‘Delphi测试‘,TIdTextEncoding.UTF8);  
end;

　　

2、IdTCPServer端 接收数据：

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
   RData:TMData;
   buf:TIdBytes;
   sCmd:Char;
   sList:TStrings;
   I:Integer;
   ListCount:Integer;
begin
   sCmd := AContext.Connection.IOHandler.ReadChar;  //先读取Char结构数据
   if sCmd = #100 then  //接收结构体
   begin
     AContext.Connection.IOHandler.ReadBytes(buf,SizeOf(RData));
     BytesToRaw(buf, RData, SizeOf(RData));
     with Memo1.lines do begin
       Add(‘ID:‘+Inttostr(RData.Id));
       Add(‘Name:‘+StrPas(RData.Name));
       Add(‘Age:‘+Inttostr(ReadData.age));
       Add(‘UpdateTime:‘+DateTimeToStr(RData.UpdateTime));
     end;
   end else if sCmd = #200 then  //接收 TStrings
   begin
      ListCount := AContext.Connection.IOHandler.ReadLongInt;  //ReadLongInt
      sList := TStringList.Create;
      try
        AContext.Connection.IOHandler.ReadStrings(sList,ListCount,TIdTextEncoding.UTF8);
        for I :=0  to sList.Count-1 do  begin
          Memo1.Lines.Add(sList.Strings[I]);
        end;
      finally
        sList.Free;
      end;
   end else if sCmd = #10 then
   begin
     Memo1.Lines.Add(AContext.Connection.IOHandler.ReadString(AContext.Connection.IOHandler.InputBuffer.Size,TIdTextEncoding.UTF8) );
   end else
     AContext.Connection.IOHandler.InputBuffer.Clear;　　//清除
end;

　　

　　

 

创建时间：2020.06.23　　更新

 

 

 

procedure TForm2.Button2Click(Sender: TObject);
var
  SendData:TMyData;
begin
SendData.ID:=10;
StrPCopy(SendData.Name,‘Wyatt‘);
StrPCopy(SendData.Sex,‘男‘);
SendData.age:=25;
StrPCopy(SendData.Address,‘江苏省‘);
SendData.UpdateTime:=Now;
IdTCPClient1.IOHandler.Write(#99);//接收时便于区分接收的数据类型 自定义
IdTCPClient1.IOHandler.Write(RawToBytes(SendData,SizeOf(SendData)));

end;