[Meir]

Всем доброго времени суток. помогите пожалуйста. я создал базу в парадоксе. задал свойство таблицы blob binary. немогу загрузить в них dwg файлы. Всю ночь бьюсь немогу понять в чем дело


пробовал так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77

unit Unit2;   interface   uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, DBCtrls, Grids, DBGrids, StdCtrls, ExtCtrls;   type TForm2 = class(TForm) Button1: TButton; DataSource1: TDataSource; DBGrid1: TDBGrid; DBImage1: TDBImage; Table1: TTable; DBNavigator1: TDBNavigator; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;   var Form2: TForm2;   implementation   {$R *.dfm}   procedure TForm2.Button1Click(Sender: TObject); var blob: TStream; begin blob := form2.table1.CreateBlobStream(table1.FieldByName('Pictures'), bmRead); try blob.Seek(0, soFromBeginning);   with TFileStream.Create('c:\1.dwg', fmCreate) do try CopyFrom(blob, blob.Size) finally Free end; finally blob.Free end; end;   procedure TForm2.Button2Click(Sender: TObject); var blob, fs: TStream;   begin blob := (form2.table1.CreateBlobStream(form2.table1.FieldByName('pictures'), bmWrite)); try blob.Seek(0, soFromBeginning); fs := TFileStream.Create('c:\1.dwg', fmOpenRead or fmShareDenyWrite); try blob.CopyFrom(fs, fs.Size) finally fs.Free end; finally blob.Free end; end;   procedure TForm2.FormCreate(Sender: TObject); begin table1.Active:=true; end;   end.

Admin: Не забываем читать правила форума, в частности по оформлению кода, иначе санкции!

выходит ошибка
Project Project1.exe raised exception class EDatabase with message 'tablesataset not in edit or insert mode'