给分,缺分厉害
用fastnet下的nmhttp.get('http://www.delphibbs.com');
然后nmhttp.body,取出,下面……自己用字符串处理吧
忙点,不然把字符串处理也帮你解决。
例子:
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Psock, NMHttp, StdCtrls;
type
TForm1 = class(TForm)
NMHTTP1: TNMHTTP;
Button1: TButton;
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
nmhttp1.Get('http://www.delphibbs.com');
memo1.Text:=nmhttp1.Body;
end;
end.