如何刷新一个页面 ( 积分: 20 )

没有窗口的程序，如何使一个网页的页面刷新一次

没有窗口的程序，如何使一个网页的页面刷新一次

一网页的页面上不是有刷新的一个按钮的嘛？？？那个在左上角处两个键头循环的，也就是左起数第四个图标

TO suny2005,

不懂你在说什么,我指的是我的程序,没有窗口的程序

这下面用了几个API函数，是得到一个网页的原代码。问题现在我不是要得到原代码，是要让它刷新一次，那位大哥帮帮小弟


unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
function GetWebPage(const Url: string):string;
var
Session,
HttpFile:HINTERNET;
szSizeBufferointer;
dwLengthSizeBufferWord;
dwReservedWord;
dwFileSizeWord;
dwBytesReadWord;
ContentsChar;
begin
Session:=InternetOpen('',0,niL,niL,0);
HttpFile:=InternetOpenUrl(Session,PChar(Url),niL,0,0,0);
dwLengthSizeBuffer:=1024;
HttpQueryInfo(HttpFile,5,szSizeBuffer,dwLengthSizeBuffer,dwReserved);
GetMem(Contents,dwFileSize);
InternetReadFile(HttpFile,Contents,dwFileSize,dwBytesRead);
InternetCloseHandle(HttpFile);
InternetCloseHandle(Session);
Result:=StrPas(Contents);
FreeMem(Contents);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(GetWebPage('http://www.aaccaa.com'));
end;

end.

自已顶...............................DDDDDDDDDDDDDDDDDDDDDDDDDDDDD

你读一次页面不就刷新一次了吗？

就是试过了,不行,用上面的代码,只会把网页的源码读出来.

但网页的计数器不会增加

如果刷新当前网页,只用一句即可:
WebBrowser1.Refresh;

HttpFile:=InternetOpenUrl(Session,PChar(Url),niL,0,0,0);

加参数 INTERNET_FLAG_RELOAD 的，在 wininet; 里有的，

TO 深之蓝 没有FORM 没有WebBrowser1 所以.........

TO 金卡绣球jk8.com
谢谢,我去查一下,但为何不直接写一下代码呢,

对了,分不多,呵呵