Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Убрать окно страница имеет изъян в системе безопас, Как убрать диалоговое окно 
:(
    Опции темы
artmaestro
Дата 5.12.2013, 16:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 8.11.2010

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



Здравствуйте

помогите решить небольшую проблему.

Есть код, который через idHTTP скачивает картинку и выводит его в Image. Все это работает, но перед тем как скачать, выводится окошко с сообщением "Эта страница имеет изъян в системе безопасности, желаете продолжить?" и 2 кнопки, ДА и НЕТ. Можно нажать любую и программа работает, но это окошко муляет. 

Код как бы уже не хотелось кардинально менять, так как уже программа почти полностью написана. 

собственно вот фрагмент кода

Код

procedure TForm1.indexStrYandex(aUrl:String);
var Cache: string;
    urlDirect:string;
    capthaIsset:Boolean;
    V: OleVariant;
    Doc: IHTMLDocument2;
begin
try
Cache:=idHttp1.get('http://yandex.ua/yandsearch?rdrnd=16597&site='+aUrl+'&text=&lr=143&redircnt=1386204099.1');
urlDirect:=idHTTP1.Request.URL;
capthaIsset:=issetCaptha(urlDirect);
Memo1.Lines.Add('Captha ->  '+BoolToStr(capthaIsset)+ ' '+urlDirect);
if capthaIsset=false then
begin
  Doc := coHTMLDocument.Create as IHTMLDocument2;
  V := VarArrayCreate([0,0], varVariant);
  V[0] := Cache;
  Doc.Write(PSafeArray(TVarData(v).VArray));
  DownloadJPG((Doc.images.item(1,0) as IHTMLImgElement).Href,Image1);
  Memo1.Lines.Add((Doc.images.item(1,0) as IHTMLImgElement).Href);
end;
 Except
  on e:Exception do
      ShowMessage('Ошибка: ' + e.Message);
   end;


end;

PM MAIL   Вверх
Akella
Дата 7.12.2013, 12:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329



Советую скачивать с помощью InDy - IdHTTP, например. И не трогать internet explorer для скачивания картинок.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.

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


 




[ Время генерации скрипта: 0.0745 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.