*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.