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