Hallo
Ich habe da eine Procedure.
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| procedure JPEGtoBMP(FileNameJPG,FileNameBMP : string);
var jpeg : TJPEGImage;
bmp : TBitmap;
begin
jpeg:= TJPEGImage.Create;
try
jpeg.LoadFromFile(FileNameJPG );
bmp:= TBitmap.Create;
try
bmp.Assign(jpeg);
bmp.SaveTofile(FileNameBMP);
finally
bmp.free
end;
finally
jpeg.free
end;
end; |
Die funktioniert auch super. Ich habe da jetzt jedoch ein JPEG, wenn ich das in ein BMP mit dieser Procedure umwandle wird im BMP der Inhalt zweimal nebeneinander dargestellt. Einmal Richtig und einmal Invertiert.
Siehe
Original und
Convertierung
Wenn ich das Bild aber dann in einem Image lade,
Quelltext
1:
| image.Picture.LoadFromFile('temp.bmp'); |
Sieht es ganz normal aus. Aber z.B. mit ACDSee sieht man, das da was nicht stimmt. Die meisten meiner JPGS funktioniren aber mit der Procedure oben. Was mache ich da falsch?
cu Patmann
