Hello Ja, > Program check list of domains with several components at once... > putting something in woudldnt do the job.
Yes it does (not tested): procedure TForm1.LookupBtnClick(Sender: TObject); var Sock: TWSocket; n: integer; bgein n := 0; while n < DomainList.Count do begin Sock := TWSocket.Create(nil); Sock.OnDnsLookupDone := SockDnsLookupDone; Sock.Addr := DomainList[n]; Sock.DnsLookup(Sock.Addr); Inc(n); end; end; procedure SockDnsLookupDone(Sender: TObject; Error: Word); var Sock: TWSocket; begin Sock := TWSocket(Sender); if ErrCode = 0 then Memo1.Lines.AddStrings(Sock.DnsResultList + ' ' + Sock.Addr) else Memo1.Lines.Add('Error ' + Sock.Addr + ' ' + WSocketErrorDesc(ErrCode)) Sock.Release; end; --- Rgds, Wilfried [TeamICS] http://www.overbyte.be/eng/overbyte/teamics.html http://www.mestdagh.biz -- To unsubscribe or change your settings for TWSocket mailing list please goto http://www.elists.org/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be