unit toupiao;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WinInet, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
//type
//  buffer=array [2..1024] of char;

var
  url:string;
  myhinternet:HINTERNET;
  hInternetFile:HINTERNET;
  buffer:array[2..1024] of char;

  dwBytesRead:DWord;
begin
  dwBytesRead:=1024;
  url:='http://club.mir3.com.cn/newmir3/gallary/show.asp?ID=16289&Action=poll'; 
  myhinternet:=InternetOpen('Microsoft Internet Explorer',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
  if myhinternet=NIL then
    exit;
  hInternetFile:=InternetOpenUrl(myhinternet,pchar(url), nil, 0, INTERNET_FLAG_TRANSFER_BINARY + INTERNET_FLAG_RELOAD + INTERNET_FLAG_DONT_CACHE, 0);
  if hInternetFile=NIL then
    exit;
  InternetReadFile(hInternetFile,@buffer,SizeOf(buffer),dwBytesRead);
//  writeln(@buffer);

label1.Caption :=buffer;
  InternetCloseHandle(myhinternet);
  Application.Terminate;
  
end;


end.