Takaaki Mizuno <mizuno_takaaki@...> on 17/4/00 12:55 PM scribed :

> Hello, Pete.
> With the following code,
> you can use Internet Config in FB^3.
> 
> ---------------------------------
> LIBRARY "ICAp;InternetConfigLib"
> #DEFINE ICError AS LONG
> #DEFINE ICInstance AS POINTER
> BEGIN RECORD ICDirSpec
> DIM vRefNum AS SHORT
> DIM dirID AS LONG
> END RECORD
> #DEFINE ICDirSpecArrayPtr AS POINTER TO ICDirSpec
> TOOLBOX FN ICStart(ICInstance inst,Long) = ICError `0x2F3C,4,0,0x7000,0xA82A
> TOOLBOX FN ICFindConfigFile(ICInstance inst, SHORT, ICDirSpecArrayPtr
> folders) 
> = ICError `0x2F3C, 6, 2, 0x7000, 0xA82A
> TOOLBOX FN ICLaunchURL(ICInstance inst,STR255 hint,pointer,
> LONG,LONG *selStart,LONG *selEnd)= ICError `0x2F3C, 20, 17, 0x7000, 0xA82A
> TOOLBOX FN ICStop(ICInstance inst) = ICError `0x2F3C,0,1,0x7000,0xA82A
> LIBRARY
> 
> /* from Components.h */
> 
> LIBRARY "InterfaceLib"
> #DEFINE ComponentInstance AS POINTER
> TOOLBOX FN OpenDefaultComponent( OSType componentType, OSType
> componentSubType)
> = ComponentInstance `0x7021, 0xA82A
> TOOLBOX FN CloseComponent(ComponentInstance aComponentInstance)
> = OSErr `0x7008, 0xA82A
> LIBRARY
> ---------------------------------
> 
> Pete wrote:
>> toolbox FN OpenDefaultComponent(long,long) = long `0x7021,0xA82A
>> toolbox FN ICCStart(long,long) = long `0x2F3C,0x0004,0x0000,0x7000,0xA82A
>> toolbox FN ICCFindConfigFile(long) = long
>> `0x2F3C,0x0006,0x0002,0x7000,0xA82A
>> toolbox FN ICCLaunchURL(long,long,long,long,long,long) = long
>> `0x2F3C,0x0014,0x0011,0x7000,0xA82A
>> toolbox FN ICCStop(long) = long `0x2F3C,0x0000,0x0001,0x7000,0xA82A
>> toolbox FN CloseComponent(long) = word `0x7008,0xA82A
>> 
>> I suspect that I need the components header.
>> has anyone translated it into the format for FB^3 ??
> 
> 
> --------------
> Takaaki Mizuno
> mizuno_takaaki@..., takaaki@...
> http://www1.cds.ne.jp/~takaaki/rinbrand/
> 
> --
> To unsubscribe, send ANY message to <futurebasic-unsubscribe@...>

Thanks Takaaki

Will check it out...

Pete...