Cita:
Empezado por Casimiro Notevi
Qué extraño resulta ese asunto
|
Bueno, va tomando lógica ¿no? Una limitante de SQLite lo obligaba a hacer esa conversión.
Ahora, lo de
Cita:
Empezado por roman
la clase TStringStream no es compatible con la de delphi
|
lo dije, evidentemente, sin pensarlo bien. Estaba equivocado. Ya pude pasar el código a Lázarus para leer la imagen de SQLite y exhibirla en un Image:
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
var
BlobField: TBlobField;
EncodedStream: TStringStream;
DecodedStream: TStringStream;
DataString: String;
begin
BlobField := SQLQuery1.FieldByName('foto') as TBlobField;
EncodedStream := TStringStream.Create('');
try
BlobField.SaveToStream(EncodedStream);
DataString := DecodeString(EncodedStream.DataString);
DecodedStream := TStringStream.Create(DataString);
try
Image1.Picture.Bitmap.LoadFromStream(DecodedStream);
finally
DecodedStream.Free;
end;
finally
EncodedStream.Free;
end;
end;
Al menos me ha funcionado la prueba. Habrá que ver si no tiene algún problema.
// Saludos