Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Люди помогите разобраться с NMHTTP.Proxy

Автор: StealtH 11.10.2004, 03:30

Вообщем суть проблемы такова:
Есть компонент NMHTTP, указываю в свойстве Proxy адрес прокси, в свойстве ProxyPort - порты прокси. Короче вот код:

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.Clear;
  NMHTTP1.Disconnect;
  Label2.Caption := '';
  Button1.Enabled:=False;
  if (Edit1.Text <> '') and (Edit2.Text <> '') then
  begin
    NMHTTP1.Proxy := Edit1.Text;
    NMHTTP1.ProxyPort := StrToInt(Edit2.Text);
  end;
  try
    NMHTTP1.Connect;
    begin
      NMHTTP1.Get('http://borland.com');
      Memo1.Text:=NMHTTP.Body;
    end;
  finally
     begin
       Button1.Enabled:=True;
       ShowMessage('Connction failed for '+Edit1.Text+':'+Edit2.Text);
       NMHTTP1.Disconnect;
     end;
   end;

end;

При попытке законнектится выкидывает ошибку "Already connected". Данная компонента нигде больше в проге не коннектится.
Помогите плиз

Автор: Felliks 11.10.2004, 05:58

я насколько помню тот компонент бажный, причем достаточно сильно

Попробуй со стандарнтым IndyHttp1...

Код


IdHTTP1.Host:='www.krasnet.ru';
IdHTTP1.ProxyParams.ProxyServer:='proxy.krasnet.ru';
IdHTTP1.ProxyParams.ProxyPort:=8010;
IdHTTP1.Connect(-1);
Memo1.text:=IdHTTP1.Get('www.krasnet.ru');

проверил - все работает с моим проксяком...

Я просто такого компонента не нашел как у тебя - кинь на мыло - попробую с ним проверить чтобы все работало

Автор: StealtH 11.10.2004, 17:10

Цитата(Felliks @ 11.10.2004, 05:58)

Я просто такого компонента не нашел как у тебя - кинь на мыло - попробую с ним проверить чтобы все работало

А чо именно кинуть, я не понял сам компонент NMHTTP, или что ?

Ты знаешь, я не нашел в компоненте IdHTTP свойства ProxyParams, у тя какая версия дельфы? У меня Delphi 6.0

Автор: deltas 28.5.2010, 12:08

Цитата

При попытке законнектится выкидывает ошибку "Already connected". Данная компонента нигде больше в проге не коннектится.

Хоть тема и стара, отвечу. Может кому пригодится...

В данном случае

Код

NMHTTP1.Get('borland.com');

работает как

Код

NMHTTP1.Connect;

тоесть последнее ненужно...

Автор: NormIridium 16.5.2011, 07:24

Спасибо большое. Пригодилось. Убрал строчку и все заработало.