TargetFrameName:=AnsiString(''); PostData:=OleVariant(false); Heads:=AnsiString(''); Flags:=OleVariant(0); TWebBrowser.Navigate(url,Flags,TargetFrameName,PostData,Heads); Sleep(500); while TWebBrowser.Busy or (TWebBrowser.ReadyState <> READYSTATE_COMPLETE) do Application.ProcessMessages;
一,OLE拖放,IDataObject相关技术.
二,WEBBROWSER的内容访问.两部分网上都可以找到相应文档...我没有记网址,你先自已找一找.
就连CSDN都有好几篇文章(关于DELPHI实现的)http://www.csdn.net/Develop/Read_Article.asp?Id=21115http://www.csdn.net/Develop/Read_Article.asp?Id=12100
PostData:=OleVariant(false);
Heads:=AnsiString('');
Flags:=OleVariant(0);
TWebBrowser.Navigate(url,Flags,TargetFrameName,PostData,Heads);
Sleep(500);
while TWebBrowser.Busy or (TWebBrowser.ReadyState <> READYSTATE_COMPLETE) do
Application.ProcessMessages;