como mudar o nome da imagem

Delphi

08/02/2005

Ola amigos!!!!

uso um OpenDialog para buscar uma imagem e mostra-la em um image so que eu quero fazer com que a imagem seja salva em um path que eu indicar e seu nome seja mudado para o que eu indicar tb

Obrigado
Uilian Gurjon


Uiliangurjon

Uiliangurjon

Curtidas 0

Respostas

Nandolh

Nandolh

08/02/2005

Use SysUtils;
PathOrigem pathDestino
RenameFile(´c:\teste.bmp´,´c:\projetos\aviso.bmp´);
Ele irá mover o arquivo para o pathDestino com o nome desejado


GOSTEI 0
Leoback

Leoback

08/02/2005

Use SysUtils; PathOrigem pathDestino RenameFile(´c:\teste.bmp´,´c:\projetos\aviso.bmp´); Ele irá mover o arquivo para o pathDestino com o nome desejado


Prezado amigo,

O Nando deu uma boa sugestão (inclusive eu desconhecia essa) mas você poderia usar um SavePictureDialog (já com opção para salvar em extensões de imagens conhecidas - bmp, wmf, etc), por exemplo. Utilize o código abaixo.

procedure TForm1.BtnSalvarImagemClick(Sender: TObject);
begin
if [color=red:7ccebf6224]SaveDialog1[/color:7ccebf6224].Execute then (você pode substituir pelo componente SavePictureDialog}
begin
Image1.Picture.SaveToFile([color=red:7ccebf6224]SaveDialog1[/color:7ccebf6224].FileName);
end; //if
end; //procedure

Espero ter ajudado.

Leo


GOSTEI 0
Uiliangurjon

Uiliangurjon

08/02/2005

Valeu!!!!!


GOSTEI 0
POSTAR