VPF::Люди помогите разобраться с NMHTTP.Proxy

StealtH

Дата 11.10.2004, 03:30 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Вообщем суть проблемы такова:
Есть компонент 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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

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

Попробуй со стандарнтым 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');

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

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

Это сообщение отредактировал(а) Felliks - 11.10.2004, 06:00

--------------------

Почему русские при зависании Windows всё время повторяют фразу "твой кролик написал" (Your Bunny Wrote)?

StealtH

Дата 11.10.2004, 17:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

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

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

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

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

Это сообщение отредактировал(а) StealtH - 11.10.2004, 17:16

deltas

Дата 28.5.2010, 12:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Цитата

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

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

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

Код

NMHTTP1.Get('borland.com');

работает как

Код

NMHTTP1.Connect;

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

NormIridium

Дата 16.5.2011, 07:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

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

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