Erst mal vielen Dank an alle, die mich hier mit ihren Kenntnissen unterstützt haben.
Ich habe mit verschiedenen Grafikformaten getestet und speichere die Kopfbögen jetzt als Bitmap.
Die neuen Grafiken sind jetzt, da Bitmap statt 1 MB 26 MG groß.
Frank
An anderer Stelle wurde ja schon darauf hingewiesen das die Anzahl der Farben eine große Rolle spielt. Bei den meisten Headern in Briefen etc. kommt man eigentlich mit einer kleinen Anzahl aus, es sei denn es sind Farbverläufe etc. vorhanden. Helfen kann da eine optimierte Palette zu verwenden. Delphis TGifImage hat eine Methode Optimize bzw. OptimizeColorMap damit kann man relativ kleine Bilder erzeugen.
Um ein Bild nach Gif zu konvertieren kannst Du beispielsweise
Code:
procedure ConvertBMP2GIF;
var
bmp: TBitmap;
gif: TGIFImage;
begin
gif := TGifImage.Create;
try
bmp := TBitmap.Create;
try
bmp.LoadFromFile('MyBitmap.BMP');
gif.Assign(bmp);
finally
bmp.Free;
end;
gif.SaveToFile('MyBitmap.GIF');
finally
gif.Free;
end;
end;
verwenden
hth Ha Joe