Speicher Problem

covel · Beiträge: 131 Win XP PRo Borland D7/C#

Hallo

Ich will per knopfdruck eine pdf dokument erstellen. Auf dem pfd ist ein bild (jpeg vom chart1)
und einige labels. Klappt auch soweit, jedoch kommt nach ca. 290 pdf folgende Fehlermeldung:

"Exception der Klasse Eoutofresources"
"Meldung:Für diesen Befehl ist nicht genügent Speicher verfügbar"

" SaveToFile(extractfilepath(application.exename) +'chart.jpg'); "
dort bleibt das programm stehen!

Pysikalischer Speicher
verfügbar: verringert sich
Systemcache: erhöht sich

Auslagerungsdatei wird ebenfalls größer.

Was mache ich genau falsch, hoffe ihr könnt mir helfen

der Fehler muss in diesem Programmabschnitt liegen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

jp := TJPEGImage.Create;
  try
    with jp do
    begin
      Assign(chart1.TeeCreateBitmap(clDefault, rec ) );
///////////////////////Hier kommt die Fehlermeldung,  nachdem ich 290 Pdf erstellt habe.////////////
      SaveToFile(extractfilepath(application.exename) +'chart.jpg'); 
    end;
  finally
    jp.Free; end;

Grendel · Verfasst: Mo 13.02.06 16:44

Ja, Doku lesen ist schwer

Zitat:

The TeeCreateBitmap function returns a new Bitmap handle. You should destroy the bitmap after use.

Demnach erzeugst Du pro Durchlauf 2 Bitmap-Instanzen von denen Du aber nur eine frei gibst. Lass das jp := TJPEGImage.Create; weg, dann sollte es passen.

Bis neulich ...

covel · Beiträge: 131 Win XP PRo Borland D7/C#

erstelle mit folgendem code ein bitmap:
chart1.TeeCreateBitmap(clDefault, rec )

habe in der Doku nix gefunden!!
wie kann ich nun das bitmap wieder löschen ?

Grendel · Verfasst: Di 14.02.06 12:10

Sach mal, liest Du die Antworten eigentlich?!

Grendel hat folgendes geschrieben:

Lass das jp := TJPEGImage.Create; weg, dann sollte es passen.

Bis neulich ...

covel · Beiträge: 131 Win XP PRo Borland D7/C#

na klar lese ich die antworten!!!! nur leider hat deine antwort nicht zur lösung des problems geführt. Trotzdem danke für deine Hilfe.

habe aber nun das problem gelöst!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

jp:=TJPEGImage.Create;
bitmap:=form2.chart1.TeeCreateBitmap(clDefault, rec);
bitmap.SaveToFile(extractfilepath(application.exename) +'chart.bmp');
jp.Assign(bitmap);
jp.SaveToFile(extractfilepath(application.exename) +'chart.jpg');
jp.free;
bitmap.free ;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme