Trabalhando Com Campo Blob

[mcsmarmcs]

Já tentei várias formas descritas na internet e não consigo salvar uma foto no MySQL.

Estou usando MySQL 5.0, Delphi 2006 e componente AdoQuery.

Tenho uma tabela com o nome produto que possui um campo chamado foto, este campo é do tipo blob.

Coloquei no Delphi uma DbImage para exibir as fotos.

Curiosidade: Fiz várias tentativas pra gravar a foto no banco de dados e em uma acabei conseguindo, mas por não ver a foto no DbImage, apaguei o método que fez isso.

Agora não consigo mais gravar foto nenhuma no banco, o que devo fazer.

[Guest --felipe --]

Já tentei várias formas descritas na internet e não consigo salvar uma foto no MySQL.

Estou usando MySQL 5.0, Delphi 2006 e componente AdoQuery.

Tenho uma tabela com o nome produto que possui um campo chamado foto, este campo é do tipo blob.

Coloquei no Delphi uma DbImage para exibir as fotos.

Curiosidade: Fiz várias tentativas pra gravar a foto no banco de dados e em uma acabei conseguindo, mas por não ver a foto no DbImage, apaguei o método que fez isso.

Agora não consigo mais gravar foto nenhuma no banco, o que devo fazer.

ai cara tive testando aqui

e deu certo...

usei um IbQuery, DBImage e um DBText (apenas para o campo primario)

criei uma datasource e liguei a IBQuery

e no codigo eu botei:

procedure TPrincipalForm.Button1Click(Sender: TObject);
var
  s:string;
  i:integer;
begin
  s:='select * from image';
  dm.auxquery.Close;
  dm.auxQuery.SQL.Clear;
  dm.auxQuery.SQL.Add(s);
  dm.auxQuery.Open;
  dm.auxQuery.Append;
  i:=i+1;
  DBedit1.Text:=inttostr(i);
  DBImage1.Picture.LoadFromFile('c:\documents and settings\lfelipe\meus documentos\volcom surfboards.bmp');
  dm.AuxQuery.ApplyUpdates;
end;

[Guest --felipe --]

Já tentei várias formas descritas na internet e não consigo salvar uma foto no MySQL.

Estou usando MySQL 5.0, Delphi 2006 e componente AdoQuery.

Tenho uma tabela com o nome produto que possui um campo chamado foto, este campo é do tipo blob.

Coloquei no Delphi uma DbImage para exibir as fotos.

Curiosidade: Fiz várias tentativas pra gravar a foto no banco de dados e em uma acabei conseguindo, mas por não ver a foto no DbImage, apaguei o método que fez isso.

Agora não consigo mais gravar foto nenhuma no banco, o que devo fazer.

ai cara tive testando aqui

e deu certo...

usei um IbQuery, DBImage e um DBText (apenas para o campo primario)

criei uma datasource e liguei a IBQuery

e no codigo eu botei:

procedure TPrincipalForm.Button1Click(Sender: TObject);
var
  s:string;
  i:integer;
begin
  s:='select * from image';
  dm.auxquery.Close;
  dm.auxQuery.SQL.Clear;
  dm.auxQuery.SQL.Add(s);
  dm.auxQuery.Open;
  dm.auxQuery.Append;
  i:=i+1;
  DBedit1.Text:=inttostr(i);
  DBImage1.Picture.LoadFromFile('c:\documents and settings\lfelipe\meus documentos\volcom surfboards.bmp');
  dm.AuxQuery.ApplyUpdates;
end;

ah e para o usuario informar o caminho basta usar uma input box

caminho:= InputBox(fname,'Caminho do arquivo:','c:\');

[mcsmarmcs]

Não funcionou.

Antes tinha funcionado, mas depois que eu fechei o sistema e abri novamente recebi uma mensagem do tipo: "O campo esperado era BLOB agora, atualmente é VarBytes"!

Agora não consigo mais colocar fotos no banco e não consigo visualizar as fotos.

Só vejo as fotos usando MySQL Query Browser.

[Guest --felipe --]

Não funcionou.

Antes tinha funcionado, mas depois que eu fechei o sistema e abri novamente recebi uma mensagem do tipo: "O campo esperado era BLOB agora, atualmente é VarBytes"!

Agora não consigo mais colocar fotos no banco e não consigo visualizar as fotos.

Só vejo as fotos usando MySQL Query Browser.

bá então não sei cara

checa a query ai sei la

já criasse o IBUpdateSQL ??

olha bem ai, o delphi é cheio de detalhezinho

abraço

[Micheus]

Estou usando MySQL 5.0, Delphi 2006 e componente AdoQuery.

bá então não sei cara

checa a query ai sei la

já criasse o IBUpdateSQL ??

Pessoal, primeiro de tudo vocês tem que falar na mesma linguagem, senão acho que não se chega a lugar algum.

mcsmarmcs diz trabalhar com ADOQuery (paleta ADO) e o felipe comenta exemplificando com os componentes da paleta IB. Tá sujeito a problemas de comunicação.

É sempre importante termos as informações o mais corretas possíveis. Já não é fácil tirar dúvidas no "campo da virtualidade", quanto mais se estamos falando linguas diferentes. ;)

É por isso que sempre insisto em:

- mensagem de erro original (nada de tradução - está sujeito a interpretação);

- bando de dados em uso, e;

- componentes de acesso utilizados.

Abraços

[4njo]

Oi pessoal...espero poder ajudar em meu primeiro post. Sou iniciante em programação, mas tive semanas sofridas quando estava trabalhando com registro de fotos no Delphi com banco InterBase - SQL , com campos Blob. Porém a coisa é mais facil do que imaginamos.

Percebi que os processos indicados acima são muito complexos e não há necessidade de tudo isso. mas vamos lá:

insira um componente TOpenPictureDialog , TDBImage e um Button. depois , clique duas vezes no Button para inserir o código na procedure:

procedure nomedoseuform.BitBtn1Click(Sender: TObject);

begin

if TOpenPictureDialog.Execute then DBImage1.Picture.LoadFromFile(TOpenPictureDialog.FileName);

end;

só isso cara. Só não esqueça de adicionar JPEG em Units.

espero que de certo.

Editado Junho 22, 2007 por 4njo

[Jhoniboni]

Oi pessoal...espero poder ajudar em meu primeiro post. Sou iniciante em programação, mas tive semanas sofridas quando estava trabalhando com registro de fotos no Delphi com banco InterBase - SQL , com campos Blob. Porém a coisa é mais facil do que imaginamos.

Percebi que os processos indicados acima são muito complexos e não há necessidade de tudo isso. mas vamos lá:

insira um componente TOpenPictureDialog , TDBImage e um Button. depois , clique duas vezes no Button para inserir o código na procedure:

procedure nomedoseuform.BitBtn1Click(Sender: TObject);

begin

if TOpenPictureDialog.Execute then DBImage1.Picture.LoadFromFile(TOpenPictureDialog.FileName);

end;

só isso cara. Só não esqueça de adicionar JPEG em Units.

espero que de certo.

4njo, ou alguém... pode me responder onde eu "adiciono JPEG em Units", pois eu estou com um problema parecido, o meu programa funciona, mas eu não consigo adicionar arquivos JPEG, se alguém puder me ajudar o mais rápido possível, eu agradeço desde já.

[Micheus]

Acho que vai ser difícil de o 4njo responder, pelo que consta no perfil dele, a sua última atividade foir em 30/Jun/2007. :mellow:

então, faça o seguinte, apenas acrescente o nome a unit jpeg à cláusula Uses do seu da unit do form em que você vai utilizá-la:

unit uFrmCadstro;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, 
  Forms, Dialogs, ..., jpeg;
...

Abraços

[Guest Crys Maxson]

meu amigo anjo é so usar esse codigo

procedure Tfrmchekliste.SpeedButton3Click(Sender: TObject);
var 
  sqltexto : string;
  jpg1 : TJpegImage;
begin
  if OPPicture.FileName <>'' then
  begin
    jpg1 := TJpegImage.Create;
    jpg1.LoadFromFile(OPPicture.FileName);
    dt_dados.Table_IMAGEM.FieldByName('IMAGEM').Assign(jpg1);
    jpg1.Free;
  end
  else
  Begin
   dt_dados.Table_IMAGEM.FieldByName('IMAGEM').value := '';
  end;
end;
end.

vamos as explicações

declara na use units JPEG ,Clipbrd

colocar no formulário um botton e um OpenDialog1 que esta na pelleta dialogs

renomeie o opendialog1 para OPPicture

dt_dados.Table_IMAGEM = nome da tabela onde irei armazenar a imagem

qualquer duvida - crysmaxson@gmail.com

Editado Fevereiro 26, 2008 por Micheus
Incluída tag's CODE para melhorar a visualização, bem como identado o código. Utilize a identação também ;)