7 respuestas en este tema

[FGarcia]

En una BD SQLIte tengo declarado un campo llamado:

NOTAS de tipo BLOB_TEXT.

Cuando trato de recuperar el contenido de ese campo y mostrarlo en un Memo uso esta sentencia:

delphi

memNotas.Lines.Text := dmCnx.uqyBuscarPlacasNotas.Value;

y obtengo esto al intentar compilar:

delphi

[DCC Error] ufrmCamion.pas(436): E2010 Incompatible types: 'string' and 'System.TArray<System.Byte>'

¿Que estoy haciendo mal? 

[cram]

Creo que la asignación que haces es el problema. No es posible asignar un BLOB de esa manera. Bueno al menos nunca lo hice.
Por lo pronto lo único que pude encontrar como ejemplo es de BLOBs con el uso de gráficos que por un tiempo me dejó algo perdido y tuve que recurrir a ayuda.
Esta fue la solución, supongo que análogamente se debe hacer con texto. Es decir usando streams.

Esto uso para leer el dato y mostrarlo en un control visual:

Este es el procedimiento que captura el evento OnDataChange de un TDataSource. Está recortado en su parte importante.

delphi

procedure TfrmSABMArtic.dsArticDataChange(Sender: TObject; Field: TField);
var
  JpegImage: TJPEGImage;
  BlobStream: TStream;
begin
  if (not dsArtic.DataSet.FieldByName('IMAGEN').IsNull) then
    begin
      BlobStream:= dsArtic.DataSet.CreateBlobStream(dsArtic.DataSet.FieldByName('Imagen'),bmRead);
      JpegImage:= TJPEGImage.Create;
      try
        JpegImage.LoadFromStream(BlobStream);
        imgImagenArtic.Picture.Assign(JpegImage);
        imgImagenArtic.Visible := True;
      finally
        JpegImage.Free;
        BlobStream.Free;
      end;
    end;
end;

Esto uso al momento de asignar el dato:

delphi

  TGraphicField(dsArtic.DataSet.FieldByName('Imagen')).LoadFromFile(odImgArt.FileName);

Espero te sirva para empezar

[cram]

Me faltó aclarar que:
1. Existe un post de codicus sobre este tema, pero no se como ponerlo ni citarlo aquí.
2. L abase de datos no es SQLite (pero en esto creo que no tiene diferencia)
3. odImgArt es un TOpenDialog
4. dsArtic es un TDataSet

Deberías buscar en el foro por TStream quizá obtengas más info.

[genriquez]

Hola, creo que no debe ser tan complicado.  lo que tu planteas con el stream funciona bien y lo he utilizado con éxito, sin embargo se pude hacer directamente de la siguiente manera.


 

delphi

Memo1.Lines.Text := Query1.FieldByName('campomemo').AsString;

o

 

delphi

Memo1.Lines.Text := TMemoField(Query1.FieldByName('campomemo')).AsString;

Saludos.

[FGarcia]

Creo que la asignación que haces es el problema. No es posible asignar un BLOB de esa manera. Bueno al menos nunca lo hice.
Por lo pronto lo único que pude encontrar como ejemplo es de BLOBs con el uso de gráficos que por un tiempo me dejó algo perdido y tuve que recurrir a ayuda.
Esta fue la solución, supongo que análogamente se debe hacer con texto. Es decir usando streams.

Esto uso para leer el dato y mostrarlo en un control visual:

Ya habia visto este codigo, no lo habia probado pero esta en la biblioteca (¡al fin se me ocurrio hacer una! )

Hola, creo que no debe ser tan complicado.  lo que tu planteas con el stream funciona bien y lo he utilizado con éxito, sin embargo se pude hacer directamente de la siguiente manera.


 

delphi

Memo1.Lines.Text := Query1.FieldByName('campomemo').AsString;

o

 

delphi

Memo1.Lines.Text := TMemoField(Query1.FieldByName('campomemo')).AsString;

Saludos.

Funciono la primera sentencia, aun no pruebo la segunda. Como curiosidad cambie el "asString" por un "Value" y el resultado fue:

慆瑣牵⁡㌲㔴倠潲畤瑣畨敭潤

p.d. Repito como doy por resuelto el tema?

[genriquez]

Hay que tener cuidado con el uso del Value, ya que dejas que el compilador decida el tipo de dato y eso no siempre funciona.

los caracteres raros se dan, porque el compilador no sabe si debe convertir el array de bytes a un AnsiString o a un WideString,  así que termina interpretando mal el array.

En este link te podrás dar cuenta de la diferencia de los tipos de datos de string.

http://hyperbasesuit...sistring-y.html

Saludos.

[FGarcia]

Interesante articulo, sumamente claro y bien explicado.

[cram]

Realmente buen artículo.
Yo creo que me desvié demasiado de tema, por tomar otro camino.
Saludos y
Gracias