Hola.
Como comentaste que necesitabas concatenar dos campos Blob, te pongo una alternativa que prescinde del uso de
TRichEdit para la conversión:
Código Delphi
[-]
function ConcatBlob(Field1, Field2: TField): string;
var
s1, s2: TStringStream;
a, b: string;
begin
s1 := TStringStream.Create('');
try
TBlobField(Field1).SaveToStream(s1);
a := s1.DataString;
SetLength(a, Length(a)-SizeOf(DWORD));
finally
s1.Free;
end;
s2 := TStringStream.Create('');
try
TBlobField(Field2).SaveToStream(s2);
b := s2.DataString;
finally
s2.Free;
end;
Result := a + b;
end;
Ejemplo de uso:
Código Delphi
[-]
procedure TForm1.btConcatClick(Sender: TObject);
var
cad: string;
begin
cad := ConcatBlob(DataSet.FieldByName('BLOB_1'), DataSet.FieldByName('BLOB_2'));
RichEdit3.Text := cad;
end;
Resultado:
Saludos