this slowpoke moves

Comvert Bitmap to WMF

procedure BmpToWmf(BmpFile, WmfFile: string);
var MetaFile: TMetaFile; 
    MFCanvas: TMetaFileCanvas; 
    BMP: TBitmap;
begin  
    MetaFile := TMetaFile.Create; try
    BMP := TBitmap.Create; 
    try 
      BMP.LoadFromFile(BmpFile);
      MetaFile.Height := BMP.Height; 
      MetaFile.Width  := BMP.Width;
      MFCanvas := TMetafileCanvas.Create(MetaFile, 0);  
       try
        MFCanvas.Draw(0, 0, BMP); 
       finally 
       MFCanvas.Free; 
       end; 
    finally 
    BMP.Free;
    end; 
    MetaFile.SaveToFile(WmfFile); 
    finally 
    MetaFile.Free; 
    end;
end;
Beispiel :
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    try
    BmpToWmf(OpenDialog1.FileName, OpenDialog1.FileName + '.wmf');
    finally
    end;
  end;
end;

Keine Kommentare:

Kommentar veröffentlichen

Beliebte Posts

Translate