Einzelnen Beitrag anzeigen

Delphi.Narium

Registriert seit: 27. Nov 2017
975 Beiträge
 
Delphi 7 Professional
 
#15

AW: jpeg- fehler #53

  Alt 15. Mai 2019, 11:39
Delphi-Quellcode:
   if lGetRecord(lpTblGraph, 1) then
    begin
{$IFDEF TITAN}
      laImage := GetBlob(lpTblGraph);
{$ENDIF} // DEF TITAN
      lmstImage.Clear;
      lmstImage.Write(laImage[0], Length(laImage));
      lmstImage.Position := 0;
      lmstImage.Read(Buffer,2); // <- geändert
      Buffer := Swap(Buffer);
      //lpicImage:= PictureTyp_pruefen(lmstImage);
      case Buffer of
        $FFD8:
          begin
            lmstImage.Position := 0; // <- neu eingefügt.
            ljpgImage.LoadFromStream(lmstImage);
Fehler #53 heißt, dass ein JPeg kein JPeg ist oder das der Inhalt schlicht und einfach defekt ist. Die Prüfung der ersten beiden Byte auf $FFD8 schließt das Auftreten des Fehlers #53 nicht aus, verringert nur die Wahrscheinlichkeit seines Auftretens.

Speichere den MemoryStream bitte mal als Datei und lass Dir diese von 'nem anderen Programm (oder z. B. in 'nem Browser) anzeigen. Funktioniert das oder wird da auch 'ne Fehlermeldung ausgegeben?

Wenn der Fehler bestehen bleibt: Könntest Du bitte mal eine entsprechende Datei hier anhängen? Eventuell kann man da ja was sehen oder der Fehlerursache irgendwie auf den Grund gehen.
  Mit Zitat antworten Zitat