BlackBox Framework Center

Code: Select all

MODULE ObxTest;
	IMPORT WinNet, Log := StdLog;
	
	(*
		WinNet.hostent* = RECORD [untagged]
			h_name*: WinApi.PtrSTR;
			h_aliases*: POINTER TO (*?*) ARRAY [untagged] OF WinApi.PtrSTR;
			h_addrtype*: SHORTINT;
			h_length*: SHORTINT;
			h_addr_list*: POINTER TO(*?*)  ARRAY [untagged] OF Ptrin_addr; (* <===  *)
		END;
	*)

	PROCEDURE Do* ();
		VAR 
			hostentry: WinNet.Ptrhostent; 
			inaddr: WinNet.in_addr; 
			shortPName: ARRAY 64 OF SHORTCHAR;
			ok: BOOLEAN; i: INTEGER;
	BEGIN
		shortPName := "www.163.com";
		hostentry := WinNet.gethostbyname(shortPName);
		ok := hostentry # NIL;
		IF ok THEN
			i := 0;
			WHILE hostentry.h_aliases[i] # NIL DO
				Log.String(hostentry.h_aliases[i]$); Log.Ln;
				INC(i);
			END;
			Log.Ln;
				
			i := 0;
			WHILE hostentry.h_addr_list[i] # NIL DO 
				(*inaddr := hostentry.h_addr_list[i]^;*) 
				inaddr := hostentry.h_addr_list[i]; (* lost'^' is correct also! *)
				Log.Int(ORD(inaddr.S_un.S_un_b.s_b1)); Log.Char('.');
				Log.Int(ORD(inaddr.S_un.S_un_b.s_b2)); Log.Char('.');
				Log.Int(ORD(inaddr.S_un.S_un_b.s_b3)); Log.Char('.');
				Log.Int(ORD(inaddr.S_un.S_un_b.s_b4)); Log.Ln;
				INC(i);
			END;
		ELSE
			Log.String("Error: gethostbyname() : "); Log.Int(WinNet.WSAGetLastError())
		END
	END Do;
	
	PROCEDURE Init* ();
		VAR 
			data: WinNet.WSADATA;
			res: INTEGER;
	BEGIN
		res := WinNet.WSAStartup(0202H, data);
		IF res = 0 THEN
			Log.String("Fail at WSAStartup"); Log.Ln;
		END;
	END Init;
	

END ObxTest.