Leer Campo Blob desde Delphi

[ecfisa]

Hola webmasterplc.

Código Delphi [-]
// Pasar el contenido del record al campo BLOB
procedure RecordToBlob(Rec: RegFormaDePago; Blob: TBlobField);
var
  Stream: TMemoryStream;
begin
  Stream:= TMemoryStream.Create;
  try
    Stream.WriteBuffer(Rec, SizeOf(Rec));
    Stream.Seek(0, soFromBeginning);
    Blob.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

// Pasar el contenido del campo BLOB al record
procedure BlobToRecord(var Rec: RegFormaDePago; Blob: TBlobField);
var
  Stream: TMemoryStream;
begin
  ZeroMemory(@Rec, SizeOf(Rec));
  Stream:= TMemoryStream.Create;
  try
    Stream.SetSize(SizeOf(Rec));
    Blob.SaveToStream(Stream);
    Stream.Seek(0, soFromBeginning);
    Stream.ReadBuffer(Rec, SizeOf(Rec));
  finally
    Stream.Free;
  end;
end;

Ejemplos de llamada:

Código Delphi [-]
// Pasar record a campo BLOB
procedure TForm1.aBlobClick(Sender: TObject);
var
  R: RegFormaDePago;
begin
   ...
   RecordToBlob(R, TBlobField(DataSet.FieldByName('CPBLOB')));
   ...
end;   

// Pasar campo BLOB a record
procedure TForm1.ARecordClick(Sender: TObject);
var
  R: RegFormaDePago;
begin
  ...
  BlobToRecord(R, TBlobField(DataSet.FieldByName('CPBLOB')));
  ... 
end;

Saludos.

[webmasterplc]

Discula cuando antes de estos procedimiento tengo que hacer una consulta y al hacerla me da el siguiente error

Código Delphi [-]
DBISAM Error 8963, "BLOB block buffers corrupt in the table '

estoy trabajando con dbisam 4.3

y me dice undeclarer indifier formadepago

[ecfisa]

Hola.

y me dice undeclarer indifier formadepago

Con respecto a ese error revisa que el nombre del tipo del parámetro correspondiente al record coincida con el nombre del tipo record.

DBISAM Error 8963, "BLOB block buffers corrupt in the table '

Perdón, pero no conozco que es dbisam 4.3 , supongo que es una bd de escritorio y es probable que el nombre del tipo de los campos blob no sea TBlobField.

Para averiguar el nombre del tipo del campo, podes crear los campos persistentes y mirar en el código el nombre del tipo que tiene asignado ese campo.

Saludos.

[ecfisa]

Hola.

Aquí está el manual de DBISAM Version 4

A partir de la página 135, explica como realizar el moldeo a de TDBISAMDataSet a TBlobField incluye un ejemplo pero está en C++, te traduzco la línea relevante:

  dynamic_cast<TBlobField&>(*MyDBISAMDataSet->
    FieldByName("Notes")->LoadFromFile("c:\\temp\\test.txt");

Sería:

Código Delphi [-]
  (MyDBISAMDataSet as TBlobField).FieldByName('Notes').LoadFromFile('C:\temp\test.txt');

Además, dispone de la clase TDBISAMBlobStream que permite trabajar diréctamente con Streams, tambíen está explicado con un ejemplo seguidamente.

Espero te sirva la información.

Saludos.

[webmasterplc]

Empezado por ecfisa

Hola.


Con respecto a ese error revisa que el nombre del tipo del parámetro correspondiente al record coincida con el nombre del tipo record.
Saludos.

Disculpe he buscado pero no doy pie no soy tan experto en esto de delphi

[ecfisa]

Empezado por webmasterplc

Disculpe he buscado pero no doy pie no soy tan experto en esto de delphi

Hola.

Aunque la traducción del error es clara: "formadepago: identificador no declarado", por haber efectuado cambios, me refería que revisaras que si por ejemplo el record está declarado:

Código Delphi [-]
type
  TMiRegistro = record
    ...
  end;

En la cabecera de los procedimientos figure:

Código Delphi [-]
procedure RecordToBlob(Rec: TMiRegistro; Blob: TBlobField);
...

También deberías revisar si "formadepago" está declarado con anterioridad.

Por lo que leí del manual de DBISAM 4, tal vez sería mejor declarar el segundo parámetro de tipo TDBISAMBlobStream, pero deberás realizar las pruebas correspondientes.

Lamentablemente, al no poseer esos componentes, no me es posible hacerlo.

Saludos.

[webmasterplc]

Buenas voy encaminado pero me tranco este error [DCC Error] UnitFPago.pas(43): E2003 Undeclared identifier: 'TBlobField' stoy trabajando en delphi xe2
aca esta el troso de codigo

Código Delphi [-]
procedure TformFPago.btn1Click(Sender: TObject);
 type
RegFormadePago       =Record
  TipoPago  :  integer;
  BancoTarjeta  : string[40];
  Detalle          : string[90];
  RetencionIVA  : Boolean;
  MontoBsViejos : Double;
  MontoPago        : currency;
  NoEsEfectivo  : Boolean;
  end;
var
  fcccodigo:string;
  datospago:RegFormadePago;
  campoblob:TBlobField;
  bs:Tstream;
  codigo:string;

begin


end;

end.