Форум: "Сети";
Текущий архив: 2005.11.06;
Скачать: [xml.tar.bz2];

Вниз

Что я делаю не так (Indy и IDHTTP)?   Найти похожие ветки 

← →
Drema   (2005-07-21 10:44) [0]


procedure TForm1.Button1Click(Sender: TObject);
var
 url, proxy_serv, proxy_port, webdata, host: string;
 port: integer;
begin
 url:= edit1.Text;
 proxy_serv:=edit2.Text;
 proxy_port:=edit3.Text;
 port:=StrToInt(proxy_port);
 host:=edit4.text;
// ---- установим прокси -----

 if proxy_serv<>"" then
   begin
     IdHTTP1.ProxyParams.Create;
     IdHTTP1.ProxyParams.ProxyPort:=port;
     IdHTTP1.ProxyParams.ProxyServer:=proxy_serv;
     IdHTTP1.host:=proxy_serv;
     IdHTTP1.port:=port;
     //form1.IdHTTP1.ProxyParams.SetHeaders(); <- надо ли это ?
   end
   else
   begin
     IdHTTP1.ProxyParams.ProxyPort:=0;
     IdHTTP1.ProxyParams.ProxyServer:="";
   end;

// ------ и полезем в инет ------

try
 form1.IdHTTP1.Host:=host;
 if Not(IdHTTP1.Connected) then
   IdHTTP1.Connect;
 try
   webdata:=form1.idHTTP1.Get(url);
 finally
   IdHTTP1.Disconnect;
 end;
 except
   MessageDlg("Socket:Ошибка!", mtInformation, [mbOk], 0);
   IdHTTP1.Disconnect;
 end;
 IdHTTP1.Disconnect;
// ----- выведем результат -----

 memo1.Text:=webdata;
end;


Проблема в том, что без прокси все работает.
С указанием прокси - нет. В чем же ошибка? как правильно указывать прокси?
Может для сокетов нужен SOCKS прокси? Но у провайдера есть HTTP и причем без прокси работать нельзя.

---

← →
Reindeer Moss Eater ©   (2005-07-21 12:45) [1]

except
  MessageDlg("Socket:Ошибка!", mtInformation, [mbOk], 0);
  IdHTTP1.Disconnect;
end;

Ну и какой смысл в таком обработчике исключения?
Что бы никто и никогода не смог узнать причину его возникновения?

---

← →
Digitman ©   (2005-07-21 13:32) [2]

> Может для сокетов нужен SOCKS прокси? Но у провайдера есть
> HTTP и причем без прокси работать нельзя


солянка сборная из обрывочных сведений о том, что есть какие-то там SOCKS, прокси, HTTP и иже с ними и что вся эта байда в TIdHTTP каким-то невероятно волшебным образом сама по себе должна неважно как сочетаться и работать


> Reindeer Moss Eater ©   (21.07.05 12:45) [1]


дело Штирлица живет и процветает)

---

← →
Slym ©   (2005-07-22 08:29) [3]

procedure TForm1.Button1Click(Sender: TObject);
var webdata: string;
begin
// ---- установим прокси -----
if Length(edit2.Text)>0 then
  begin
    IdHTTP1.ProxyParams.ProxyServer:=edit2.Text;
    IdHTTP1.ProxyParams.ProxyPort:=StrToInt(edit3.Text);
  end else
  begin
    IdHTTP1.ProxyParams.ProxyPort:=0;
    IdHTTP1.ProxyParams.ProxyServer:="";
  end;
// ------ и полезем в инет ------
try
webdata:=idHTTP1.Get(edit1.Text);
except
 MessageDlg("Socket:Ошибка!", mtInformation, [mbOk], 0);
end;
memo1.Text:=webdata;
end;

---

← →
Slym ©   (2005-07-22 08:31) [4]

try
webdata:=idHTTP1.Get(edit1.Text);
except
 on E:Exception do
MessageDlg("Ошибка!"#13#10+E.Message,mtInformation, [mbOk], 0);
end;

---

← →
Чапаев ©   (2005-07-22 09:39) [5]

> TTP1.ProxyParams.Create;
Бред.

> form1.IdHTTP1.Host:=host;
А чуть выше в случае, если прокси есть, ты уже назначил host. Причём вверху назначил правильно, а тута -- нет.

> if Not(IdHTTP1.Connected) then
>   IdHTTP1.Connect;
> try
>   webdata:=form1.idHTTP1.Get(url);
> finally
>   IdHTTP1.Disconnect;
> end;
Не знаю, не знаю... Делаю просто IdHttp.Get(...) -- и всё работает.

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2005.11.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.033 c