ben bmp dosyasını emf olarak kayıt etmek istiyorum ve bunun içinde bir function buldum
şimdi functionu dll dosyasında kulanmak istiyorum bana yardım ede bilirmisin .dll olarak yapım ve
nasıl kulanıldığına anlatırsanız çok güzel olur
Kod: Tümünü seç
function bmp2emf(const SourceFileName: TFileName): Boolean;
var
Metafile: TMetafile;
MetaCanvas: TMetafileCanvas;
Bitmap: TBitmap;
begin
Metafile := TMetaFile.Create;
try
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile(SourceFileName);
Metafile.Height := Bitmap.Height;
Metafile.Width := Bitmap.Width;
MetaCanvas := TMetafileCanvas.Create(Metafile, 0);
try
MetaCanvas.Draw(0, 0, Bitmap);
finally
MetaCanvas.Free;
end;
finally
Bitmap.Free;
end;
Metafile.SaveToFile(ChangeFileExt(SourceFileName, '.emf'));
finally
Metafile.Free;
end;
end;
