ITK Programmer's Guide

---

ITK_Init
Syntax:	result := ITK_Init (licence)
Description:	Initialises ITK by giving ITK it's license number. If the license number is incorrect, ITK will run automatically in demo mode .
Warning:	If both license numbers are empty or invalid, ITK will run in demo mode and beep three times. Just call this routine once in your application prior to any other call to ITK , otherwise the "demo dialog" will show up (the best place to do this is the "Startup" procedure or the "On Startup" method of 4Dv6). If you are using ITK in 4D Server's stored procedures, you will have to call ITK_Init at the beginning of those procedures (one call to ITK_Init is enough, you don't need to call it il all stored procedures), otherwise the "demo dialog" will show up on 4D Server.
Params:	In/Out Parameter Type     Example or note -> licence1 String First licence number Pass your ITK license number. <- result Longint TCP init error code 0 = no error while initializing TCP layers
Example:	$err := ITK_Init("serial_number") If ($err <0) ALERT("Your TCP/IP layers couldn't be initialised !") End If

Back to top

ITK_TCPInfos
Syntax:	result := ITK_TCPInfos (localIP; version1; version2; ITKversion)
Description:	Returns global information about the TCP/IP layers.
Params:	In/Out Parameter Type     Example or note <- localIP Longint local IP address On multihomed systems, the primary (or default) local IP address is returned. <- version1 Longint version of TCP/IP layers 1 = MacTCP 1.1 2 = MacTCP 1.1.1 3 = MacTCP 2.0.x 4 = TCP/IP (OpenTransport) 5 = Winsock <- version2 Longint OpenTransport's version number Under OpenTransport, returns OpenTransport's version code. OpenTransport version codes are values returned by Gestalt selector 'otvr' with Apple's standard version format. $MMmrssbb (in hexadecimal) where: MM = major version number m = minor version number r = release version number ss = stage code ($20 = dev, $40 = alpha, $60 = beta, $80 = Final) bb = build number For example, OpenTransport 1.1 returns 17858560 decimal, which is $01108000 in hexadecimal so this is version 1.1F. <- ITKversion Longint ITK's version number Same format as Apple's standard version format (see above). <- result Longint error code (negative values).
Example:	$err := ITK_TCPInfos(locAddr;TCPvers;OTvers) if (TCPvers=5) ` we're under Windows foldSep := "\" else foldSep := ":" end if

Back to top

ITK_TCPGetStrm
Syntax:	result := ITK_TCPGetStrm (index)
Description:	This routine allows to retrieve the list of all current TCP streams allocated by ITK.
Params:	In/Out Parameter Type     Example or note -> index Longint Index value Pass 0 to get the current number of streams. Pass 1..n to get the Nth stream. <- result Longint StreamRef (if index > 0) number of streams (if index=0) 0 (index out of range) If index > 0 returns the StreamRef. If index = 0 returns the amount of allocated streams If the returned value is 0 the index is out of range.
Example:	$nbStrm := ITK_TCPGetStrm(0) ` get the number of allocated streams For ($i;1;$nbStrm) $status := ITK_TCPStatus(ITK_TCPGetStrm($i)) End For

Back to top

maxTCPstrm := ITK_TCPGlobInfo(5) ` max. number of streams

---

e-Node/30-January-2010