[futurebasic] Re: [FB] [FB^3] Internet Config Code

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : April 2000 : Group Archive : Group : All Groups

From: Takaaki Mizuno <mizuno_takaaki@...>
Date: Mon, 17 Apr 2000 11:55:29 +0900
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/