Stahovaní přes HTTP v delphi

Jako chybu konkretne ti to vyhodi? Vzdyt to osetreno mas. Pokud chces vypsat chybu, ze stranka neexistuje, pak si rozsir Except, treba takto:

procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  s: string;
begin
 IdHTTP:= TIdHTTP.Create(nil);
 try
   try
     s:=IdHTTP.Get('https://www.google.cz/');
   except
      on E: Exception do
        ShowMessage('Stranka nenalezena' + #13 + E.ClassName + ': ' + E.Message);
    end;
  finally
    IdHTTP.Free;
  end;
end;

Napiše to ve Form že neodpovida a za par vteřin toto.
errorsoc.jpg

Zkousel jsem to a zadny problem tam nebyl.
Zkus knihovnu Synapse, tam mas vic moznosti nez u InDy.

Tak problém bude asi v tom že používám klasicky Socket Components dclsockets160.bpl

Zkouším tedy synapse

Stanout s našeho servru soubor se mi podařilo i přes heslo.
Stanout však něco do StringListu ne.

http://delphi.cz/post/Download-upload-HTTP-Synapse -Delphi.aspx
Toto mi vyhazuje error 105.

No zapomněl jsem napsat že zkoušim ten první, je tam toho vice.

begin
sl := TStringList.Create;
try
HttpGetText('www.google.cz', sl);
writeln(sl.Text);
// zde si muzeme se stazenym souborem neco udelat,
finally
FreeAndNil(sl);
end;
end.

Zkus tu druhou moznost, vyhod nastaveni proxy. Muzes si tam pridat odchyceni vyjimky.

Tak funguje i ten první.
writeln(sl.Text); tam děla paseku.

Zkouším
Takto se mi podařilo stáhnout soubor s našeho servru přes synapse.

with THTTPSend.Create do
try
UserName:= 'admin';
Password:= 'admin';
If HTTPMethod('GET', 'mujseznam.txt') then
if ResultCode = 200 then Document.SaveToFile('.\mujseznam.txt');
finally
Free;
end;

Jak však na to u HttpGetText
Tímto způsobem to nefunguje.
Jak stáhnout nějakou stránku se servru, který má přístup chráněn heslem?
Nebo třeba s nějakého zařízeni, které plouživá pro nastavení web rozhraní.