Get - запрос

@Nikitko_Cent · Регистрация: 27.10.2011

Author24 — интернет-сервис помощи студентам

Почему такой код get-запроса кода страницы гугла не работает?

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    IdHTTP1: TIdHTTP;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.text:=idhttp1.get('http://www.google.com/');
end;
 
end.

Исключение класса EIdHttpProtocolException с сообщением : "http/1.1 302 found"

И как тогда получить код?

@RibGeDx · 29.08.2012, 11:11

Nikitko_Cent,

Delphi

 
 
function GetSourceHtml(URL: AnsiString): AnsiString;
var
  idHttp: TIdHTTP;
begin
  idHttp:= TIdHttp.Create(Form1);
  if Pos('http://', URL) = 0 then URL:= 'http://' + URL;
  Result:= idHttp.Get(URL);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.text:= GetSourceHtml('http://www.google.com/');
end;

	29.08.2012, 11:11

Опции темы