Consulta Blob

[darkerviti]

Buenas,

Estoy haciendo una aplicación que tiene que insertar un .DOC en un campo blob, he estado leyendo por ahi y todo lo que pruebo me da error, el error es siempre el mismo:

No se admite el tipo de datosEste error me da siempre que intento hacer el open de la query.

Os pego el codigo de la funcion a ver si me podeis arrojar un poco de luz.

Muchas gracias.


procedure TFInformeSup.btnEnviarClick(Sender: TObject);
var
stream: TMemoryStream;
query : TADOquery;
begin
if (tipo_param > 0) and (zona_inf > 0) then
begin
if FileExists(eInforme.Text) then
begin
try
query := TADOQuery.Create(nil);
query.Connection := DM.conexion;
stream := TMemoryStream.Create;
if stream = nil then
begin
ShowMessage('No se ha podido leer el fichero.');
Exit
end;
query.SQL.Add('SELECT * FROM azul_ficherossuperacion);
stream.LoadFromFile(eInforme.Text);
stream.Seek(0, 0);
query.Open;
try
query.Append;
except
on E: Exception do ShowMessage(E.Message);
end;
query.FieldByName('nombre_fs').AsString :=
uppercase(ExtractFileName(eInforme.Text));
TBlobField(query.FieldByName('ficherosup_fs')).LoadFromStream(stream);
try
query.Post;
except
end;
query.Close;
finally
stream.free;
query.Close;
query.Free;
end;
end
else
ShowMessage('Por favor, seleccione un archivo a enviar válido.');
end
else
ShowMessage('Por favor, seleccione un parámetro y/o zona.');
end;

[darkerviti]

Ya está solucionado, he tenido que cambiar el provider y con eso todo funcionando.

Un saludo y gracias.