Вступление.
Indy
На компьютере используется подключение к интернету через модем мегафона.
Нужно ли в idhttp указывать данные для Proxy, или же модем не использует прокси???
Вот столкнулся с такой проблемкой.
Код:
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.
Indy
- Установил на форму компонент idhttp и idantifreeze
- Пытаюсь при подключении получить в переменную типа Variant данные с сайта.
- Выдает ошибку 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.
Комментариев нет:
Отправить комментарий