wmf -> jpeg

Cara tenta assim, coloca em seu form um savepicturedlg e um botão, no Botão voc6e vai digitar isso:



Qualquer coisa vc posta aqui. Abraços

neste caso....pelo q testei ...ele soh renomeia o arquivo... como no cmd rename

Cara eu testei aqui e funcionou perfeitamente. Seu sistema abriu a caixa de dialogo para salvar sua foto?

mas ele naum faz a conversao em si do arquivo ...soh renomeia...   conseg em um outro forum...   procedure TForm1.Button1Click(Sender: TObject);
var Pic: TPicture;
  JpegImg: TJpegImage;
  Img : TImage;
begin
Pic := TPicture.Create;
Img := TImage.Create(self);
try
 Pic.LoadFromFile('c:\wmfpic.wmf');
 JpegImg := TJpegImage.Create;
 try
 Img.Height := Pic.Height;
 Img.Width := Pic.Width;
 Img.Canvas.Draw(0,0,Pic.Graphic );
 JpegImg.Assign(Img.picture.Bitmap );
 JpegImg.SaveToFile('c:\jpgpic.jpg');
 finally
   JpegImg.Free
 end;
finally
 Pic.Free;
 Img.Free;
end;
end;     desd jah...obrigado