Fehler mit Socket komponente

[1aa]

Zitat von sx2008:

Man kann den Speichermanager anweisen alle Speicherlecks bei Programmende zu melden:

Delphi-Quellcode:

// in der Projektdatei
begin
  Application.Initialize;
  ReportMemoryLeaksOnShutdown := True;  // <===

Zusätzlich sollte man in den Projektoptionen die TD32-Debug-Info anschalten.

Hat mir leider nicht weiter geholfen laut Speichermanager gibt es keine Lecks und trotzdem hängt sich das programm nach einer zeit mit der Fehlermeldung aus dem 1. post auf....

[Union]

Laß Dir mal im Taskmanager die Anzahl der offenen Handles ausgeben. Vielleicht wird ja der Socket nach erfolgreichem Aufbau der Verbindung nicht korrekt geschlossen?

[Zacherl]

1. Liest du in deinem OnRead Event auch wirklich die Daten aus dem TCP Buffer aus?
2. Selbige Frage für die Gegenseite der Client/Server Anwendung

Wenn deine Gegenstelle permanent Daten schickst, du aber auf deiner Seite nichts aus dem Buffer ausliest, wird dieser logischerweise irgendwann voll sein.

Magst du eventuell mal etwas mehr Code posten?

[1aa]

Wenn der Client einen Server zum verbinden findet gibt es ja kein problem das problem tritt nur auf wenn kein Server vorhanden ist und der client versucht eine Verbindung auf zu bauen.

Code:

Delphi-Quellcode:

unit U_Spy_Client;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, ExtCtrls;

const IP = 'XXX.XXX.XXX.XXX';
      PORT = XXXXX;
      TimeIntervCon = 1000;

Type
  TClient = class(TObject)
    private
      CS1: TClientSocket;
      TimerCon: TTimer;
      iCon : String;
      iDis : String;
      procedure Disco;
      procedure CS1Connect(Sender: TObject; Socket: TCustomWinSocket);
      procedure CS1Disconnect(Sender: TObject; Socket: TCustomWinSocket);
      procedure CS1Error(Sender: TObject; Socket: TCustomWinSocket;
        ErrorEvent: TErrorEvent; var ErrorCode: Integer);
      procedure CS1Read(Sender: TObject; Socket: TCustomWinSocket);
      procedure TimerConTime(Sender: TObject);
      procedure Initial;
      procedure SockFree;
    public
      constructor Create;
      destructor Destroy; override;
  end;

implementation

constructor TClient.Create;
begin
  //Sockel------------------------
  Initial;
  //Timer Verbindung aufbauen-------------------------
  TimerCon := TTimer.Create(nil);
  TimerCon.Interval := TimeIntervCon;
  TimerCon.OnTimer := TimerConTime;
  TimerCon.Enabled:=True;
end;

destructor TClient.Destroy;
begin
  //Timer abklemmen
  TimerCon.Enabled := false;
  TimerCon.OnTimer := nil;
  TimerCon.Free;
  //Socket abklemmen
  SockFree;    
  inherited;
end;

procedure TClient.Disco;
begin
  Cs1.Close;
end;

procedure TClient.CS1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
  iCon := 'Verbindung Aufgebaut: ' + datetimetostr(Now);
end;

procedure TClient.CS1Disconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  iDis := 'VerbindungGetrennt: ' + datetimetostr(Now);
end;

procedure TClient.CS1Error(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  Disco;
  ErrorCode := 0;
end;

procedure TClient.CS1Read(Sender: TObject; Socket: TCustomWinSocket);
var s: String;
begin
  s := Socket.ReceiveText;
  if s = 'Test' then
   Begin
     Disco;
     Application.Terminate;
   End
end;

procedure TClient.TimerConTime(Sender: TObject);
begin
if not(CS1.Socket.Connected)
 then
    Begin
     SockFree;
     Initial;
      CS1.Open;
    End;
end;

procedure TClient.Initial;
begin
  CS1 := TClientSocket.Create(nil);
  cs1.Host := IP;
  CS1.Port := Port;
  CS1.OnConnect := CS1Connect;
  CS1.OnDisconnect := CS1Disconnect;
  CS1.OnError := CS1Error;
  CS1.OnRead := CS1Read;
end;

procedure TClient.SockFree;
begin
  if CS1.Active then Cs1.Close;
  CS1.OnConnect := nil;
  CS1.OnDisconnect := nil;
  CS1.OnError := nil;
  CS1.OnRead := nil;
  Cs1.Free;
end;

end.

PS: Das on Read ist nur bsp...

[Union]

Nach welcher Zeitspanne stürzt es denn ab? Ich lasse das hier schon eine halbe Stunde laufen und nix passiert. Habe sogar noch einen Logging-Event eingebaut.

[Zacherl]

Ohne jetzt ein konkretes Problem zu sehen: Du musst das Socket nicht vor jedem Connect neu erstellen. Es reicht vollkommen aus, wenn der der alten Instanz sagst, dass sie erneut versuchen soll eine Verbindung herzustellen.

Das weiteren würde ich mit blocking Sockets innerhalb eines Thread arbeiten. In diesem Falle bekommst du einen Disconnect unmittelbar mit, wenn der blocking Call dann failt und kannst direkt versuchen die Verbindung erneut herzustellen.

Mit non blocking Sockets kann es dir sogar passieren, dass dein Timer die ".Open" Methode mehrfach während eines schon laufenden Verbindungsaufbaus aufruft (wenn der Verbindungsaufbau länger als 1 Sekunde dauert).

[1aa]

ok das mit dem blocking Sockets werde ich noch mal testen....

Das mit dem neu erstellen vor jedem connect hat ich nur zu Testzwecken ausprobiert ob das was ändert.... hat es aber nicht^^

Ich hatte heute etwas zeit zum Testen wann die Fehlermeldung kommt hängt vom jeweiligem System ab.... auf meinem Netbook kommt sie nach ca. 20-25min auf meinem Hauptrechner erst nach ca. 5-6 h

Muss wahrscheinlich an der Socket Verarbeitung von Win liegen...das mit jedem Connect versuch der Fehlschlägt mehr Arbeitsspeicher belegt und nicht wieder freigegeben wird...

Ach ja und auf die Frage mit den Handles: Start ist bei 82 und je connect Versuch wird die zahl um 2 erhöht...sobald eine Verbindung aufgebaut wurde bleibt die Zahl konstant wenn die verbindung wieder abbricht läuft der zähler wieder weiter...

[1aa]

auf meinem Testsystem nach ca 20 - 25 min