(WebBrowser.Document as IPersistStreamInit).Load и AccessViolation

[GSirr]

Добрый день уважаемые коллеги!
Есть поток (thread) который с помощью функции InternetGetConnectedState раз в секунду мониторит состояние интернет подключения. Форма подписана на события изменения состояний этого потока (OnConnectionLost и OnConnectionRestored).
Есть TWebBrowser c картами google (компонент от тмс-софтвэйр).
Есть форма, на которой есть TWebBrowser c картами и у которой есть функция BuildGUI, которая вызывается при потере/возобновлении интернет-соединения.

Задача - если соединение потеряно выводить в браузере сообщение об этом. Если соединение возобновлено - загружать гугл-карты по новой.

Проблема - Acess Violation внутри компонента, но только тогда, когда метод Launch(который загружает карту из потока (stream)) вызывается из процедуры BuildGUI. Если тот же код прописать на кнопке, все происходит правильно!

Код процедуры BuildGUI с комментариями:

procedure TfrmJobCard.BuildGUI;
begin
...
  if not frmGALAMain.ConnectionInfo.Connected then
    begin
      if not FMapDisconnected then
        begin
          FMapDisconnected := True; //Private переменная в форме
          wgmMap.WebBrowser.Navigate('about:blank'); // Вместо сообщения об отключении соединения
        end;
    end
  else
    begin
      if (FMapDisconnected) then
        begin
          FMapDisconnected := False;
          wgmMap.Launch; //Здесь Access Violation, Код этого метода приведу ниже
        end;
    end;
...
end;

Метод Launch:

function TWebGMaps.Launch:Boolean;
var
  aStream : TStream;
  AStreamAdapter: TStreamAdapter;
  AStreamInit: IPersistStreamInit;
  HtmlFile:String;
begin
  FLaunching := True;
  Result:=False;
  HtmlFile:=InitHtmlFile; // файл собирается по кусочкам, он корректный

  if FMapOptions.FPreloaderVisible then
  begin
    Preloader.Visible:=True;
    (Preloader.Picture.Graphic as TGifImage).Animate:=True;
    Application.ProcessMessages;
  end;

  try
    FWebBrowser.Navigate(HTML_BLANK_PAGE); // Константа 'about:blank'

    while FWebBrowser.ReadyState <> READYSTATE_COMPLETE do
    begin
      Application.ProcessMessages;
    end;

    if Assigned(FWebBrowser.Document) then
    begin
      aStream := TStringStream.Create(HtmlFile);
      try
        try
          AStreamAdapter := TStreamAdapter.Create(aStream);
          AStreamInit := FWebBrowser.Document as IPersistStreamInit;
          AStreamInit.Load(AStreamAdapter); //Здесь Access Violation
          bLaunchFinish:=False;
          Result:=True;
        except
          FLaunching := False;
          if Assigned(fOnWebGMapsError) then
            fOnWebGMapsError(Self,etGMapsProblem);
        end;

      finally
        FreeAndNil(aStream);
      end;
    end
    else
    begin
      if Assigned(fOnWebGMapsError) then
        fOnWebGMapsError(Self,etGMapsProblem);
    end;
  except
    FLaunching := False;
    if Assigned(fOnWebGMapsError) then
      fOnWebGMapsError(Self,etGMapsProblem);
  end;
  FLaunching := False;
end;

Сутки почти уже убил Поделитесь мыслями, почему так?
Спасибо

[Человек_Борща]

1. у IPersistStreamInit нету метода Init вы дергаете за не существующую ниточку.
2. По скольку вы дергаете интерфейс, а его экземпляра у владельца вы не получили, то вы стучитесь опять в закрытую дверь.

[GSirr]

Спасибо за ответ!
1) Вы имеете ввиду метод InitNew у IPersistStreamInit? Если да, то разве он не вызывается в методе Navigate TWebBrowser, который дергается выше?
2) Можно поподробнее?
Напомню, что когда я провожу эти операции вручную (т.е. ситуация 1 в 1, только вместо процедуры BuildGUI - 1 кнопка, которая прогоняет этот же код) все отлично!

[phomm]

Покажите, откуда вызывается BuildGUI
Наверное, как обычно, сперва в formcreate каком-нибудь вызываете билдгуи, а только потом создаёте экземпляр wgmMap.
Что говорит трассировка ?

[GSirr]

Нет, с такой детской ошибкой я бы не стал заходить на форум
Ошибка происходит когда форма уже создана и экземпляр wgmMap инициализирован. Трассировка говорит что указатели у aStream, AStreamAdapter, AStreamInit и FWebBrowser не пустые.

BuildGUI вызывается отсюда (форма-родитель)

procedure TfrmGalaMain.OnInternetConnectionLost(Sender: TObject);
const
  InternetConnectionLostAlarmText = 'Интернет-соединение потеряно';
  InternetConnectionLostAlarmCaption = 'Соединение потеряно';
begin
  TdxStatusBarTextPanelStyle(sbMain.Panels[0].PanelStyle).ImageIndex := 8;
  if FJobCardForm <> nil then
    begin
      FJobCardForm.BuildGUI;
    end;
end;

procedure TfrmGalaMain.OnInternetConnectionRestored(Sender: TObject);
begin
  TdxStatusBarTextPanelStyle(sbMain.Panels[0].PanelStyle).ImageIndex := 7;
  if FJobCardForm <> nil then
    begin
      FJobCardForm.BuildGUI;
    end;
end;

[phomm]

Ну, а что трассировка говорит про АВ ? на каком этапе, в каком модуле/строке. Тип АВ - чтение/запись, какой адрес "мусор" или "ноль" ?