Автор: admin | 14.12.2007 | 2:14 |
В рубриках: Базы данных
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;
Эта запись была опубликована 14.12.2007в 14:48. В рубриках: Базы данных. Вы можете следить за ответами к этой записи через RSS 2.0. Комментарии пока закрыты, но Вы можете оставить трекбек со своего сайта.