关注下面的链接,对你有帮助
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2176572
关于 ActiveForm中怎样向web server发出URL请求.
var
Browser: IWebBrowser2;
Window: IHTMLWindow2;
Document: IHTMLDocument2;
with ActiveFormControl.ClientSite as IServiceProvider do
begin
OleCheck(QueryService(IWebbrowserApp,IWebbrowser2,Browser));
OleCheck(QueryService(IHTMLWindow2,IID_IHTMLWindow2,Window));
Document:=Browser.Document as IHTMLDocument2;
end;
Browser.Navigate('http://delphibbs.com',EmptyParam,EmptyParam,EmptyParam,EmptyParam);
//Window.navigate('http://delphibbs.com');
//Document.url:='http://delphibbs.com');
...