Nomadic отвечает:
Можно так -
var S: TBlobStream; B: pointer; c: integer; ... Table1.Edit; S := TBlobStream.Create( Table1BlobField as TBlobField, bmWrite ); {кажется, так} C := S.Write(B, C); Table1.Post; S.Destroy; |
или так -
var S: TMemoryStream; B: pointer; C: integer; ... S := TMemoryStream.Create; ... Table1.Edit; S.Clear; S.SetSize(C); C := S.Write(B,C); ( Table1BlobField as TBlobField ).LoadFromStream( S ); S.Clear; Table1.Post; ... S.Destroy; |
[001359]