unit BlobFld;

interface

uses
 SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
 Forms, Dialogs, StdCtrls, Buttons, DBTables, DB, ExtCtrls, DBCtrls,
 Grids, DBGrids;

type
 TFrmBlobFld = class(TForm)
 BtnWrite: TBitBtn;
 Table1: TTable;
 DataSource1: TDataSource;
 DBNavigator1: TDBNavigator;
 LbxDisplayBlob: TListBox;
 Table1pubid: TIntegerField;
 Table1comments: TMemoField;
 Table1UpdateTime: TTimeField;
 Table1Real1: TFloatField;
 Table1Real2: TFloatField;
 Table1Real3: TFloatField;
 Table1Curr1: TCurrencyField;
 Table1Blobs: TBlobField;
 Table1Bytes: TBytesField;
 CbxRead: TCheckBox;
 procedure BtnWriteClick(Sender: TObject);
 procedure DataSource1DataChange(Sender: TObject; Field: TField);
 procedure FormShow(Sender: TObject);
 procedure FormClose(Sender: TObject; var Action: TCloseAction);
 private
 { Private-Deklarationen }
 public
 { Public-Deklarationen }
 end;

var
 FrmBlobFld: TFrmBlobFld;

implementation

{$R *.DFM}

type
 ADouble = array[1..12] of double;
 PADouble = ^ADouble;

procedure TFrmBlobFld.BtnWriteClick(Sender: TObject);
var
 i: integer;
 myBlob: TBlobStream;
 v: longint;
begin
 Table1.Edit;

 myBlob := TBlobStream.Create(Table1Blobs, bmReadWrite);
 try
 v := ComponentCount;
 myBlob.Write(v, sizeof(longint));

 for i := 0 to ComponentCount - 1 do
 begin
 v := Components[i].ComponentIndex;
 myBlob.Write(v, sizeof(longint));
 end;
 finally
 Table1.Post;
 myBlob.Free;
 end;
end;

procedure TFrmBlobFld.DataSource1DataChange(Sender: TObject; Field: TField);
var
 i: integer;
 myBlob: TBlobStream;
 t: longint;
 v: longint;
begin
 if CbxRead.Checked then
 begin
 LbxDisplayBlob.Clear;

 myBlob := TBlobStream.Create(Table1Blobs, bmRead);
 try
 myBlob.Read(t, sizeof(longint));
 LbxDisplayBlob.Items.Add(IntToStr(t));

 for i := 0 to t - 1 do
 begin
 myBlob.Read(v, sizeof(longint));
 LbxDisplayBlob.Items.Add(IntToStr(v));
 end;
 finally
 myBlob.Free;
 end;
 end;
end;

procedure TFrmBlobFld.FormShow(Sender: TObject);
begin
 Table1.Open;
end;

procedure TFrmBlobFld.FormClose(Sender: TObject;
 var Action: TCloseAction);
begin
 Table1.Close;
end;

end.