//
// This example is only running when "Use TCP/IP stack of operating system"
// is selected.
//
on start
{
long result;
dword count;
dword v4Addrs[10];
char hostname[255];
//
// get IPv4 address of www.vector.de
//
count = elCount(v4Addrs);
strncat(hostname, "www.vector.de", elcount(hostname));
result = IpGetHostByName(hostname, v4Addrs, count);
WriteAddresses(result, hostname, v4Addrs, count);
}
//
// callback is called when the DNS lookup has completed
//
void OnIpGetHostByName(long result, char hostname[], dword ipv4Address[], dword count)
{
WriteAddresses(result, hostname, ipv4Address, count);
}
//
// print the address to the write window
//
void WriteAddresses(dword result, char hostname[], dword ipv4Address[], dword count)
{
dword loop;
char addrStr[16];
if(result == 0)
{
write("IPv4 Addresses of %s:", hostname);
for(loop = 0; loop < count; loop++)
{
ipGetAddressAsString(ipv4Address[loop], addrStr, elcount(addrStr));
write("%s", addrStr);
}
}
else if(result == 11001)
{
write("host %s not found", hostname);
}
}