blob поля delphi 7 работает в delphi 2010 нет

[reihtmonbern]

Здравствуйте у меня проблема тот код который раньше работал в D7 не работает в D 2010
пример кода

procedure TForm6.BitBtn19Click(Sender: TObject);
var
  blob: TBlobStream;
  fs: TmemoryStream;
begin
  blob := DataModule3.ADOTable3.CreateBlobStream(DataModule3.ADOTable3.FieldByName('Доп-док'), bmWrite);// bmWrite) подчеркивает не нравиться чавойто 
  try
    blob.Seek(0, soFromBeginning);
    fs := TFileStream.Create(OpenDialog1.FileName, fmOpenRead or
      fmShareDenyWrite);
    try
      blob.CopyFrom(fs, fs.Size)
    finally
      fs.Free
    end;
  finally
    blob.Free
  end;
end;

var
      Stream : TMemoryStream ;
begin
 if OpenDialog1.Execute then
begin
   Stream := TMemoryStream.Create ;
   DataModule3.adotable3.Edit ;
   Stream.LoadFromFile(OpenDialog1.FileName);
   TBlobField(DataModule3.adotable3.FieldByName('Доп-док')).LoadFromStream(Stream) ;// TBlobField вообще не знает что это такое  
   DataModule3.adotable3.Post ;
   Stream.Free ;
end;
end;

на картинках ошибки в делфи помогите пожалуйста хоть советом ..



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это КНОПОЧКА с решёточкой #)
Не забывайте об этом!
Модератор.

[Novic]

Для таких же новичков, как я, вариант рабочего кода для загрузки файла в БД.

Версия: Delphi XE4
БД: Mysql
Предупреждение: поле, в которое записывается файл, должно быть типа blob; не загружаются файлы типа .pdf, .djvu, .mp3 и т. п., файлы Word, txt записываются без проблем.

Рабочий код:

procedure TForm6.Button6Click(Sender: TObject);
var  blob: Tstream;
  fs: Tfilestream;
begin
 if OpenDialog1.Execute then
  form2.ZTable1.Edit; // Вместо ZTable используем свой компонент подключения к таблице БД; заменить на свой компонент на протяжении всего кода
  
blob:= form2.Ztable1.createBlobStream(form2.ZTable1.FieldByName('elbook'), bmWrite); // В FieldByName('указываем название поля, в которое будет записываться файл')
   try
 blob.Seek(0, soFromBeginning);
   fs := TfileStream.create(opendialog1.FileName, fmShareDenyWrite );
     try
blob.CopyFrom(fs, fs.Size) ;
blob.writedata(fs, fs.Size) ;
    finally
      fs.Free
end;
 finally
blob.Free
  end;
  form2.ZTable1.post;
end;

[xxbesoxx]

from--> reihtmonbern Здравствуйте у меня проблема тот код который раньше работал в D7 не работает в D 2010
пример кода

А у вас какой СУБД и какой тип поля 'Доп-док' ?

From---> Novic
Версия: Delphi XE4
Предупреждение: поле, в которое записывается файл, должно быть типа blob;

Вы сначало почитайте про ТИП ПОЛЯ blob

* TINYBLOB - может хранить до 255 байт
* BLOB - может хранить до 64 килобайт информации
* MEDIUMBLOB - до 16 мегабайт
* LONGBLOB - до 4 гигабайт

БД: Mysql

Mysql Это НЕ БД ! это СУБД

[Stilet]

reihtmonbern

А в uses модуль DB присутствует?

не загружаются файлы типа .pdf, .djvu, .mp3 и т. п.

Что за нонсенс?

[Аватар]

reihtmonbern

Больше года на форуме не был А посту ТС так вообще скоро три года