Недоусекаю

[CoCoS]

Форумчане помогите плиз. Хочу в БЛОБ поле поместить документ, но не получается нифига что делать?
ВОт код
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ADODB, Grids, DBGrids, DB, StdCtrls, DBCtrls;

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOTable1: TADOTable;
Button1: TButton;
DBMemo1: TDBMemo;
ADOTable1DSDesigner: TWideStringField;
ADOTable1DS: TBlobField;
ADOTable1DSDesigner3: TWideStringField;
ADOTable1DSDesigner4: TIntegerField;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

ADOTable1.Insert;
aDOTable1DS.LoadFromFile('Ýêîíîìèê. doc');
TBlobField(ADOTable1.FieldByName('D S')).LoadFromFile('Ýêîíîìèêà.doc');
ADOTable1.Post;

end;


end.

[фЁдОр]

а если поискать на форуме?

[CoCoS]

Да в том то и дело, что с форума прочитал.

[artemavd]

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;

[CoCoS]

Этот код я уже видел спасибо за копирайт.
Но не получается тоже

[artemavd]

Этот код я уже видел спасибо за копирайт.

Ну я же не знаю, что Вы видели, а что нет)

[Stilet]

aDOTable1DS.LoadFromFile('Экономик. doc');

Ну это думаю лишнее...

TBlobField(ADOTable1.FieldByName('DS')).LoadFromFi le('Экономика.doc');

Этого должно хватить...