TBlobSteam write problem
I am attempting to write data to a blob field. The following shows the code
with Fes do begin
FesNumber.AsInteger := 999;
FesOwner.Asinteger := 0;
Feed.Name := Edit3.text; // Feed is binary record, Name is string
// Feed has been successfully
retrieved from from
// TBlobStream with a "read"
DataStream.position := 0;
DataStream.seek(16,soFromBeginning); // offset from beginning of
case FesOwner.AsInteger of
0 : begin
(* --- *)
if Fes.state in [dsInsert,dsEdit] then
The Header information writes to the blob field. When the blob fields is
re-read, the "feed" information is missing. I have tried numerous
variations on this process without success. There are no error messages.
I am having the same problem in both Delphi 5 and Delphi 2009.
Thanks for any suggestions