Ir para conteúdo
Fórum Script Brasil
  • 0

como chamo uma imagem de um banco em paradox para um form?


Greed

Pergunta

Bom Tarde amigos, gostaria de saber como faço para trazer uma imagem do meu banco de dados feito em Paradox, para o meu form do delphi.

Estou usando os seguintes códigos para trazer as informações do banco:

begin
  DBEdit1.text:= DM.Tb.FieldByName('Codigo').AsString;
  DBEdit2.text:= DM.Tb.FieldByName('Nome').AsString;
  DBEdit3.text:= DM.Tb.FieldByName('DataNascimento').AsString;
  DBEdit4.text:= DM.Tb.FieldByName('Endereco').AsString;
  DBEdit5.text:= DM.Tb.FieldByName('Numero').AsString;
  DBEdit6.text:= DM.Tb.FieldByName('Complemento').AsString;
  DBEdit7.text:= DM.Tb.FieldByName('Bairro').AsString;
end;
No caso da imagem estou usando:
DBImage1.Picture:= DM.Tb.FieldByName('Foto').As????;

no lugar de ???? o que deve ser posto?

Existe algum outro código a ser utilizado que não conheço?

* DM é o meu Data Module

* Tb é o meu banco de Dados

Obrigado

Editado por Micheus
Adicionada a tag [CODE] para melhor visualização do código. Lembre-se de utilizá-la. ;-)
Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0
Dê uma olhada neste tópico, acho que é o que você está pesquisando:

http://scriptbrasil.com.br/forum/index.php...g\.Execute

Fireboard, acho que não é bem isto não. Neste post, está explicado como carregar uma imagem para o banco de dados.

Mas, aparentemente o colega Greed já tem a imagem no banco de dados e quer mostrá-la no form.

Bom Tarde amigos, gostaria de saber como faço para trazer uma imagem do meu banco de dados feito em Paradox, para o meu form do delphi.

Estou usando os seguintes códigos para trazer as informações do banco:

begin
  DBEdit1.text:= DM.Tb.FieldByName('Codigo').AsString;
  DBEdit2.text:= DM.Tb.FieldByName('Nome').AsString;
  DBEdit3.text:= DM.Tb.FieldByName('DataNascimento').AsString;
  DBEdit4.text:= DM.Tb.FieldByName('Endereco').AsString;
  DBEdit5.text:= DM.Tb.FieldByName('Numero').AsString;
  DBEdit6.text:= DM.Tb.FieldByName('Complemento').AsString;
  DBEdit7.text:= DM.Tb.FieldByName('Bairro').AsString;
end;
No caso da imagem estou usando:
DBImage1.Picture:= DM.Tb.FieldByName('Foto').As????;

no lugar de ???? o que deve ser posto?

Existe algum outro código a ser utilizado que não conheço?

* DM é o meu Data Module

* Tb é o meu banco de Dados

Greed, será que posse lhe questionar de onde você tirou este tipo de exemplo?

É o seguinte, você tem componentes data-aware em seu form: são os TDBEdits o TDBImage; com eles corretamente configurados, você não precisa de nenhuma destas linhas de código para mostrar os dados nos DBEdits e no DBImage! ;)

Com é feita esta configuração: nestes componentes existem duas propriedades importantes:

- Datasource, que faz a ligação com o dataset desejado;

- FieldName, que diz de qual campo no dataset, você quer obter a informação a ser mostrada.

Como você utiliza datamodule, ao clicar na propriedade DataSource dos DBEdits (esta deve ser a primeira a ser setada), você deverá ver uma lista dos datasources (com seus respectivos datasets setados) lá existentes. Entretanto, faz-se necessário que você tenha acrescentado o nome da unit do seu datamodule na cláusula Uses do form onde está tentando acessá-la. Estando tudo OK, você poderá selecionar, da lista que aparece, o datasource desejado.

Feito isto, na propriedade FieldName, você estará ápto a selecionar o campo que será mostrado/editado no DBEdit selecionado.

Dê uma conferida no que você está fazendo, pois este é o modo correto de fazer as coisas quando utiliza os componentes data-aware (simplicidade e facilidade).

Abraços

Link para o comentário
Compartilhar em outros sites

  • 0

Eu fiz o seguinte:

Inseri um objeto image no formulário e no banco de dados tenho um campo que armazena somente o caminho da figura (declarei como alfanumérico)

Quando carrego o formulário, no evento on create inseri os códigos:

imagem.Stretch:=true; // para acertar o tamanho da figura ao objeto

imagem.Picture.LoadFromFile(DatRec.TbParametrosLogotipo.Text); // a propriedade picture do objeto imagem busca a imagem contida no caminho DatRec.TbParametrosLogotipo.Text.

Para alterar a imagem (caso queira) inseri um button com os códigos:

OpenPictureDialog.Execute; // você deve inserir um objeto OpenPictureDialog na aba Dialogs do Delphi

if OpenPictureDialog.FileName <> '' then

begin

DbLogotipo.Text:=OpenPictureDialog.FileName;

imagem.Stretch:=true;

Imagem.Picture.LoadFromFile(DatRec.TbParametrosLogotipo.Text);

end;

Obs.: Quando você fechar a tela da OpenPictureDialog, a imagem não se alterará, você deverá inserir novamente a linha Imagem.Picture.LoadFromFile(DatRec.TbParametrosLogotipo.Text);

para o objeto imagem alterar a figura.

Espero ter ajudado

Link para o comentário
Compartilhar em outros sites

  • 0
Quando carrego o formulário, no evento on create inseri os códigos:

imagem.Stretch:=true; // para acertar o tamanho da figura ao objeto

imagem.Picture.LoadFromFile(DatRec.TbParametrosLogotipo.Text); // a propriedade picture do objeto imagem busca a imagem contida no caminho DatRec.TbParametrosLogotipo.Text.

Para alterar a imagem (caso queira) inseri um button com os códigos:

OpenPictureDialog.Execute; // você deve inserir um objeto OpenPictureDialog na aba Dialogs do Delphi

if OpenPictureDialog.FileName <> '' then

begin

DbLogotipo.Text:=OpenPictureDialog.FileName;

imagem.Stretch:=true;

Imagem.Picture.LoadFromFile(DatRec.TbParametrosLogotipo.Text);

end;

Obs.: Quando você fechar a tela da OpenPictureDialog, a imagem não se alterará, você deverá inserir novamente a linha Imagem.Picture.LoadFromFile(DatRec.TbParametrosLogotipo.Text);

para o objeto imagem alterar a figura.

Espero ter ajudado

Caro Fireboard, não estou conseguindo fazer funcionar, o delphi 7 me diz que são variáveis não declaradas e não compila

[Error] U_Pes_Func.pas(215): Undeclared identifier: 'DatRec'

[Error] U_Pes_Func.pas(215): Undeclared identifier: 'Text'

[Error] U_Pes_Func.pas(227): Undeclared identifier: 'DbLogotipo'

Esse 'DbLogotipo' seria o que?

Obrigado pela atenção, espero que tenham passado bem a virada de ano ^^

Link para o comentário
Compartilhar em outros sites

  • 0

Caro Fireboard, não estou conseguindo fazer funcionar, o delphi 7 me diz que são variáveis não declaradas e não compila

[Error]U_Pes_Func.pas(215): Undeclared identifier: 'DatRec'

[Error] U_Pes_Func.pas(215): Undeclared identifier: 'Text'

[Error] U_Pes_Func.pas(227): Undeclared identifier: 'DbLogotipo'

Esse 'DbLogotipo' seria o que?

Obrigado pela atenção, espero que tenham passado bem a virada de ano ^^

Bem Greed, no exemplo que te passei:

DatRec.TbParametrosLogotipo.Text,

DatRec é o DataModule;

Text é o conteúdo do campo Logotipo da tabela parâmetros do banco de dados, neste caso criei um data module com o nome DatRec, uma tabela com o nome TbParametros e um campo para armezenar o caminho da imagem chamado Logotipo.

DbLogotipo é o objeto que está amarrado a tabela TbParametros e ao campo logotipo que contém o caminho em que está a figura.

Mude os objetos para o nome que você deu ao seu banco de dados, tabelas e campos para ver se funciona.

Abraços

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...