Fehler mit Socket komponente

[1aa]

Ich hab zu test zwecken ein programm geschrieben welches sich mit der TClientSocket Komponente an einem TServerSocket anmelden soll klappt auch alles ohne Probleme.

Wenn der "Server" nicht läuft soll sie in regelmäßigen abständen versuchen eine Verbindung auf zu bauen

Code Ausschnitte:

Delphi-Quellcode:

    .....
      CS1: TClientSocket;
      TimerCon: TTimer;
    ....
      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);
    ....
constructor TClient.Create;
begin
....
  CS1 := TClientSocket.Create(nil);
  cs1.Host := IP;
  CS1.Port := Port;
  CS1.OnConnect := CS1Connect;
  CS1.OnDisconnect := CS1Disconnect;
  CS1.OnError := CS1Error;
  CS1.OnRead := CS1Read;
....
  TimerCon := TTimer.Create(nil);
  TimerCon.Interval := TimeIntervCon;
  TimerCon.OnTimer := TimerConTime;
  TimerCon.Enabled:=True;
end;
....

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

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

Wenn das programm jetzt eine zeitlang läuft, "frisst es kontinuierlich immer mehr Speicher und irgend wann kommt die Fehlermeldung (siehe Anhang).


Meine Frage jetzt wie kann ich den Speicher bereinigen bzw woran konnte der fehler liegen?

MFG Ertr

[Union]

Delphi-Quellcode:

CS1 := TClientSocket.Create(nil);
TimerCon := TTimer.Create(nil);

Irgendwo mußt Du auch ein Free machen, sonst verstopfen die TClientSocket-Instanzen und TTimer den Speicher.

[1aa]

sorry vergessen mit zu posten...

Delphi-Quellcode:

destructor TClient.Destroy;
begin
  //Timer abklemmen
  TimerCon.Enabled := false;
  TimerCon.OnTimer := nil;
  TimerCon.Free;
.....
  //Socket abklemmen
  if CS1.Active then Cs1.Close;
  CS1.OnConnect := nil;
  CS1.OnDisconnect := nil;
  CS1.OnError := nil;
  CS1.OnRead := nil;
  Cs1.Free;
....    
  inherited;
end;

[sx2008]

Gibt mal in deinem Profil an, welche Delphi Version du verwendest.
Bei neueren Delphi Versionen ist der Speichermanager FastMM standardmässig enthalten; bei älteren Versionen (< Delphi 2006) kann man diesen Speichermanager nachrücsten.

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.

[1aa]

Bin mir nicht sicher welche Version es war glaube aber Enterprise.....

Danke für den Tipp kenn ich mich zwar noch nicht aus werd mir aber mal ein Tut zu suchen....

[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?