Ошибка работы с blob полем, в похожем проекте все работает

[Lokos]

В одном проекте такой код работает

procedure TForm1.BtnSaveClick(Sender: TObject);
var
  jpg: TJPegImage;
  ms: TMemoryStream;

begin

   ADOTable1.Edit;
   ADOTable1.Append;
   jpg := TJpegImage.Create;
   jpg.Assign(Image1.Picture.Graphic);
   jpg.CompressionQuality := 20;
   jpg.Compress;
   ms := TMemoryStream.Create;
   jpg.SaveToStream(ms);
   ADOTable1.FieldByName('Eia').Value:=2;
   ADOTable1.FieldByName('1').Value:=inttostr(2);
   (ADOTable1.FieldByName('ea?oeiea') as tBlobField).LoadFromStream(ms);
   ADOTable1.Post;
   ms.Free;
   jpg.Free;

end;

В другом проекте такой код не работает но он отличается не существенно

procedure TAddData.DELorADDButtonClick(Sender: TObject);
var
  jpg: TJPegImage;
  ms: TMemoryStream;
begin
   if Tabcontrol3.TabIndex=0 then
      begin
         DM.ADOTS.Edit;
         DM.ADOTS.Append;
         jpg := TJpegImage.Create;
         jpg.Assign(Image2.Picture.Graphic);
         jpg.CompressionQuality := 20;
         jpg.Compress;
         ms := TMemoryStream.Create;
         jpg.SaveToStream(ms);
         DM.ADOTS.FieldByName('¹ óäîñòîâåðåíèÿ').Value:=strtoint(sotrNamber.Text);
         DM.ADOTS.FieldByName('Èìÿ').Value:=Name.text;
         DM.ADOTS.FieldByName('Ôàìèëèÿ').Value:=sername.text;
         DM.ADOTS.FieldByName('Îò÷åñòâî').Value:=Otchestvo.text;
         DM.ADOTS.FieldByName('Òåëåôîí').Value:=strtoint(telefon.text);
         DM.ADOTS.FieldByName('Àäðåñ ïî÷òû').Value:=adrespoch.text;
         DM.ADOTS.FieldByName('Àäðåñ àãåíñòâà').Value:=adresagenstva.text;
         DM.ADOTS.FieldByName('Äàòà ïðèåìà').Value:=datapriema.text;
         DM.ADOTS.FieldByName('Îáðàçîâàíèå').Value:=Obrazovanie.text;
         DM.ADOTS.FieldByName('Äîï îáðàçîâàíèå').Value:=dopobrzovanie.text;
         DM.ADOTS.FieldByName('Ïðèìå÷àíèå').Value:=Memo1.text;
         (DM.ADOTS.FieldByName('Ôîòî') as tBlobField).LoadFromStream(ms);
          DM.ADOTS.Post;
          ms.Free;
         jpg.Free;
      end;
end;

ОШибки следующие
undeclared identifer:tBlobField
------||----||-----:LoadFromStream

[koma_grusha]

попробуй эту часть

(DM.ADOTS.FieldByName('Ôîòî') as tBlobField).LoadFromStream(ms);

написать так

TBlobField(DM.ADOTS.FieldByName('Ôîòî')).LoadFromStream(ms);

[Lokos]

Сообщение от koma_grusha

попробуй эту часть

(DM.ADOTS.FieldByName('Ôîòî') as tBlobField).LoadFromStream(ms);

написать так

TBlobField(DM.ADOTS.FieldByName('Ôîòî')).LoadFromStream(ms);

не чего не изменилось так же и ругается

[Kotofff]

Вот смотри :
http://programmersforum.ru/showthread.php?p=465005

[Lokos]

Сообщение от Kotofff

Вот смотри :
http://programmersforum.ru/showthread.php?p=465005

там то все заработало и ошибка другая была)))

[Lokos]

проблема была решена когда добавил компонент adotable на форму где выполняется этот код. Когда он находился в datamodule появлялись данные ошибки, подскажите как этого избежать

[Stilet]

подскажите как этого избежать

В том модуле где есть слово tBlobField нужно в uses дописать DB.
И не важно где на форме или в Data Module хранить компоненты.