[futurebasic] [FB] Internet Access help

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

From: Ken Shmidheiser <kshmidheiser@...>
Date: Tue, 1 May 2012 22:28:37 -0400
Doug asked:

The old internet access routine...does not compile in FB 5.7.2. 
Is there a newer version that works...?


include "Tlbx LSOpen.incl"

local fn LaunchURL( urlString as CFStringRef ) as OSStatus
'~'1
dim as CFURLRef  url
dim as OSStatus  stat

url = fn CFURLCreateWithString( _kCFAllocatorDefault, urlString, NULL )
if ( url )
stat = fn LSOpenCFURLRef( url, NULL )
CFRelease( url )
end if
end fn = stat

fn LaunchURL( @"http://freegroups.net/groups/futurebasic/" )