Código Delphi [-]
RegFormadePago    = Record 
                          TipoPago      : integer; { Efectivo - Cheque - Tarjeta Debito - T Credito       - Retencion  - Giros       - Adelantos - Apartados} 
                         //En  Cuentas por Cobrar es Efectivo - Cheque - Tarjeta Debito - Tarjeta Credito - Giros      - PAdelantado - Retencion 
                          BancoTarjeta  : string[40]; 
                          Detalle       : string[90]; 
                          RetencionIVA  : Boolean; 
                          MontoBsViejos : Double; //Para guardar el detalle de los Bs. Viejos que se usaron en la transaccion 
                          MontoPago     : currency; 
                          NoEsEfectivo  : Boolean; //Los montos que se forzan para redondeo no son efectivo 
                         End; 

   AFormadePago      = Array[0..9] of RegFormadePago; 

//la estructura de el campo Formas de pago es el mismo para soperacioninv y Scuentasxcobrar lo que varia es la asignacion del campo tipos de pago, que se asigna 
//un valor entero segun la forma de pago, por ejemplo en ambos casos (soperacioninv y scuentasxpagar) 0 es efectivo, 1 cheque, etc.

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;

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;

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

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

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

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

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.

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;

AFormadePago      = Array[0..9] of RegFormadePago;
var
  fcccodigo:string;
  datospago:RegFormadePago;
  campoblob:TBlobField;
  bs:Tstream;
  codigo:string;
  SQLSelect1,cfactura:String;

begin
SQLSelect1:= 'Select * from Scuentasxcobrar where FCC_NUMERO= :fccnumero';
cfactura:=edtfactura.Text;
  sqcxc.SQL.Text := SQLSelect1;
  sqcxc.ParamByName('fccnumero').AsString:=cfactura;
    sqcxc.ExecSQL;
  sqcxc.Open;
  while not sqcxc.Eof do
  Begin
    codigo:=sqcxc.FieldByName('FCC_NUMERO').AsString;
    campoblob:=sqcxc.FieldByName('FCC_FORMAPAGO') as tblobfield;
    bs := sqcxc.CreateBlobStream(campoblob, bmRead) ;
    bs.Seek(0,sofrombeginning);
    try
       bs.read(datospago,SizeOf(RegFormadePago));
    finally
       bs.Free;
    end;
    edt1.Text:=codigo;
    edt2.Text:=currtostrf(datospago.montopago,ffCurrency,2);
    sqcxc.Next;
  End;


end;