كيف يمكنني تحويل صورة WMF إلى GIF أو PNG مع Delphi؟
-
21-09-2019 - |
المحلول
PNG ليس بهذه الصعوبة ، يشمل Delphi 2009 tpngimage. بالنسبة لـ GIF ، يمكنك استخدام GDI+ أو مكون Tgifimage ...
هذا هو الرمز:
procedure Test;
var
p : TPicture;
png : TPngImage;
begin
try
p := TPicture.Create;
p.LoadFromFile('c:\INPUT.WMF');
png := TPngImage.CreateBlank(COLOR_RGB, 8, p.Width, p.Height);
png.Canvas.Draw(0,0, p.Graphic);
png.SaveToFile('C:\OUTPUT.png');
finally
Free(p);
Free(png);
end;
end;
لا تنتمي إلى StackOverflow