>*Method ShowMapFromHTML of a container that contains oBrowser (browser ActiveX) >LPARAMETERS tcHTML >LOCAL lcFileType,lcTempFile >IF This.Visible > This.oBrowser.Navigate("about:blank") > IF '<TITLE>404 NOT FOUND</TITLE>' $ UPPER(tcHTML) OR '<TITLE>400 BAD REQUEST</TITLE>' $ UPPER(tcHTML) > lcFileType = 'html' > ELSE > lcFileType = 'gif' > ENDIF > > lcTempFile = FULLPATH(CURDIR()) + 'Temp\' + SYS(2015) + "Map." + lcFileType > STRTOFILE(tcHTML,lcTempFile) > WaitForReadyState(This.oBrowser) > > IF lcFileType = 'html' > This.oBrowser.Navigate(lcTempFile) > ELSE > This.oBrowser.Document.Body.innerHTML = [<img src=] + lcTempFile + [>] > ENDIF > This.oBrowser.Refresh() > *DELETE FILE lcTempFile >ENDIF > >FUNCTION WaitForReadyState >LPARAMETERS toBrowser,lnReadyState,lnMilliSeconds > IF EMPTY(lnReadyState) > lnReadyState = 4 > ENDIF > IF EMPTY(lnMilliSeconds) > lnMilliSeconds = 4000 > ENDIF > > DECLARE INTEGER Sleep IN WIN32API INTEGER nMSecs > > LOCAL lnX > lnX = 0 > DO WHILE toBrowser.ReadyState # lnReadyState AND lnX < lnMilliSeconds > DOEVENTS > lnX = lnX + 1 > Sleep(1) > ENDDO > > IF lnX < lnMilliSeconds > RETURN .T. && Not timed out > ENDIF > RETURN .F. >