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

[Greed]

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 Dezembro 27, 2007 por Micheus
Adicionada a tag [CODE] para melhor visualização do código. Lembre-se de utilizá-la. ;-)

[Fireboard]

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

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

[Micheus]

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

[Fireboard]

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

[Greed]

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 ^^

[Fireboard]

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