BlackBox Component Builder Forums

Code: Select all

PROCEDURE NameToAdr (IN peername: ARRAY OF CHAR; VAR inaddr: WinNet.in_addr; OUT ok: BOOLEAN);
		VAR hostentry: WinNet.Ptrhostent; shortPName: ARRAY 64 OF SHORTCHAR;
	BEGIN
		shortPName := SHORT(peername$);
		IF IsIPAddress(peername) THEN
			inaddr.S_un.S_addr := WinNet.inet_addr(shortPName);
			ok := (peername$ = '255.255.255.255') OR (inaddr.S_un.S_addr # WinNet.INADDR_NONE); 
                       (* pk,  потому что: An Internet address with a dot notation value of 255.255.255.255 or its 
                           equivalent in a different base format causes the inet_addr subroutine to return an unsigned integer 
                           value of 4294967295. This value is identical to the unsigned representation of the error value. 
                           Otherwise, the inet_addr subroutine considers 255.255.255.255 a valid Internet address. 
                        *)
			ASSERT(ok);
		ELSE
			hostentry := WinNet.gethostbyname(shortPName);
			ok := hostentry # NIL;
			IF ok THEN
				inaddr := hostentry.h_addr_list^[0]^[0]  [b]  <-- Error : incompatible assignment 
			ELSE
				Error("gethostbyname()", WinNet.WSAGetLastError())
			END
		END
	END NameToAdr;