Как записать в BLOB поле большой текст (более 255)?

Previous  Top  Next

    
 

 

 

Code:

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;

 

 

©Drkb::02479

       

Взято с http://delphiworld.narod.ru