Unit uWzTnDNS; interface uses uWzTINA; {$PCU} {$SL ON} {$W- Warnings} /////////////////////////////////////////////////////////////////////////// //// Modul : IP-Helper /// DNS-Modul for W5100A IP-Stack Core /// Domain-Query /// Version : 1.00 Production /// Date : 12.09.2003 /// Copyright : (C)2010 E-LAB Computers Germany /// Thorsten Rohlfing // global partuses WzKernel; //{$IDATA} //{$RAMpage TCP_IP} {--------------------------------------------------------------} { Const Declarations } const DNSVer : Byte = 100; {--------------------------------------------------------------} { Type Declarations } type {--------------------------------------------------------------} { Var Declarations } var{--------------------------------------------------------------} { functions } procedure wzSetDNSserver(IPAddr : tIPaddr); Function wzDNSQueryHost(Buffer : Pointer; BuffLen : Word; Hostname : Pointer to String; var Result_IP : tIPaddr) : Boolean; implementation