Вызов процедуры из процедуры

[vipok72]

Имеется код:

procedure TForm1.Chromium1LoadEnd(Sender: TObject;
  const browser: ICefBrowser; const frame: ICefFrame;
  httpStatusCode: Integer);
begin
 if (frame <> nil) and frame.IsMain  then
 begin
    frame.GetSourceProc(callback); //здесь возникает ошибка
  end;
end;
 
procedure callback(const str: ustring);
begin
  Form1.Memo1.Lines.Add(str);
end;

Возникает ошибка:
Incompatible types: 'method pointer and regular procedure'
Вроде как обе процедуры прописаны

type
TForm1 = class(TForm)
...
procedure callback(const str: ustring);
procedure Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser;
      const frame: ICefFrame; httpStatusCode: Integer);

Прошу помощи, что я сделал не так?

[Stilet]

Пиши procedure TForm1.callback(const str: ustring); раз у тебя требует метод

[vipok72]

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

Пиши procedure TForm1.callback(const str: ustring); раз у тебя требует метод

Судя по тому что я знаю, в type для Form1 не надо перед названием процедуры писать TForm1 ибо выкинет ошибку, так и произошло)
попробовал написать еще и

frame.GetSourceProc(Form1.callback);

толку ноль

[evg_m]

существуют процедуры как процедуры (regular procedure)
и существуют процедуры-методы какого либо класса (method).

procedure callback(const str: stinng);
begin
...
end;

ПРИМЕР regular procedure (она не входит не в один класс!!!)

Tform1 =class
...
procedure callback(const str: string);

end;

procedure TForm1.callback(const str: string);
begin
...
end;

ПРИМЕР процедуры-метода входящей в класс TForm1.

Пиши procedure TForm1.callback(const str: ustring);

TForm1 надо писать не при использовании(вызове) а при реализации(при написании кода процедуры).

[vipok72]

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

существуют процедуры как процедуры (regular procedure)
и существуют процедуры-методы какого либо класса (method).

procedure callback(const str: stinng);
begin
...
end;

ПРИМЕР regular procedure (она не входит не в один класс!!!)

Tform1 =class
...
procedure callback(const str: string);

end;

procedure TForm1.callback(const str: string);
begin
...
end;

ПРИМЕР процедуры-метода входящей в класс TForm1.


TForm1 надо писать не при использовании(вызове) а при реализации(при написании кода процедуры).

Чувствую себя пнем, ладно, как это понял я:
Нужно под классом TForm1 создать еще один класс с названием

TChromium = class
//сразу под ним собстна и написать
procedure callback(const str: string);
//далее private public и end;

еще есть вариант:
Ничего не менять кроме того что внутри процедуры TForm1.Chromium1LoadEnd обращаться к callback как Form1.callback

[evg_m]

frame.GetSourceProc(callback); //здесь возникает ошибка

Покажи КАК объявлена GetSourceProc ?!

type
  TXX =procedure(const str: string); //МЫ Объявили тип REGULAR PROCEDURE c одним параметром
.......
procedure GetSourceProc(proc: TXXX);

Так (с точностью до замены имен)?!
------------------------------------------------------------------
Теперь для передачи туда НАМ нужна та самая
procedure CallBack(const str: string);
НО!!!
транслятор при разборе строки
frame.GetSourceProc(callback);
пытается понять что же это за чудо имя такое callback
И "вспоминает" что раньше (ВЫШЕ ПО ТЕКСТУ) у него было
Tform1 =class
procedure Callback(const str: string);
end;
Вроде бы тоже самое, НО это METHOD а не REGULAR PROCEDURE.
А других упоминаний такого имени callback ЕЩЕ(выше разбираемой строки) НЕ БЫЛО!

решение
Вар. 1.
ПЕРЕНЕСТИ код

procedure callback(const str: string);
begin
...
end;

по тексту ВЫШЕ кода использующего данную процедуру.
и при получении следующей ошибки

[Error]Unsatisfied forward or external declaration: 'Tform1.Callback'

Убрать из TForm1
procedure Callback(const str: string);

Вар 2. ПОСЛЕ описания TForm1 добавить ПРЕДВАРИТЕЛЬНОЕ (forward) объявление нашей процедуры

type
TForm1 =class
...
end;

procedure Callback(const str: string);

implementation

+ замечание из вар 1 об удалении ( в данном случае сводится к выносу объявления из класса!!)
переводу объявления из method в regular procedure

Вар 3.
Изменить объявление GetSourceProc, точнее тип ее параметра, чтобы туда передавать method.

[vipok72]

Спасибо за помощь!
Вариант 1 помог, очень благодарен вам

[ResourceSpace]

type
      TForm1 = class(TForm)
            ...
      private
            procedure callback(const str: ustring);
            procedure Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; httpStatusCode: Integer);
      end;

...

procedure TForm1.callback(const str: string);
begin
...
end;

...

frame.GetSourceProc(callback);

...

В вашем коде в первом посте нету "TForm1." - отсюда и ошибка.

Опоздал, ну да ладно.

[evg_m]

Вариант 1 помог, очень благодарен вам

Хотя ВЕРНЫМ(правильным) был Вар 3.
Изменить тип параметра GetSourceProc, так чтобы передавать method класса TForm1.

type
TXX =procedure(const str: string) of object; // тип method с одним параметром.

И далее воспользоваться #4, #2.

[саша40]

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

Имеется код:
Прошу помощи, что я сделал не так?

Там где ты передаешь процедуру в качестве параметра напиши это:

callback^

На это и указывает код ошибки.