Subject | RE: [IBO] Help with Blobs required. |
---|---|
Author | Adrian Wreyford |
Post date | 2006-11-28T20:25:46Z |
Jason suggested:
Use the Assign() mechanism to transfer the blob data.
IB_QueryNewTable.FieldByName('Photo').Assign(
IB_QueryOldTable.FieldByName('OldPhoto'));
HTH,
Jason
I also got it working, but Jason's method much less hasles.
Var
PhotoStream : TmemoryStream;
.
PhotoStream := TmemoryStream.Create;
IB_QueryNewTable.Insert;
IB_QueryOldTable.FieldByName('OldPhoto').AsignTo(PhotoStream);
IB_QueryNewTable.FieldByName('Photo').Asign(PhotoStream);
IB_QueryNewTable.Post;
PhotoStream.Free;
[Non-text portions of this message have been removed]
Use the Assign() mechanism to transfer the blob data.
IB_QueryNewTable.FieldByName('Photo').Assign(
IB_QueryOldTable.FieldByName('OldPhoto'));
HTH,
Jason
I also got it working, but Jason's method much less hasles.
Var
PhotoStream : TmemoryStream;
.
PhotoStream := TmemoryStream.Create;
IB_QueryNewTable.Insert;
IB_QueryOldTable.FieldByName('OldPhoto').AsignTo(PhotoStream);
IB_QueryNewTable.FieldByName('Photo').Asign(PhotoStream);
IB_QueryNewTable.Post;
PhotoStream.Free;
[Non-text portions of this message have been removed]