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]
