Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > TWebBrowser (IE) не открывает WAP саты

Автор: Coobick 16.8.2010, 12:26

Проблема в следующем...
У меня программа переходит по списку ссылок,и очень часто в этом списке попадаются wap сайты которые IE не может открыть,в итоге появляются разные диалоги... типа не могу открыть или предлагает загрузить страницу и сохранить
В этом разделе в одной из тем увидел такой вот код...

Код


procedure TWebBrowser.InvokeEvent(DispID: TDispID;
  var Params: TDispParams);
const
  DISPID_NAVIGATEERROR = 271;
  INET_E_RESOURCE_NOT_FOUND = -2146697211;
var
  Code: Integer;
  ParamCount, I: Integer;
  VarArray: TVariantArray;
begin
  inherited;
  if DispID = DISPID_NAVIGATEERROR then
  begin
    ParamCount := Params.cArgs;
    SetLength(VarArray, ParamCount);
    for I := Low(VarArray) to High(VarArray) do
      VarArray[High(VarArray) - I] := OleVariant(Params.rgvarg^[I]);
    { StatusCode }
    Code := VarArray[3];
    if Code = INET_E_RESOURCE_NOT_FOUND then
      ShowMessage('Not found!');
  end;
end;

Который при неверном адресе сообщает о ошибке...
Можно ли что то подобное сделать с этими wap сайтами?
Ну или что то ещё, что бы Эти wapы не мешали работе.. Не может открыть и ладно... пусть будет пустая страница но только без этих сообщений IE.
Для проверки можно взять вот этот адрес http://s-c.ru

Автор: Coobick 17.8.2010, 10:58

Не уж то нет вариантов ни каких? :(
А вот ведь ещё есть MozillaBrowser ,но как известно сама Mozilla такие сайты открывает только с установленным плагином для этого.. Можно как то такой плагин (расширение) подключить к своему проекту?