Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem jak poznat obrázek JPEG

Ahoj,
jak se dá v Delphi poznat, že v zadaném souboru s příponou .jpeg, .jpg je skutečně obrázek JPEG a ne třeba přejmenovaný .doc? Má JPEG nějakou standardní hlavičku?
Díky za radu

Jsou zobrazeny jen nové odpovědi. Zobrazit všechny
Předmět Autor Datum
Možno Ti pomôže toto: { JPEG-Errorcodes: #36 : m:=m+'Output file write error --- out of disk space?…
pme 14.06.2006 18:31
pme
Pozerám, že občas mi to myslí dobre.;-):beer: nový
msx. 14.06.2006 19:54
msx.
Ahoj, moc díky všem za tipy, vypadá to na ten TJPEGImage. Vaše Žlababa :-) nový
Žlababa 15.06.2006 08:36
Žlababa
Stahni si "Dump JPEG marker information" zde: 15260.htm po par pokusech typu: JPEGDUMP.EXE -v -v… poslední
Charlie 28.06.2006 00:03
Charlie

Možno Ti pomôže toto:

{
JPEG-Errorcodes:
#36 : m:=m+'Output file write error --- out of disk space?';
#51 = JERR_NO_QUANT_TABLE: Quantization table 0x%02x was not defined
#52 : File is not a JPEG-File (for example if you try to read a GIF as a JPG)
#53 = JERR_OUT_OF_MEMORY: Insufficient memory (case %d)
#60 : JPEG file is incomplete
#67 : JPEG file is incomplete (like #60 - don't know where the difference

How to trap a JPEG-Error?
}

Image1.picture.loadfromfile(FileName);
if Image1.picture.graphic is TJpegImage then begin
    try
      TJPEGImage(Image1.picture.graphic).dibneeded;
    except
      on E:Exception do
        if (E.message='JPEG error #67') then begin
            showmessage('Incomplete JPEG')
        end;
    end;
end;

Zpět do poradny Odpovědět na původní otázku Nahoru