F�rum wmf -> jpeg #386149

12/09/2010

Delphi

precisava fazer conversoes de wmf para jpeg... como poderia fazer esta conversao?

Diego...

Curtir t�pico

+ 0

Responder

Posts

13/09/2010

Leonardo Xavier

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

 if SavePictureDialog1.Execute then begin
   Image1.Picture.SaveToFile(SavePictureDialog1.FileName);
 end;

Qualquer coisa vc posta aqui. Abra�os

Responder

Gostei + 0

13/09/2010

Diego...

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

Responder

Gostei + 0

14/09/2010

Leonardo Xavier

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?

Responder

Gostei + 0

26/09/2010

Diego...

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

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?

Responder

Gostei + 0