Delphi-PRAXiS
Seite 1 von 3  1 23      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Jpeg Zu Bitmap Fehler (https://www.delphipraxis.net/107912-jpeg-zu-bitmap-fehler.html)

Larsi 4. Feb 2008 16:08


Jpeg Zu Bitmap Fehler
 
hi,
in meinem code möchte ich eine jpeg datei in eine bmp datei umwandeln. dazu habe ich folgenden code verwendet:
Delphi-Quellcode:
uses jpeg;

procedure JpegToBmp(const Filename: String);
var
 jpeg: TJPEGImage;
 bmp: TBitmap;
begin
 jpeg:=TJPEGImage.Create;
 try
   jpeg.LoadFromFile(Filename);
   bmp:=TBitmap.Create;
   try
     bmp.Assign(jpeg);
     bmp.SaveToFile(ChangeFileExt(Filename, '.bmp'));
   finally
     bmp.free;
   end;
 finally
   jpeg.free;
 end;
end;
Delphi-Quellcode:
if radiobutton1.checked = true then begin
JpegToBmp(ExtractFilePath(Application.ExeName) + '\Image' + inttostr(i) + '.jpg');
end;
Aber immer wenn der Code ausgeführt werden soll, kommt die Fehlermeldung "Jpeg Fehler oder Error #53"!!!

Hoffe ihr könnt mir bei diesem problem helfen!


MFG Lars Wiltfang

Kroko1999 4. Feb 2008 16:11

Re: Jpeg Zu Bitmap Fehler
 
(a)
Delphi-Quellcode:
if RadioButton.checked then
sollte nur verwendet werden, mal die Suche hier benutzen!
(b) Ist der Dateiname (Path+FileName) richtig?
[Edit]
(c) Notfalls die Größe/Pixelformat selbst setzen und per Draw ins Bitmap "kopieren"

Bernhard Geyer 4. Feb 2008 16:11

Re: Jpeg Zu Bitmap Fehler
 
Evtl. eine JPEG-Codierung die von der Delphi-Implementierung nicht erkannt/unterstützt wird?

turboPASCAL 4. Feb 2008 16:13

Re: Jpeg Zu Bitmap Fehler
 
Schon mal eine andere JPEG - Datei versucht ? Möglicher Weise ist diese Jpeg def. oder hat eine
andere Kompression zB. JPG2000, diese kann die Delphiunit für JPEG's nicht ab.

Den Fehler findest du (mit Hilfe der DP-eigenen Suche) öfters hier in der DP. ;)

Larsi 4. Feb 2008 16:14

Re: Jpeg Zu Bitmap Fehler
 
was? also ich hab bei uses jpeg eingebunden wenn du dass meinst :) und der dateiname ist eigentlich auch richtig! Soll ich mal den GAAAAAAAAAAAAnzen code posten?


hab das jpeg zuvor hiermit erzeugt:
Delphi-Quellcode:
SaveWebcamPictureDIB(PChar(ExtractFilePath(Application.ExeName) + '\Image' + inttostr(i) + '.jpg'),handle1);

Klaus01 4. Feb 2008 16:19

Re: Jpeg Zu Bitmap Fehler
 
Hallo,

ich weiß nicht ob es etwas ausmacht, aber ExtractFilepath hat schon einen BackSlash am Ende.
Ein weiterer wäre dann doppelt.

Grüße
Klaus

igel457 4. Feb 2008 16:20

Re: Jpeg Zu Bitmap Fehler
 
Ähm, dadurch das du einem DIB die Endung JPG anhängst wird es noch lange kein JPEG... Oder verstehe ich da jetzt etwas falsch?

Die Muhkuh 4. Feb 2008 16:21

Re: Jpeg Zu Bitmap Fehler
 
Nur weil Du als .jpg abspeicherst, ist es noch lange keine.

Du speicherst eine *.dib-Datei ab und keine JPEG-Datei.

Larsi 4. Feb 2008 16:22

Re: Jpeg Zu Bitmap Fehler
 
aha und was muss ich da machen? ps offtopic kann man da beim abspeichen vielleicht gleich noch son qualität kleiner machen ? offtopic

Die Muhkuh 4. Feb 2008 16:24

Re: Jpeg Zu Bitmap Fehler
 
Eine DIB-Datei kannst Du wie ein Bitmap handhaben. Das heißt, Du musst das Bitmap erst in ein jpeg umwandeln, wenn Du es als solchen speichern willst. Wie das geht? Schau Dir Deine Procedure zum Umwandeln von JPEG zu Bitmap mal an und drehe dessen Funktion einfach um.

Die Qualität kannst Du per .Quality einstellen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:24 Uhr.
Seite 1 von 3  1 23      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz