Greed Postado Dezembro 27, 2007 Denunciar Share Postado Dezembro 27, 2007 (editado) 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 DadosObrigado Editado Dezembro 27, 2007 por Micheus Adicionada a tag [CODE] para melhor visualização do código. Lembre-se de utilizá-la. ;-) Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Fireboard Postado Dezembro 27, 2007 Denunciar Share Postado Dezembro 27, 2007 Dê uma olhada neste tópico, acho que é o que você está pesquisando:http://scriptbrasil.com.br/forum/index.php...g\.Execute Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Micheus Postado Dezembro 27, 2007 Denunciar Share Postado Dezembro 27, 2007 Dê uma olhada neste tópico, acho que é o que você está pesquisando:http://scriptbrasil.com.br/forum/index.php...g\.ExecuteFireboard, 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 DadosGreed, 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Fireboard Postado Dezembro 28, 2007 Denunciar Share Postado Dezembro 28, 2007 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Greed Postado Janeiro 2, 2008 Autor Denunciar Share Postado Janeiro 2, 2008 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 ajudadoCaro 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 ^^ Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Fireboard Postado Janeiro 2, 2008 Denunciar Share Postado Janeiro 2, 2008 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
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:
No caso da imagem estou usando: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 MicheusAdicionada 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
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.