Autor
Mensagem
Postado em: 12/9/2010 8:27:32 PM
precisava fazer conversoes de wmf para jpeg...
como poderia fazer esta conversao?
Postado em: 13/9/2010 7:02:58 PM
neste caso....pelo q testei ...ele soh renomeia o arquivo... como no cmd rename
Postado em: 26/9/2010 3:54:43 PM
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;
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
Citação:
Cara eu testei aqui e funcionou perfeitamente. Seu sistema abriu a caixa de dialogo para salvar sua foto?
Citação:
neste caso....pelo q testei ...ele soh renomeia o arquivo... como no cmd rename
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?
