各位达人
小弟初学
写了二行代码 纯属垃圾 目的是想看一下网站的返回信息
但就是调试不成
总是说 400 BAD REQUEST 请高手指点一下 小弟先谢过了
-----------------------------------------
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP;type
TForm1 = class(TForm)
Button1: TButton;
IdHTTP1: TIdHTTP;
Edit1: TEdit;
MEMO1: TMEMO;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin
idhttp1.head(edit1.Text);
MEMO1.TEXT:=IDHTTP1.ResponseText;
end;end.
小弟初学
写了二行代码 纯属垃圾 目的是想看一下网站的返回信息
但就是调试不成
总是说 400 BAD REQUEST 请高手指点一下 小弟先谢过了
-----------------------------------------
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP;type
TForm1 = class(TForm)
Button1: TButton;
IdHTTP1: TIdHTTP;
Edit1: TEdit;
MEMO1: TMEMO;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin
idhttp1.head(edit1.Text);
MEMO1.TEXT:=IDHTTP1.ResponseText;
end;end.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货