unit Unit1;
interface
uses
Windows,PerlRegEx,WinInet, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
function GetWebPage(const Url: string):string;
var
Session, HttpFile: HINTERNET;
dwSize, dwRead: DWORD;
Contents: PChar;
begin
Result := '';
Session := InternetOpen('', 0, niL, niL, 0);
try
HttpFile := InternetOpenUrl(Session, PChar(Url), niL, 0, 0, 0);
try
dwSize := 1024;
GetMem(Contents, dwSize + 1);
try
while InternetReadFile(HttpFile, Contents, dwSize, dwRead) and (dwRead > 0) do
begin
Contents[dwRead] := #0;
Result := Result + StrPas(Contents);
end;
finally
FreeMem(Contents);
end;
finally
InternetCloseHandle(HttpFile);
end;
finally
InternetCloseHandle(Session);
end;
end;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
reg: TPerlRegEx;
begin
showmessage('111111');
reg := TPerlRegEx.Create(nil); //建立
reg.Subject := GetWebPage('http://wenda.tianya.cn/wenda/label?lid=5a2f2dc646690e42');
memo1.Text:=reg.Subject;
end;
end.
/
本人刚学delphi 代码不是很懂 呵呵 都贴上来吧。。
自己记不住 写博客了了 。。
