Inserindo somente o caminho da imagem...

Delphi

17/05/2006

Boa noite pessoal, procurei e não achei nada específico para o que eu quero fazer....
Quero clicar em um timage ou dbimage e vai abrir aquela caixa pedindo pra localizar a imagem... após eu selecionar, eu gostaria de pegar o nome da foto e sua extensão para inserir no firebird somente o caminho da imagem.

Alguém pode me dar uma luz sobre isso?

Att.


Flaviobrazuca

Flaviobrazuca

Curtidas 0

Respostas

Flaviobrazuca

Flaviobrazuca

17/05/2006

Pessoal, descobri como... fica aí a juda pra que se interessar: é só inserir esse código no ondbclick do timage.

if OpenPictureDialog1.Execute then
begin
if (OpenPictureDialog1.Filename<>´´) then
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.Filename);
// grava a nova foto para o título
IBQGravaFoto.Active := False;
IBQGravaFoto.SQL.Clear;
IBQGravaFoto.SQL.Add(´update cliente set foto=´+QuotedStr(ExtractFileName(OpenPictureDialog1.Filename))+´ where cod_cliente=´ + QuotedStr(EDCodigo.Text));
IBQGravaFoto.Active:=True;
Image1.Enabled:=False;
DMBanco.IBTrSisloc.CommitRetaining;
end;
end;

Até...


GOSTEI 0
Flaviobrazuca

Flaviobrazuca

17/05/2006

Boa noite pessoal, procurei e não achei nada específico para o que eu quero fazer.... Quero clicar em um timage ou dbimage e vai abrir aquela caixa pedindo pra localizar a imagem... após eu selecionar, eu gostaria de pegar o nome da foto e sua extensão para inserir no firebird somente o caminho da imagem. Alguém pode me dar uma luz sobre isso? Att.



GOSTEI 0
POSTAR