Yes i meant that but... if the error occures i need to know with
what domain.
> procedure TForm1.WSocket1DnsLookupDone(Sender: TObject; ErrCode:
Word);
> begin
> if ErrCode = 0 then
> Memo1.Lines.AddStrings(TWSocket(Sender).DnsResultList)
> else
> Memo1.Lines.Add('<DOMAIN_NAME>: Unknown Error!');
> end;
But dont know how to get the domain_name that just have been looked
up. TWSocket(Sender).addr is empty.
---- Wiadomość Oryginalna ----
Od: Arno Garrels <[EMAIL PROTECTED]>
Do: ICS support mailing <twsocket@elists.org>
Data: Wed, 4 Jan 2006 16:11:29 +0100
Temat: Re: [twsocket] WSocket DNSLookup.
> Wilfried,
>
> Not sure, but I think he meant this one:
>
> procedure TForm1.WSocket1DnsLookupDone(Sender: TObject; ErrCode:
Word);
> begin
> if ErrCode = 0 then
> Memo1.Lines.AddStrings(TWSocket(Sender).DnsResultList)
> else if ErrCode >= 10000 then
> Memo1.Lines.Add('Error: ' + WSocketErrorDesc(ErrCode))
> else
> Memo1.Lines.Add('Unknown Error!');
> end;
>
> procedure TForm1.ButtonOKClick(Sender: TObject);
> begin
> WSocket1.DnsLookup('www.adomain.com');
> end;
>
>
> > Hello Ja,
> >
> > I think what you wants is the TDnsQuery component (also in ICS
package).
> > WSocket.DNSLookup resolve a hostname to IP address.
>
>
>
>
> >
> > ---
> > Rgds, Wilfried [TeamICS]
> > http://www.overbyte.be/eng/overbyte/teamics.html
> > http://www.mestdagh.biz
> >
> > Tuesday, January 3, 2006, 22:18, Ja wrote:
> >
> >
> >> ---- Wiadomosc Oryginalna ----
> >> Od: Wilfried Mestdagh <[EMAIL PROTECTED]>
> >> Do: ICS support mailing <twsocket@elists.org>
> >> Data: Tue, 3 Jan 2006 22:00:48 +0100
> >> Temat: Re: [twsocket] WSocket DNSLookup.
> >
> >>> Hello Ja,
> >>>
> >>>> Is there any way to do a WSocket DNSLookup and OnLookupDone
get
> >>>> adress of host that have been looked up?
> >>>
> >>> I do not understeand the question. CAn you please rephrase it
?
> >>>
> >
> >> I wouldlike to lookup some hosts ( with WSocket.
DnsLookup($domain) )
> >> , and at the end add a results to memo, but... when there is no
> >> result (for example domain doesnt exist) i would like to add
text
> >> "$domain doesnt exist!" ... but have no idea how do i get
$domain
> >> string in OnLookupDone event...
> --
> 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
>
--
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
