Tenho uma aplicação que utiliza fotos em tamanho pequeno, então gravo tudo
no bd, e utilizo o componente freeware EDBImage.
Em 28/02/07, Desenvolvimento (Anderson) <[EMAIL PROTECTED]>
escreveu:
>
> outra forma de vc fazer o mesmo é vc usar filestream... mas daí vc teria
> q trabalhar com campos blob.
> outra coisa: saiba q esse código é em relação ao server....
> logo, se vc pedir pra salvar em C:/, ele vai salvar no C:/ do server,
> hein!!!
> e mais: o certo é / e não \
>
> boa sorte!
>
> ----- Original Message -----
> From: Cleiton
> To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Sent: Wednesday, February 28, 2007 12:58 PM
> Subject: [delphi-br] Re: imagem jpg com banco de dados
>
> Oi Anderson... tudo bom?
>
> Valeu pela dica... eu vou testar aqui e depois te digo se deu certo
> ----- Original Message -----
> From: Desenvolvimento (Anderson)
> To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Sent: Tuesday, February 27, 2007 2:00 PM
> Subject: Re: [delphi-br] imagem jpg com banco de dados
>
> inserir:
>
> var
> s : string;
> i : integer;
> begin
> if openpicturedialog1.execute then
> begin
> s := '';
> for i := 1 to length(openpicturedialog1.filename) do
> begin
> if openpicturedialog1.filename[i] = '\' then
> s := s + '/' else
> s := s + openpicturedialog1.filename[i];
> end;
> qysql.close;
> qysql.sql.clear;
> qysql.sql.add('INSERT INTO imagens (imagem) VALUES (LOAD_FILE("'+s+'"))');
> qysql.execsql;
> end;
>
> para ler:
>
> try
> deletefile('c:\imagem_rec.jpg');
> qysql.close;
> qysql.sql.clear;
> qysql.sql.add(' SELECT imagem FROM imagens where codigo =
> '+ztable1.fieldbyname('codigo').asstring+ ' INTO DUMPFILE
> "C:/imagem_rec.jpg"');
> qysql.execsql;
> image1.picture.LoadFromFile('c:\imagem_rec.jpg');
> except
> end;
>
> ----- Original Message -----
> From: Cleiton
> To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Sent: Tuesday, February 27, 2007 1:26 PM
> Subject: [delphi-br] imagem jpg com banco de dados
>
> Pessoal...
>
> Estou precisando desenvolver um cadastro simples, apenas pra consulta
> envolvendo imagens jpg com banco de dados.
>
> Uso delphi 7, my sql 4.1 e zeos. Alguém teria alguma sugestão de por onde
> poderia começar?
> --
> Esta mensagem foi verificada pelo sistema de antivírus e
> acredita-se estar livre de perigo.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> __________ Informação do NOD32 IMON 2083 (20070227) __________
>
> Esta mensagem foi verificada pelo NOD32 sistema antivírus
> http://www.eset.com.br
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> --
> Esta mensagem foi verificada pelo sistema de antivírus e
> acredita-se estar livre de perigo.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> __________ Informação do NOD32 IMON 2085 (20070228) __________
>
> Esta mensagem foi verificada pelo NOD32 sistema antivírus
> http://www.eset.com.br
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Alexandre Peçanha
[EMAIL PROTECTED]
[As partes desta mensagem que não continham texto foram removidas]
