Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Сети > Убрать окно страница имеет изъян в системе безопас


Автор: artmaestro 5.12.2013, 16:35
Здравствуйте

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

Есть код, который через 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;

Автор: Akella 7.12.2013, 12:23
Советую скачивать с помощью InDy - IdHTTP, например. И не трогать internet explorer для скачивания картинок.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)