VPF::TWebBrowser (IE) не открывает WAP саты - Форум программистов

Coobick

Дата 16.8.2010, 12:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 16.8.2010
Где: Владимир

Репутация: нет
Всего: 1

Проблема в следующем...
У меня программа переходит по списку ссылок,и очень часто в этом списке попадаются 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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 16.8.2010
Где: Владимир

Репутация: нет
Всего: 1

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »