criei uma variavel do tipo word e substitui a variavel CF_BITMAP poe ela e
compilou, agora irei testar.
lMetaFile.SaveToClipboardFormat(CF_BITMAP, lData, lHandle);
----- Original Message -----
From: Rubem Nascimento da Rocha
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, August 26, 2008 3:24 PM
Subject: RE: [delphi-br] Emf para Jpg
O Delphi possui suporte para arquivos WMF e EMF através da classe TMetaFile.
Criei uma rotina a seguir para fazer essa conversão.
{ Precisa das units Windows e JPEG }
procedure ConvertEmfToJpg(const AMetaFileName: string; AJPegFileName: string);
var
lMetaFile: TMetaFile;
lJpgFile: TJPEGImage;
lData: THandle;
lHandle: hPallete;
begin
if not FileExists(AMetaFileName) then
Exit;
lMetaFile := TMetaFile.Create;
try
// Indica que o arquivo é EMF (Enhanced Meta File)
lMetaFile.Enhanced := true;
// Carrega o arquivo na memória
lMetaFile.LoadFromFile(AMetaFileName);
// Copia o conteúdo do arquivo para a área de transferência
lMetaFile.SaveToClipboardFormat(CF_BITMAP, lData, lHandle);
Clipboard.SetAsHandle(lData, lHandle);
// Cria o JPEG onde o metafile será colado
lJpgFile := TJPEGImage.Create;
try
lJpgFile.LoadFromClipboardFormat(CF_BITMAP, Clipboard.GetAsHandle(CF_BITMAP),
0);
lJpgFile.SaveToFile(AJPEGFileName);
finally
lJpgFile.Free;
end;
finally
lMetaFile.Free;
end;
end;
Veja se isso te ajuda. Não testei, criei essa rotina apenas com o que eu li a
partir do help do Delphi.
Boa sorte!
Sds.
________________________________
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Tue, 26 Aug 2008 14:44:45 -0300
Subject: [delphi-br] Emf para Jpg
Pessoal alguem conhece uma forma de converter uma imagem EMF em JPG pelo
Delphi??
Obrigado.
Alex
__________________________________________________________
Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de
relacionamentos com até 6,000 fotos!
http://www.amigosdomessenger.com.br
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 3385 (20080825) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
