Arbeitsspeicher läuft voll

[Michael Mattheis]

Hallo.

In einer Schleife lese ich Tif-Dokumente ein und speichere diese in
einer Datenbank. Dabei verwende ich die Leadtools und
eine Interbase-Datenbank. Innerhalb dieser Prozedur wird jedoch immer mehr Speicher verbraucht. Ich hab versucht, Programmteile einzeln auszukommentieren, um die Ursache zu finden. Hat aber nichts geholfen.
Vielleicht hatte jemand schon mal ein ähnliches Problem und kann mir ein
Tip geben.
Danke Michael M.

[Andreas Kosch]

Hallo,

über welche Komponente und über welchen Weg werden die Daten in der InterBase-Datenbank abgelegt

[Michael Mattheis]

Hallo,

ich habe nun nach und die Programmzeilen auskommentiert und mit Hilfe
des Task-Managers von NT den Speicherverbrauch getestet. Der Grund
für den Speicherverbrauch liegt unter anderem bei der Übergabe der
Bitmap von der Imglist an ein Image (Verbrauch 0.3MB je Bild). Programmcode:
LeadImage1.bitmap := LeadImglist1.item[0].bitmap

Eine Lösung weiß ich noch nicht

[Carsten Kauschmann]

Hallo,

wahrscheinlich macht die Zuweisung
LeadImage1.bitmap := LeadImglist1.item[0].bitmap
ein Assign.

der funktionierend Code könnte dann so aussehen:

<pre>
if assigned( LeadImage1.Bitmap ) then
begin
bmp:=LeadImage1.Bitmap;
FreeAndNil(bmp)
LeadImage1.bitmap := NIL;
end;
bmp:= LeadImglist1.item[0].bitmap ;
LeadImage1.Bitmap:=bmp;

mfg Kauschman