*** BMP TO WMF CONVERT
Bitmap'i (.bmp) Windows ****file'a (.wmf') çevirme :
procedure ConvertBMP2WMF (AImage: TImage; FileName: String);
var
Wmf : T****file;
WmfCanvas: T****fileCanvas;
begin
Wmf := T****file.Create;
try
//Must set width + Height before creating the canvas
Wmf.Width := AImage.Picture.Bitmap.Width;
Wmf.Height := AImage.Picture.Bitmap.Height;
WmfCanvas := T****fileCanvas.Create(Wmf, 0);
try
WmfCanvas.Draw(0,0,AImage.Picture.Bitmap);
finally
WmfCanvas.Free;
end;
Wmf.SaveToFile(FileName);
finally
Wmf.Free;
end;
end;
6 Nisan 2010 Salı
Kaydol:
Kayıt Yorumları (Atom)
Hiç yorum yok:
Yorum Gönder