怎样向ActiveForm中传递参数,ActiveForm中怎样向web server发出URL请求(100分)

  • 主题发起人 主题发起人 元素88
  • 开始时间 开始时间

元素88

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大师:
  我做了一个ActiveForm在IE中执行,怎样向ActiveForm中传递参数,ActiveForm中怎样向web server发出URL请求.
 
关注下面的链接,对你有帮助
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');
...


 
原来如此,谢谢pihome!
 
为什么把问题考虑得如此复杂呢?
直接用ShellExecute即可,
如 shellexecute(handle,nil,pchar('http://www.163.com'),nil,nil,sw_shownormal);
 
后退
顶部