JPEG Fehler #53

[Matze]

Hi

Seit mehreren Stunden suche ich nun eine Ursache für den "JPEG fehler #53", kann sie aber nicht finden.

Der Fehler bedeutet

Zitat:

insufficent memory

Arbeitsspeicher ist mit virtuellem Speicher zusammen noch genügend frei, oder was bedeutet diese Meldung?

Gibt es da bestimmte Ursachen?

Ich finde nämlich nicht mal genau den Code, der das auslöst ...

[Matze]

Das Problem besteht leider immernoch.

Es müsste an folgender Function liegen:

Delphi-Quellcode:

function TForm1.GetPicPanelformat(pic: string): boolean;
var jpeg: TJPEGImage;
    bmp: TBitmap;
    isjpeg: boolean;
begin
  if (GetFileExt(pic) = '.jpg') or (GetFileExt(pic) = '.jpeg') then
    isjpeg := true else
      isjpeg := false;

  if isjpeg then
  begin
    jpeg := TJPEGImage.Create;
    try
      jpeg.LoadFromFile(pic);
      if jpeg.Width > jpeg.Height then
        result := false else
          result := true;
    finally
      FreeAndNil(jpeg);
    end;
  end else
  begin
    bmp := TBitmap.Create;
    try
      bmp.LoadFromFile(pic);
      if bmp.Width > bmp.Height then
        result := false else
          result := true;
    finally
      FreeAndNil(bmp);
    end;
  end;
end;

[glkgereon]

hab zwar den fehler nicht, aber ersetz doch

Delphi-Quellcode:

  if (GetFileExt(pic) = '.jpg') or (GetFileExt(pic) = '.jpeg') then 
    isjpeg := true else 
      isjpeg := false;

durch
isjpeg:=(GetFileExt(pic) = '.jpg') or (GetFileExt(pic) = '.jpeg'); oder direkt

Delphi-Quellcode:

if (GetFileExt(pic) = '.jpg') or (GetFileExt(pic) = '.jpeg') then
  begin
  ...

[Matze]

Stimmt, das wäre möglich, danke.

Ist noch übersichtlich, nur vergesse ich oft, es so zu programmieren. *g*

Und Dinge wie
Boolean := i = 5; finde ich unübersichtlich, aber korrekt, das mache ich so.

[Matze]

Kennt das denn keiner?

[marabu]

Deine Funktion - ich habe GetFileExt durch ExtractFileExt ersetzt - funktioniert einwandfrei. Wenn du das Problem mit einer bestimmten JPG-Datei hast, dann ist die Datei korrupt. Ansonsten steckt der Bug indem Code, den du nicht zeigst.

Grüße vom marabu

[Matze]

Ah, danke.

Habe es nun nach Stunden in den Griff bekommen. Es lag daran, da ich etwas im OnCreate nicht ausführen konnte und das später im OnActivate erledigt habe, und es dort nicht so ging, wie es sollte, kam diese Meldung.

Kann das nicht alles erklären, ich dachte erst, ich könnte schön schildern, woran es genau lag, aber das weiß ich selbst nicht wirklich, muss ich ehrlich zugeben, da ich an so vielen Stellen Dinge verändern musste und das alles zusammengespielt hat.
Auf jedenfall hatte sie nichts mit dem Speicher zu tun, auch wenn das dieser Fehler aussagt.

[arbu man]

Hi, ich habe auch denn Fehler #53 beim laden von JPEGs, er tritt spontan auf, ich kann ein JPEG laden, machmal jedoch kommt beim Laden der JPEGs der Fehler #53 obwohl ich an denn Daten nichts verändere. Hat jemand noch Lösungsmöglichkeiten für den Fehler gefunden ?

mfg, Björn

[Bernhard Geyer]

Binde mal FastMM ein. Falls hin und wieder bei der gleichen JPEG-Datei ist tippe ich mal auf bekannte Probleme des Default-Speichermanger von Delphi < V2006 bezüglich Fragmentierung des Verwaltungsspeichers.

[arbu man]

Leider musste ich feststellen das Windows die JPEGs auch nicht öffnen kann, irgentwie hab ich die wohl geschrottet... Manche Bildbearbeitsprogramme können Sie allerdings mit Meckern öffnen, nochmal Glückgehabt

mfg, Björn