Quel est le transfert de données/vitesse maximum entre 2 applications sur le même ordinateur

Question

J'ai une application client/serveur écrite en DelphiX2 utilisant Indy TIdTCPServer et TIdTCPClient qui communiquent entre eux sur le même ordinateur en utilisant l'adresse TCP 127.0.0.1

Lorsque j'utilise environ 1 Mo par seconde (8 Megabit) de données, tout fonctionne correctement.

Toutefois, lorsque mes données sont définies à une vitesse plus élevée, comme 20megs/sec (160 mégabits), elles ralentissent et commencent à se comporter bizarrement.

Est-ce un comportement habituel pour cette vitesse? Aussi, je ne peux pas trouver de point de repère ou d'information sur la vitesse maximale de transfert de données entre deux applications locales.

Observe

Answer 1

Effectuer un test de bande passante. C'est ce que j'utilise (j'ai joint le code du serveur et du client). FWIW, j'obtiens environ 500Mbps maximum, bien que je ne puisse pas traiter les données aussi rapidement.

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; 

Answer 2

Si vous êtes (ab) en utilisant TCP/IP comme un moyen de faire IPC entre les processus qui sont conçus pour fonctionner sur la même machine, vous courrez dans des limites comme celles-ci. En utilisant TCP/IP, en particulier une connexion locale, toutes les données sont fragmentées et poussées à travers le système de commutation de paquets TCP. Si tel est le cas, vous devriez regarder dans un de ces:

• nommé ou pipes sans nom
• cartographie de la mémoire virtuelle
• passer des messages WM_DATA autour
• COM
• (vous pouvez ajouter plus de vous trouvez qu'ils méritent d'être énumérés ici)

Answer 3

Sans aucun code pour reproduire le problème, il est très difficile de trouver le problème.

La communication IP est très stable localement (toutes les données restent en mémoire, dans les tampons OS) - et 20 Mo/s ne sont rien pour une vitesse de bande passante sur HW/SW de nos jours.

Je suppose que le problème est dans votre code, ou vous avez atteint les limites (multi-thread?) De Delphi, et a été contusionné lors de la manipulation des données.

Bien sûr, avez-vous essayé de désactiver votre inspection de paquets AntiVirus? Certains d'entre eux ralentissent beaucoup le trafic IP lors de l'inspection des paquets IP (même s'il ne s'agit pas de HTTP), et il en résulte un embouteillage IP aléatoire.