source: trunk/Packages/synapse/source/demo/FreePascal/testdns.pas

Last change on this file was 2, checked in by chronos, 13 years ago
  • Přidáno: Základní kostra projektu.
  • Přidáno: Knihovna synapse.
File size: 462 bytes
Line 
1{$MODE DELPHI}
2
3Program testdns;
4
5uses
6 dnssend, synamisc, classes;
7
8var
9 l: tstringlist;
10 s: string;
11begin
12 l := TStringList.create;
13 try
14 s := GetDNS;
15 writeln('DNS servers: ', s);
16 l.commatext := s;
17 if l.count > 0 then
18 begin
19 s := l[0];
20 GetMailServers(s, paramstr(1), l);
21 Writeln('MX records for domain ', paramstr(1), ':');
22 writeln(l.text);
23 end;
24 finally
25 l.free;
26 end;
27end.
28
Note: See TracBrowser for help on using the repository browser.