[Error] Unit2.pas(69): Undeclared identifier: 'LoadFromFile'

[bowie]

Подскажите пожалуйста, при добавлении риснука выдает такую ошибку. Вот код:
Работаю с Msql Server
делфи 7
модули вроде все подключены, разобраться не могу

procedure TForm2.Button1Click(Sender: TObject);
begin
with DM do begin
  if OpenPictureDialog1.Execute then begin
    if NOT  (AlcKach1.State in [dsInsert,dsEdit]) then
                  AlcKach1.edit;
    AlcKach1fotoalc.LoadFromFile(OpenPictureDialog1.FileName);
  end;
end;
end;

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

[Mr_ViK]

Не совсем знаю язык но вот заметил

AlcKach1fotoalc.LoadFromFile(OpenPi ctureDialog1.FileName);

Не пропущена ли точка?

AlcKach1.fotoalc

[Serge_Bliznykov]

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

   AlcKach1fotoalc.....

bowie, сейчас лето, все телепаты в отпуска разъехались,
а то бы они нам подсказали, какого типа у Вас объект с именем AlcKach1fotoalc...

А так, ответ достойный Кэпа - метод LoadFromFile не найден, т.к. у данного класса объекта нет такого метода - загрузить из файла!


а пока рекомендую прислушаться к совету Mr_ViK, мне кажется, что насчёт точки он угадал!

[Аватар]

В отпуск еще не уехал, попробую телепатию применить AlcKach1fotoalc скорее всего явно определенное поле и тип его не TBlobField и не TMemoField. Поэтому метод LoadFromFile не катит

[bowie]

с одним кодом все заработало неизведанным образом, AlcKach1fotoalc тип поля image. написал еще такой же код в другом юните, там опять ошибка эта

procedure TForm2.Button1Click(Sender: TObject);
begin
with DM do begin
if OpenPictureDialog1.Execute then begin
if NOT  (AlcKach1.State in [dsInsert,dsEdit]) then
AlcKach1.edit;
 AlcKach1fotoalc.LoadFromFile(OpenPictureDialog1.FileName);
 end;
end;
end;

___________

ВНИМАНИЕ! ВЫ НАРУШАЕТЕ ПРАВИЛА ФОРУМА!

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

[Serge_Bliznykov]

ну и зачем приводить ещё раз тот же самый код, если он НЕ РАБОТАЕТ?!!!

Абсолютно не понимая, что Вы делаете и для чего, предложу такой код:

    AlcKach1fotoalc.Picture.LoadFromFile(OpenPictureDialog1.FileName);

[ТипичныйСтудент]

хелп ми плиз=(

 procedure TForm1.N1Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
    begin
        ADODataSet1.Edit;
        ADODataSet1.FieldByName('foto').LoadFromFile(OpenDialog1.FileName);
        ADODataSet1.Post;
    end;
end;

ошибка [Error] Unit1.pas(41): Undeclared identifier: 'LoadFromFile'

[tools]

это где это Вы среди методов класса TField нашли LoadFromFile ??

[ТипичныйСтудент]

не скажу=)

procedure TForm1.N1Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
    begin
        ADODataSet1.Edit;
       (ADODataSet1.FieldByName('foto') as TBlobField).LoadFromFile(OpenDialog1.FileName);
        ADODataSet1.Post;
    end;

но все равно ошибка, при нажатии на кнопку "открыть" при выборе нужного изображения

[tools]

Я осознаю, что это практически нереально, но попробуйте собраться с силами, сжать всю волю в кулак, и написать текст ошибки.