Fórum Inserindo somente o caminho da imagem... #321621
17/05/2006
0
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.
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
Curtir tópico
+ 0
Responder
Posts
07/06/2006
Flaviobrazuca
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é...
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é...
Responder
Gostei + 0
07/06/2006
Flaviobrazuca
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.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)