Visual FoxPro

DNS Lookup

Do a DNS lookup to resolve a hostname to an IP address. Visual FoxPro

LOCAL loSocket
LOCAL lnMaxWaitMs
LOCAL lcIpAddr

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

loSocket = CreateObject('Chilkat.Socket')

lnMaxWaitMs = 10000
lcIpAddr = loSocket.DnsLookup("www.chilkatsoft.com",lnMaxWaitMs)
IF (loSocket.LastMethodSuccess <> 1) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    CANCEL
ENDIF

? "IP Address: " + lcIpAddr

RELEASE loSocket