Einzelnen Beitrag anzeigen

hirsch

Registriert seit: 29. Jan 2008
Ort: Tuttlingen
88 Beiträge
 
Delphi 2007 Professional
 
#1

TImage und jpg Error #53

  Alt 18. Okt 2011, 11:55
Liebes Forum,

ich habe eine Mysql-DB, in der in einer spalte die absoluten Dateinamen der Bilder abgelegt sind. Meine alte Digicam machte jpg's die max 3MB groß waren. Nun habe ich eine neue, die macht durchaus auch mal eine jpg mit 5MB. Gerade diese Bilder werden beim anzeigen (die großen) mit einem Fehler: EJPEG mit der Meldung:'JPEG-Fehler #53' aufgetreten.
Im Prinzip siet der Code so aus:
Delphi-Quellcode:
    if cds1.RecordCount>0 then begin
      Image1.Picture.LoadFromFile(Datei); //<- genau hier kann er es nicht!!
      if cds1.RecordCount>1 then
        LblAnzahl.Caption:=IntToStr(cds1.RecordCount)+' Fotos gewählt'
      else
        LblAnzahl.Caption:=IntToStr(cds1.RecordCount)+' Foto gewählt'
    end else begin
      Image1.Picture.LoadFromFile(StOrdner+'\Schrift.jpg');
      LblAnzahl.Caption:='Kein Foto';
    end;
Wie bekomme ich das hin, dass er ir auch die größeren Bilder lädt?
Wolfgang Hirsch
  Mit Zitat antworten Zitat