Concatenación de campos BLOB

[ecfisa]

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
  // Field1
  s1 := TStringStream.Create('');
  try
    TBlobField(Field1).SaveToStream(s1);
    a := s1.DataString;
    SetLength(a, Length(a)-SizeOf(DWORD));
  finally
    s1.Free;
  end;

  // Field2
  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