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;
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
memo1.text:=idhttp1.Get('http://www.baidu.com');
end;end.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP;type
TForm1 = class(TForm)
Button1: TButton;
IdHTTP1: TIdHTTP;
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
memo1.text:=idhttp1.Get('http://www.baidu.com');
end;end.
解决方案 »
- cxgrid 多选后赋值并保存的问题
- delphi中 有比idhttp.get更快速的获取网页内容的方法吗?
- iocomp v3.04 如何安装到delphi7里
- 讨论:Delphi如何使用UPnP的自动端口映射功能?
- enter 键是#13 那ctrl键是多少啊?
- 谁用过datapath的video卡和rgb卡?谁做过mci编程??进来讨论一下吧!
- AdjustTokenPrivileges这个函数起什么作用?还请专家指点!
- 小弟的2个小问题?(Tabsheep,treeview)
- 谢gongshl帮我解决了dbgrid到execl的问题,拿分吧
- 高分!高分!请问,那里有解密的ExtraPack控件?
- 控件TIdTrivialFTPServer的demo
- delphi post
try
IdHTTP1.Request.UserAgent := 'Test';
memo1.text:= idhttp1.Get('http://www.baidu.com/');
except
end;