Imagem

Question

Boa Tarden�o sei como fazer o seguinte:quero que o usu�rio escolha uma imagem;eu preciso salvar esta imagem em uma outra pasta e o caminho dela no banco para poder buscar.n�o sei que componente usar p...

Eduprp · Answer

Bem voc� pode fazer o seguinte.

Coloque um componente TImage e um componente TOpenPicuteDialog, coloque um bot�o para executar o OpenPictureDialog, esse �ltimo componente retorna a path do arquivo selecionado.
Voc� pode gravar essa path no banco de dados.
Quando for efetuar a leitura da path gravada vc pode usar a fun��o
LoadFromFile.

Eduardo

Dessa · Answer

Eduardoobrigada, mas tenho mais uma perguntaeu gostaria de salvar a imagem em outra pasta, por exemplo o usu�rio escolheu uma imagem que esta na pasta c:meus documentos, eu quero salvar esta imagem na pasta c:sistemaimagenscomo fa�o isso?...

Eduprp · Answer

Utilize a fun��o CopyFile(pasta atual+arquivo,pasta destino + arquivo,true);Eduardo...

Wilson Brito · Answer

Depois de carregada a imagem no TImage...[b:51bf518d86]Exemplo.[/b:51bf518d86][code:1:51bf518d86]Image1.Picture.SaveToFile(�c:sistemaimagensnomeimagem.bmp�);[/code:1:51bf518d86]...

Eduprp · Answer

Vc pode fazer isso depois ou mesmo quando seleciona o diret�rion no OpenPictureDialog. Acho que tenho um exemplo desses me passe seu e-mail que te mando. Eduardo....

Horus · Answer

Tenho uma sugestao...nao sei se vai te ajudar...talvez voce ja ate tenha pensado nisso mas, nao custa tentar.

Coloque um OpenPictureDialog no seu form da paleta Dialogs.
Tambem um componente Image e um botao.

No evento OnClick do botao dispare a funcao Execute do OpenPictureDialog e nele indique o arquivo para ser aberto no
componente Image. Na sua tabela deve haver um campo para armazenar o caminho da imagem entao adicione o caminho da mesma neste campo.


var
 Origem, Destino : string;

begin
  Destino := �c:\pastaquedesejacopiaraimagem�;
  if openpicturedialog1.execute then
    begin
      Origem := OpenPictureDialog1.Filename;
      Image1.Picture.LoadFromFile(Origem);
      Image1.Refresh;
      CopyFile(Origem, Destino, true);   
      SuaTabela.Edit;
      SuaTabelaCampo.Value := Destino;
   end;

Espero ter ajudado.
Qualquer duvida...

Dessa · Answer

valeu Eduardomeu e-mail: dessapetroli@yahoo.com.br...

Dessa · Answer

valeu horus...

Eduprp · Answer

OlaEstava mandando o exemplo, mas meu colega foi mais r�pido que eu..rs. � exatamente o que ele fez.Abra�os. t� +...

F�rum Imagem #293075