DCEF3. GetSourceProc

[Delphi_ProGer]

Доброго времени суток.
Я использую в своем проекте Delphi Chromium Embedded Framework.
Есть следующий код:

procedure CallbackGetSource(const src: ustring);
begin
   Showmessage('Get source');
end;


procedure TMainForm.ch1LoadEnd(Sender: TObject;
  const browser: ICefBrowser; const frame: ICefFrame;
  httpStatusCode: Integer);
begin
 if (browser <> nil) and (browser.Identifier = ch1.BrowserId) and ((frame = nil) or (frame.IsMain)) then
   begin
          ch1.Browser.MainFrame.GetSourceProc(CallbackGetSource);
          Showmessage('Done.');
   end;
end;

Проблема в том, что сообщение "Done." появляеться раньше, чем "Get source".
Можно как то "подождать" на получение кода страницы?

 
ch1.Browser.MainFrame.GetSourceProc(CallbackGetSource); // пока этот метод не выполниться,
Showmessage('Done.'); // то эта строка не выполняеться

[Delphi_ProGer]

Есть у кого-нибудь какие-то идеи? Может как-то использовать WaitForSingleObject?

[Пепел Феникса]

кто мешает завести любой обьект синхронизации(кроме мютекса), вам подойдет Event или критическая секция.

создать, занять, в колбэке освободить(а основной поток этого ждет) и все.

[Delphi_ProGer]

кто мешает завести любой обьект синхронизации

Нехватка опыта Поэтому и спрашиваю Вас.
Спасибо за совет. Буду пробовать.

[Delphi_ProGer]

Здраствуйте снова)
Проблема у меня все же осталась...

procedure CallbackGetSource(const src: ustring);
begin
  SimpleEvent.SetEvent; // SimpleEvent: TSimpleEvent;
  SourceText:=src; // SourceText - глобальная переменная
end;

//==============================================================================
function GetSource(const frame: ICefFrame): string;
begin
  SimpleEvent:=TSimpleEvent.Create();
  Result := '';
  frame.GetSourceProc(CallbackGetSource);
  //на следующей строке просто виснет, код в колбэке не выполняеться! 
  //в этом и моя проблема...
  if WaitForSingleObject(SimpleEvent.Handle, INFINITE)=WAIT_OBJECT_0 then
  begin
    //ShowMessage('good');
    Result := SourceText;
  end;
  SimpleEvent.Free;
end;

Какие предположения, указания?
^ В коде закоментировал нужные внимания строки

[Slym]

1. поместать менями. у тебя стулья раньше денег

procedure CallbackGetSource(const src: ustring);
begin
  SourceText:=src; // SourceText - глобальная переменная
  SimpleEvent.SetEvent; // SimpleEvent: TSimpleEvent;
end;

2. контрацепция в виде try/fin приветствуется
3. дедлок -ожидание самого себя. Wait усыпляет поток в котором должно произойти SetEvent

в однопоточке WaitForSingleObject с эвентом не канает
канает спин

function GetSource(const frame: ICefFrame): string;
var
  Time:DWord;
  SourceText:string;

  procedure CallbackGetSource(const src: ustring);
  begin
    SourceText:=src;
  end;
begin
  SourceText:='';
  frame.GetSourceProc(CallbackGetSource);
  Time:=GetTickCount;
  while (length(SourceText)=0) and ((GetTickCount-Time)<10000) do
    Application.ProcessMessages;
  result:=SourceText;
end;

[Delphi_ProGer]

Скопировал этот код

function GetSource(const frame: ICefFrame): string;
var
  Time:DWord;
  SourceText:string;

  procedure CallbackGetSource(const src: ustring);
  begin
    SourceText:=src;
  end;
begin
  SourceText:='';
  frame.GetSourceProc(CallbackGetSource);
  Time:=GetTickCount;
  while (length(SourceText)=0) and ((GetTickCount-Time)<10000) do
    Application.ProcessMessages;
  result:=SourceText;
end;

Ошибка:

[dcc32 Error] dpVKCore.pas(140): E2555 Cannot capture symbol 'CallbackGetSource'

Решил проблему вынесением процедуры CallbackGetSource за пределы GetSource. Но в таком случае SourceText='', а в CallbackGetSource не заходит.

[Slym]

а раньше как в калбек заходил? в 1 посте?

[Delphi_ProGer]

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

а раньше как в калбек заходил? в 1 посте?

Сначала выполнялся до конца код:

   ch1.Browser.MainFrame.GetSourceProc(CallbackGetSource);
          Showmessage('Done.');

а потом через 2-3 сек(в зависимости от сложности html кода сайта) выполнялся

procedure CallbackGetSource(const src: ustring);
begin
   Showmessage('Get source');
end;

(после выхода из процедуры, в которой описан вышеуказаный код)

[3D Hunter]

в процедуре CallbackGetSource обрамите код в критическую секцию trtlcriticalsection.А вызов Showmessage('Get source'); так же заключите в эту же секцию.это даст нужный эффект.коллбэк-функции имеют асинхронную природу,поэтому управление возвращается сразу после вызова,подобно postmessage.