Re: More Florist.

[Freejack <user@nospam.net>]

On Sun, 02 Nov 2003 08:23:51 -0500, Jeff C, wrote:



> Have you tried something like
> 
> My_Storage : aliased Database_Array(1 .. 255);
> 
> begin
>  XXX := Get_Network_Info_By_Name(Name =>
>  The_Name_You_Already_Figured_Out,
>                                                               Storage =>
> My_Storage'unchecked_access);
> end;
> 
> ....or something along those lines...
 

Alright...here's what I have so far. Still getting Storage_Error. NetDB
is the only place I get it.(Why isn't there a simple "Get_Host_By_Name"
function? It's the most commonly used NetDB function. Why does one have
to parse the thing out of the response generated from the
"Get_Network_Info_By_Name" function? A design flaw?)
All my other procedures work so far. This is the only one that's
chaffing.

with Posix;
with Posix.Sockets.Internet;
with Ada.Text_IO;
procedure lookout is
	package NetSock renames Posix.Sockets.Internet;
	package TIO renames Ada.Text_IO;
	Response : Netsock.Network_Info;	
	URL : Posix.Posix_String := "www.yahoo.com";
	Address : Posix.Posix_String(1..64);
	My_Storage : aliased NetSock.Database_Array(1..255);
	Len : Positive;
begin

	Netsock.Open_Network_Database_Connection(True);
	Response := NetSock.Get_Network_Info_By_Name(Name => URL, 
				Storage => My_Storage'unrestricted_access);
	Address := NetSock.Get_Name(Response);
	Len := Address'length;
	declare
		Addr : String(1..Len);
	begin
		Addr := Posix.To_String(Address);

		-- Just to see what the hell Get_Network_Info_By_Name --
		-- spits back at me. I have no idea what it'll be.	  --
		TIO.Put_Line("Response was"& Addr &".");
	end;
	NetSock.Close_Network_Database_Connection;
end lookout;

Heh. Let the chuckles begin.

Really though.  Does this code make sense?

Freejack