Memory Leak bei INDY 10 in der SMTP Komponente?

[xaromz]

Hallo,

folgende Änderungen in der Datei idStack.pas sind notwendig, sonst kann es knallen (was ja der Grund für den Leak ist):
Nach Implementation:

Delphi-Quellcode:

var
  GInstanceCount: Integer = 0;
  GStackCriticalSection: TIdCriticalSection;

wird zu

Delphi-Quellcode:

var
  GInstanceCount: Integer = 0;
  GStackCriticalSection: TIdCriticalSection;
  GDestroying: Boolean; // Neue Variable

Die Methode TIdStack.DecUsage muss erweitert werden:

Delphi-Quellcode:

...
  finally GStackCriticalSection.Release; end;

  // Auf Destroying reagieren
  if (GInstanceCount = 0) and GDestroying then
    Sys.FreeAndNil(GStackCriticalSection);
end;

und am Ende:

Delphi-Quellcode:

finalization
  GDestroying := True;
  if GInstanceCount = 0 then
    Sys.FreeAndNil(GStackCriticalSection);

//Edit: Meine Lösung gilt für Version Version 10, jbg's für Version 9.
Gruß
xaromz

[emsländer]

Hi,

Wenn ich das versuche zu compilieren (D2006/Indy10) dann bekomme ich die Fehlermeldung:
[Pascal Fataler Fehler] IndySystem.dpk(29): E2202 Package 'Borland.Delphi' wird benötigt, konnte aber nicht gefunden werden. Wo soll das denn stecken?



Gruss

EL

[xaromz]

Hallo,

Zitat:

Zitat von emsländer

Wenn ich das versuche zu compilieren (D2006/Indy10) dann bekomme ich die Fehlermeldung:
[Pascal Fataler Fehler] IndySystem.dpk(29): E2202 Package 'Borland.Delphi' wird benötigt, konnte aber nicht gefunden werden. Wo soll das denn stecken?

Den Fehler bekomme ich auch. Hört sich irgendwie nach .Net an :gruebel: . INDY 10 ist ja für beide Plattformen.
Lösung hab' ich leider keine. Ich habe einfach den Suchpfad meines Projekts angepasst und kompiliere die Units in meine Anwendung mit rein.

Gruß
xaromz

[jbg]

Zitat:

Zitat von emsländer

Wenn ich das versuche zu compilieren (D2006/Indy10) dann bekomme ich die Fehlermeldung:

Mir persönlich gefällt der Quellcode zu Indy 10 überhaupt nicht (deswegen keine Hilfe von mir). Anfangs habe ich da sogar mitentwickelt. Aber nachdem dann C# ohne die SysUtils, Classes, ... Units unterstützt werden sollte, und dafür dann der gesamte Code so umgemodelt wurde dass alles nur noch aus Zwichenschicht-Aufrufen bestand (die ausgetauscht werden können), wurde mir das ganze dann doch zu bunt. Und jetzt wo der gesamte Code (in meinen Augen) völlig unleserlich geworden ist, wurde dann doch ein Neustart für eine C# only Version (in C#) gestartet. So kann man auch ein Projekt kaputt machen.

[emsländer]

Zitat:

Zitat von xaromz

Hallo,

Zitat:

Zitat von emsländer

Wenn ich das versuche zu compilieren (D2006/Indy10) dann bekomme ich die Fehlermeldung:
[Pascal Fataler Fehler] IndySystem.dpk(29): E2202 Package 'Borland.Delphi' wird benötigt, konnte aber nicht gefunden werden. Wo soll das denn stecken?

Den Fehler bekomme ich auch. Hört sich irgendwie nach .Net an :gruebel: . INDY 10 ist ja für beide Plattformen.
Lösung hab' ich leider keine. Ich habe einfach den Suchpfad meines Projekts angepasst und kompiliere die Units in meine Anwendung mit rein.

Gruß
xaromz

Ich stell mich jetzt mal blöd :gruebel:

Wie?


Gruss

EL

[emsländer]

Zitat:

Zitat von xaromz

und am Ende:

Delphi-Quellcode:

finalization
  GDestroying := True;
  if GInstanceCount = 0 then
    Sys.FreeAndNil(GStackCriticalSection);

//Edit: Meine Lösung gilt für Version Version 10, jbg's für Version 9.
Gruß
xaromz

muss ich den Teil:

Delphi-Quellcode:

  {$IFDEF IDFREEONFINAL}
  Sys.FreeAndNil(GStackCriticalSection);
  {$ENDIF}

behalten, oder ersetzen?


Gruss

EL

[xaromz]

Hallo,

Zitat:

Zitat von emsländer

muss ich den Teil:

Delphi-Quellcode:

  {$IFDEF IDFREEONFINAL}
  Sys.FreeAndNil(GStackCriticalSection);
  {$ENDIF}

behalten, oder ersetzen?

Ersetzen:

Delphi-Quellcode:

initialization
  GDestroying := False;
  GStackClass :=
   {$IFDEF LINUX}     TIdStackLinux;   {$ENDIF}
   {$IFDEF MSWINDOWS} TIdStackWindows; {$ENDIF}
   {$IFDEF DOTNET}    TIdStackDotNet;  {$ENDIF}
  GStackCriticalSection := TIdCriticalSection.Create;

finalization
  GDestroying := True;
  if GInstanceCount = 0 then
    Sys.FreeAndNil(GStackCriticalSection);
end.

Gruß
xaromz

[emsländer]

Zitat:

Zitat von xaromz

Hallo,

Zitat:

Zitat von emsländer

muss ich den Teil:

Delphi-Quellcode:

  {$IFDEF IDFREEONFINAL}
  Sys.FreeAndNil(GStackCriticalSection);
  {$ENDIF}

behalten, oder ersetzen?

Ersetzen:

Delphi-Quellcode:

initialization
  GDestroying := False;
  GStackClass :=
   {$IFDEF LINUX}     TIdStackLinux;   {$ENDIF}
   {$IFDEF MSWINDOWS} TIdStackWindows; {$ENDIF}
   {$IFDEF DOTNET}    TIdStackDotNet;  {$ENDIF}
  GStackCriticalSection := TIdCriticalSection.Create;

finalization
  GDestroying := True;
  if GInstanceCount = 0 then
    Sys.FreeAndNil(GStackCriticalSection);
end.

Gruß
xaromz

tx

und wie nun compilieren?

Gruss

EL

[emsländer]

Zitat:

Zitat von emsländer

Zitat:

Zitat von xaromz

Hallo,

Zitat:

Zitat von emsländer

muss ich den Teil:

Delphi-Quellcode:

  {$IFDEF IDFREEONFINAL}
  Sys.FreeAndNil(GStackCriticalSection);
  {$ENDIF}

behalten, oder ersetzen?

Ersetzen:

Delphi-Quellcode:

initialization
  GDestroying := False;
  GStackClass :=
   {$IFDEF LINUX}     TIdStackLinux;   {$ENDIF}
   {$IFDEF MSWINDOWS} TIdStackWindows; {$ENDIF}
   {$IFDEF DOTNET}    TIdStackDotNet;  {$ENDIF}
  GStackCriticalSection := TIdCriticalSection.Create;

finalization
  GDestroying := True;
  if GInstanceCount = 0 then
    Sys.FreeAndNil(GStackCriticalSection);
end.

Gruß
xaromz

tx

und wie nun compilieren?

Gruss

EL

- push -

Wie muss ich nun verfahren, um die Indylib neu zu bauen?

Gruss

EL

[emsländer]

- ich pushe dieses Thema noch einmal, weil Borland einer Anfrage nicht nachkommt und auf den kostenpflichtigen Support verweist. -

Zitat:

Zitat von emsländer

Zitat:

Zitat von emsländer

Zitat:

Zitat von xaromz

Hallo,

Zitat:

Zitat von emsländer

muss ich den Teil:

Delphi-Quellcode:

  {$IFDEF IDFREEONFINAL}
  Sys.FreeAndNil(GStackCriticalSection);
  {$ENDIF}

behalten, oder ersetzen?

Ersetzen:

Delphi-Quellcode:

initialization
  GDestroying := False;
  GStackClass :=
   {$IFDEF LINUX}     TIdStackLinux;   {$ENDIF}
   {$IFDEF MSWINDOWS} TIdStackWindows; {$ENDIF}
   {$IFDEF DOTNET}    TIdStackDotNet;  {$ENDIF}
  GStackCriticalSection := TIdCriticalSection.Create;

finalization
  GDestroying := True;
  if GInstanceCount = 0 then
    Sys.FreeAndNil(GStackCriticalSection);
end.

Gruß
xaromz

tx

und wie nun compilieren?

Gruss

EL

Wie muss ich nun verfahren, um die Indylib neu zu bauen?

Gruss

EL