Fehler mit Socket komponente

[Zacherl]

Zitat von Union:

Wie hast Du es jetzt konkret gelöst? Bei meinen Tests mit WinXP und Delphi 7 stieg die Anzahl der Handles nämlich nur bei erneutem Erzeugen der TClient-Klasse aber nicht nach den Verbdindungsversuchen.

Ich vermute mal, er verwendet jetzt die blocking Sockets. Vielleicht handelt es sich um einen Fehler in der RTL implementation der TClientSocket Klasse, der sich erst in späteren Delphi Versionen eingeschlichen hat. Ich habe in meiner Testanwendung die Socket Instanz nicht neu erstellt und dennoch wurden die Handles geleaked. Nichtmal nach dem abschließenden Freigeben der Komponente wurden die Handles wieder geschlossen.

[Union]

Es gibt nur wenige Änderungen zwischen D7 und XE4 in den ScktComp, bis auf die allfälligen Unicode-Umstellungen und Namespaces:

• Es gibt ein overload von Close. Vielleicht sollte man in diesem Fall dann diesen verwenden, obwohl davor gewarnt wird. Der sorgt nämlich für das "Search und Destroy" des Handles.
• Bei ReceiveBuf wird jetzt die Count-Var erhöht falls der Puffer inzwischen mehr Daten enthält als vermutet bzw. übergeben.
• Im Accept werden EAbort-Exceptions stummgeschaltet

[1aa]

Ich verwende jetzt blocking Sockets und es funkt. soweit auch alles, keine Memory Leak

Aber eine andere Sache ist mir jetzt auf gefallen seit ich blocking Sockets verwende habe ich probleme dateien zu übertragen :


Empfang:

Delphi-Quellcode:

procedure TClient.DateiDownload(Socket: TCustomWinSocket);
var zielDatei: TFileStream;
    nSocketStream : TWinSocketStream;
    nReceived: Integer;
    Buffer: array [0..9999] of Char;
begin
 zielDatei := TFileStream.Create('neu.txt', fmCreate);
 try
   bDateiEmpfang := True;
   nSocketStream := TWinSocketStream.Create(Socket,5000);
   try
    while bDateiEmpfang do
     begin
         nReceived := nSocketStream.Read(Buffer, sizeof(Buffer));
         if nReceived <= 0
           then Break
           else
             zielDatei.WriteBuffer(Buffer, nReceived);
       Sleep(1);
     end;
   finally
     nSocketStream.Free;
   end;  
  zielDatei.Position := 0;
  bDateiEmpfang := false;
 finally
   zielDatei.Free;
 end;
end;

Es scheint nicht alle daten zu übertragen.....

Senden: Socket.SendStream(TFileStream.Create('neu.txt', fmOpenRead or fmShareDenyWrite))

[1aa]

Edit : OK hat sich geklärt hatte in einer übergeordnenen Procedure einen Tip fehler... Funktioniert alles

Danke noch mal an alle die mir geholfen haben!