суббота, 18 июня 2011 г.

Программирование на Delphi7: Indy idhttp и модем мегафона.

Вступление.
Indy

  1. Установил на форму компонент idhttp и idantifreeze
  2. Пытаюсь при подключении получить в переменную типа Variant данные с сайта.
  3. Выдает ошибку Not Implemented.



На компьютере используется подключение к интернету через модем мегафона.
Нужно ли в idhttp указывать данные для Proxy, или же модем не использует прокси???


Вот столкнулся с такой проблемкой.


Код:



unit bot_bot;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdCookieManager, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, StdCtrls, IdIOHandler, IdIOHandlerSocket,
  IdAntiFreezeBase, IdAntiFreeze;


type
  TForm1 = class(TForm)
    btn1: TButton;
    mmo1: TMemo;
    idhtp1: TIdHTTP;
    idckmngr1: TIdCookieManager;
    idntfrz1: TIdAntiFreeze;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;


implementation


{$R *.dfm}


procedure TForm1.btn1Click(Sender: TObject);
var
  i:Integer;
  tag:Variant;
  Data:TStringList;
begin
  try
 tag:=idhtp1.Get('www.botva.ru');
except
 on E:EIdHTTPProtocolException do
  showmessage('Что то с инетом мегафон походу!!!')
end;
mmo1.Lines.Add(tag);
end;


end.

Комментариев нет:

Отправить комментарий