كيف يمكنني تحويل صورة WMF إلى GIF أو PNG مع Delphi؟

Question

هل هناك طريقة لتحويل أ WMF صورة ل GIF أو بي إن جي مع Delphi 2009 (أو أحدث) مكتبات وقت التشغيل؟ إذا لم يكن الأمر كذلك ، فما هي مكتبة تحويل الصور التي تنصح بها؟

Answer 1

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;