>> loBinder = CreateObject("VFPCOM.COMUtil") >> lofrmWebBrowser = CreateObject('myweber') >> loEventHandler = CreateObject('WebHandler') >> loBiner.BindEvents(lofrmWebBrowser.oleWeb ,loEventHandler) >>>>
>> DEFINE CLASS WebHandler AS session OLEPUBLIC >> >> IMPLEMENTS IWebBrowserApp IN "c:\winnt\system32\shdocvw.dll" >> PROCEDURE IWebBrowserApp_Navigate(URL AS STRING, Flags AS VARIANT, TargetFrameName AS VARIANT, PostData AS VARIANT, Headers AS VARIANT) AS VOID; >> HELPSTRING "Navigates to a URL or file." >> * add user code here >> gnWeberCount = gnWeberCount + 1 >> DIMENSION gaoWeber[gnWeberCount] >> gaoWeber[gnWeberCount] = CREATEOBJECT('myweber') >> gaoWeber[gnWeberCount].GoWeb(URL) >> gaoWeber[gnWeberCount].Show() >> >> ENDPROC >> >> .... >> ... >>thank u very much ,bob.Is my internet control interface right? such as
IMPLEMENTS IWebBrowserApp IN "c:\winnt\system32\shdocvw.dll"