Konvertierungsroutinen

[markus lemcke]

Hallo,

mit GraphicEx kann man laut diesem link:
http://www.pjh2.de/delphi/articles/graphic/png.php?l=de die dateien nicht in ihrem orginalformat wieder speichern!

deshalb suche ich konvertierungsroutinen für bitmap in tif und bitmap in png!
wer kann mir helfen?

Gruß

Markus

[markus lemcke]

mal ne andere frage!
wer kennt umgekehrte konvertierungsroutinen:
jpg zu bmp
gif zu bmp
usw.?

Gruß

Marku

[Andreas Schilling]

Mit Hilfe einer normalen Imagekomponente sollte es mit *.jpg so funktionieren.
<PRE>
procedure TF_Foto.BB_DialogClick(Sender: TObject);
var jpg: TJpegImage;
begin
jpg := TJpegImage.Create;

if OpenPictureDialog1.Execute
then begin
if ExtractFileExt(OpenPictureDialog1.FileName) = '.jpg'
then begin
jpg.LoadFromFile(OpenPictureDialog1.FileName);
try
Image1.Canvas.StretchDraw(rect(0,0,Image1.Width, Image1.Height), jpg);
image1.Picture.Bitmap.SaveToFile(ExtractFilePath(A pplication.exeName) + 'Bild.bmp');
except
raise;
end;
end;
end;

jpg.free;
end;
</PRE>
Gruß Andrea

[markus lemcke]

danke andreas!

werde es heute abend testen. ist für meinen bildbetrachter.

Gruß

Marku

[markus lemcke]

habe gerade noch was entdeckt:

{
This Demo Will convert Any type of TGraphic descendant to a TBitmap image...
Tested with TJPEGImage and Some of the GraphicEx library by Mike Lischke (http://www.delphi-gems.com).
}
<pre>
procedure ConvertToBitmap(Source : TGraphic; Bitmap : TBitmap);
begin
if Bitmap = nil then
Bitmap := TBitmap.Create
else Bitmap.FreeImage;
Bitmap.Width := Source.Width;
Bitmap.Height := Source.Height;
Bitmap.Canvas.Draw(0,0,Source);
end;
</pre>

Gruß

Marku