Subir Imagenes a un campo BLOB
Utilizo el siguiente codigo en DELPHI 5
while not qSelect.Eof do
begin
with qinsert do begin
with SQL do
begin
clear;
add('INSERT INTO INCORIMA11 ');
add('(MATRISIIA,MATRICULA,EXPED,NOMBRE,NUM,ARCHIVO,VOL,IMAGEN) ');
add('VALUES(:MATRISIIA, :MATRICULA, :EXPED, :NOMBRE, :NUM, :ARCHIVO, :VOL, :IMAGEN ')
end;
filename := 'D:\Imagenes\11I\'+qSelect['archivo']+'.TIF';
Params[0].AsString := qSelect['MATRISIIA'];
Params[1].AsString := qSelect['MATRICULA'];
Params[2].AsString := qSelect['EXPED'];
Params[3].AsString := qSelect['NOMBRE'];
Params[4].AsString := qSelect['NUM'];
Params[5].AsString := qSelect['ARCHIVO'];
Params[6].AsString := qSelect['VOL'];
Params[7].LoadFromFile(filename,ftBlob);
end;
try
qInsert.ExecSQL;
cargadas := cargadas+1;
except on E: Exception do
begin
no_cargadas := no_cargadas+1;
ListBox1.Items.Add(qSelect['MATRISIIA']);
end; //end except
end; //end try
ProgressBar1.Position:= ProgressBar1.Position +1;
qSelect.Next;
end;//end while
Y al ejecutarlo dura un rato y se desconecta de la base de datos
Alguien que mepueda ayudar
|