Windows 同一台计算机上两个应用程序之间的最大数据/速度传输是多少_Windows_Delphi_Indy

Windows 同一台计算机上两个应用程序之间的最大数据/速度传输是多少

windows delphi

Windows 同一台计算机上两个应用程序之间的最大数据/速度传输是多少,windows,delphi,indy,Windows,Delphi,Indy,我有一个用delphiXe2编写的客户机/服务器应用程序，它使用Indy TIdTCPServer和TIdTCPClient，在同一台计算机上使用TCP地址127.0.0.1相互通信当我使用每秒1兆（8兆）的数据时，一切正常然而，当我将数据设置为更高的速度，如20毫秒/秒（160兆比特）时，它会减速并开始表现出奇怪的行为这是那种速度下的惯常行为吗？此外，我似乎找不到任何基准测试或2个本地应用程序之间最大数据传输速度的信息执行带宽测试。这就是我使用的（我附上了相关的服务器和客户端代码）。

我有一个用delphiXe2编写的客户机/服务器应用程序，它使用Indy TIdTCPServer和TIdTCPClient，在同一台计算机上使用TCP地址127.0.0.1相互通信

当我使用每秒1兆（8兆）的数据时，一切正常

然而，当我将数据设置为更高的速度，如20毫秒/秒（160兆比特）时，它会减速并开始表现出奇怪的行为

这是那种速度下的惯常行为吗？此外，我似乎找不到任何基准测试或2个本地应用程序之间最大数据传输速度的信息

执行带宽测试。这就是我使用的（我附上了相关的服务器和客户端代码）。FWIW，我的最大速度约为500 Mbps，尽管我无法如此快速地处理数据

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  lData: TByteDynArray;
  lCaption: string;
  lMbps: Real;
  lLen: Integer;
begin
  AContext.Connection.IoHandler.CheckForDataOnSource;
  SetLength(lData, 0);
  AContext.Connection.IoHandler.InputBuffer.ExtractToBytes(TIdBytes(lData),
                                     AContext.Connection.IoHandler.InputBuffer.Size);
  lLen := Length(lData);
  if lLen > 0 then begin
    if FStartTime = 0 then begin
      Memo1.Lines.Add(FormatDateTime('dd/mm/yyyy hh:nn:ss.zzz', CsiNow) +': Started test');
      FStartTime := CsiNow;
    end;
    Inc(FBytesReceived, lLen);
    lCaption := 'MBits Received: ' + CsiPadFloat(FBytesReceived * 1.0 / 125000, 3, 1);
    if lCaption <> FLastCaption  then begin
      Label1.Caption := lCaption;
      FLastCaption := lCaption;
    end;
    if FBytesReceived >= 12500000 then begin
      FStopTime := CsiNow;
      lMbps := 100000 / MilliSecondsBetween(FStopTime, FStartTime);
      Memo1.Lines.Add(FormatDateTime('dd/mm/yyyy hh:nn:ss.zzz', CsiNow) +
                      ': Finished test (' + CsiPadFloat(lMbps, 3, 1) + ' Mbps)');
      FBytesReceived := 0;
      FStartTime := 0;
    end
  end;

  CsiSleep(0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  lData: TByteDynArray;
  lIndex: Integer;
begin
  IdTCPClient1.Host := Edit1.Text;
  IdTCPClient1.Connect;
  try
    SetLength(lData, 125000);
    for lIndex := 1 to 125000 do
      lData[lIndex - 1] := Ord('a');
    for lIndex := 1 to 100 do
      IdTCPClient1.IoHandler.Write(TIdBytes(lData));
  finally
    IdTCPClient1.Disconnect;
  end;
end;

过程TForm1.IdTCPServer1Execute（AContext:TIdContext）；
变量
lData:tbyterray；
选项：字符串；
lMbps：真实；
lLen：整数；
开始
AContext.Connection.IoHandler.checkforDataSource；
设置长度（lData，0）；
AContext.Connection.IoHandler.InputBuffer.ExtractToBytes（TIdBytes（lData），
AContext.Connection.IoHandler.InputBuffer.Size）；
lLen:=长度（lData）；
如果lLen>0，则开始
如果FStartTime=0，则开始
Memo1.Lines.Add（FormatDateTime（'dd/mm/yyyy hh:nn:ss.zzz'，CsiNow）+'：startedtest'）；
FStartTime:=CsiNow；
结束；
公司（FBytesReceived，lLen）；
l选项：=“接收到的MBits:”+CsiPadFloat（接收到的FBytesReceived*1.0/125000,3,1）；
如果选择FLastCaption，则开始
标签1.标题：=L选项；
FLastCaption:=lcoption；
结束；
如果fBytes接收>=12500000，则开始
FStopTime:=CsiNow；
lMbps:=100000/毫秒（FStopTime，FStartTime）；
Memo1.Lines.Add（FormatDateTime（'dd/mm/yyyy hh:nn:ss.zzz'，CsiNow）+
“：完成测试（“+CsiPadFloat（lMbps，3,1）+”Mbps）”；
fBytes接收：=0；
FStartTime:=0；
结束
结束；
睡眠（0）；
结束；
程序TForm1.按钮1单击（发送方：TObject）；
变量
lData:tbyterray；
lIndex：整数；
开始
IdTCPClient1.Host:=Edit1.Text；
IdTCPClient1.Connect；
尝试
设定长度（lData，125000）；
对于lIndex：=1至125000 do
lData[lIndex-1]：=Ord（'a'）；
对于lIndex：=1到100 do
IdTCPClient1.IoHandler.Write（TIdBytes（lData））；
最后
IdTCPClient1.断开连接；
结束；
结束；

如果您（ab）使用TCP/IP作为在设计为在同一台机器上运行的进程之间执行IPC的方法，您将遇到如下限制。通过使用TCP/IP，尤其是本地连接，所有数据都会被分割并推送到数据包交换系统（即TCP）。如果是这种情况，您应该研究其中一个：

命名管道或未命名管道
虚拟内存映射
传递WM_数据消息
COM
（请随意添加更多您认为值得在此列出的内容）

“640kb对任何人都应该足够了。”