Hola chicos/as por aquí ando de nuevo. Llevo peinando el blog y el google durante todo el día de ayer y hoy porque intento guardar en una base de datos access imágenes. Pero quiero hacerlo como un filestream, no como una imagen bmp en sí ya que esto último guarda la imagen en bmp más otra estructura con lo que el tamaño de la base de datos aumenta muchísimo. Aparte de que las imágenes no serán en bmp.
Uso Delphi 5
He probado varias formas que no han dado resultado:
Código:
query:=TADOQuery.create(Self);
query.connection:=AC1;
query.SQL.text:='Select Fotografia1 from visitas'; //Fotografia1 es de tipo Objeto OLE
query.active:=true;
query.Edit;
query.LoadFromFile(OpenDialog.FileName);
query.Post;
Esto compila pero al ejecutar el load me dice que "no se puede crear el Recordset desde el origen especificado. El archivo o la secuencia de origen deben contener datos REcordset en formato XML o ADTG"
Código:
Image1 := TImage.Create(Self);
Image1.Picture.LoadFromFile(PATH_IMG+'\logoInforme.bmp');
comm:=TADOCommand.Create(Self);
comm.connection:=AC1;
comm.CommandText:= 'UPDATE visitas SET Fotografia1=:fichero WHERE NVisita='+IntToStr(numVisita);
comm.Parameters.ParamByName('fichero').value:= Variant(Image1);
comm.Execute;
Compilador:Invalid typecast, y sin el cast tipos incompatibles Variant e Image
Lo mismo cambiando el TImage por
Código:
fStream:=TFileStream.Create(OpenDialog.FileName,fmOpenRead);
tbf:=TBlobField.Create(Self);
tbf.LoadFromStream(fStream);
A ver si iniciamos una tormenta de ideas...¿A que estructura podría pasar el filestream para intentar algo? Gracias de antemano
