[futurebasic] [FB] Internet Access help

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : May 2012 : Group Archive : Group : All Groups

From: Douglas Stemen <dstemen@...>
Date: Tue, 1 May 2012 19:04:27 -0400
The old internet access routine (shown below) I have been using does not compile in FB 5.7.2. 
Errors are that FN ICStart, FB ICLaunchURL, and FN ICStop are unknown functions, although I see the FN's in the internetconfig file.

Is there a newer version that works, or do I have to modify the existing code?

Thanks for any help.

Doug Stemen

include "Tlbx InternetConfig.Incl"

Clear Local Mode
Local Fn LaunchURL( @urlStr As ^Str255 )
Dim As Long err,junk,@ startSel,endSel
Dim As ICInstance @ inst
err = Fn ICStart( inst, Fn GetMyCreator )
Long If err = _noErr
#If CarbonLib = 0
err = Fn ICFindConfigFile( inst, 0, _nil )
#Endif
Long If err = _noErr
startSel = 0
endSel   = urlStr.nil$[0]
err = Fn ICLaunchURL(inst,":",@urlStr.nil$[1],urlStr.nil$[0],startSel,endSel)
End If
junk = Fn ICStop( inst )
End If
End Fn = err