A user reported a problem when accessing my website http://www.overbyte.be.
When clicking on the applet with the snow, he get a 404 page from
overbyte.com domain (note .com, not .be). From here, I have no problem at
all. Can I ask you to check and tell me USING PRIVATE EMAIL, NT THE LIST,
if it works or not ?

Francois PIETTE wrote:
A user reported a problem when accessing my website
http://www.overbyte.be. When clicking on the applet with the snow, he get
a 404 page from overbyte.com domain (note .com, not .be). From here, I
have no problem at all. Can I ask you to check and tell me USING PRIVATE
EMAIL, NT THE LIST, if it works or not ?

Francois,

Just my 2 cents, but do you really need active-x on your website?
Conservative people like me could be frightened.

Arno

Hello Ja,

Is DNSLookup with WSocket async?
yes.

please dont reply to a thread if subject is different. Many modern
email reader can sort on thread so many people will not see your
question if they are not interested in the thread (in this case
'problem with overbyte website')

Rgds, Wilfried [TeamICS]

http://www.mestdagh.biz

Hello Ja,
Is there any way to do a WSocket DNSLookup and LookupDone get
adress of host that have been looked up?
I do not understeand the question. CAn you please rephrase it ?
Rgds, Wilfried [TeamICS]
http://www.mestdagh.biz

There is no activex, only a java applet for the snow :-)

Problem now solved.
Thanks for those who helped.

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.mestdagh.biz

Tuesday, January 3, 2006, 22:18, Ja wrote:

Wiadomo
: Wilfried Mestdagh <wilfried (AT) mestdagh (DOT) biz>
Do: ICS support mailing <twsocket (AT) elists (DOT) 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 LookupDone 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 LookupDone event

Wilfried,

Not sure, but I think he meant this one:

procedure TForm1.WSocket1DnsLookupDone(Sender: T; ErrCode: Word);
begin
if ErrCode = 0 then
Memo1.Lines.AddStrings(TWSocket(Sender).DnsResultL ist)
else if ErrCode >= 10000 then
Memo1.Lines.Add('Error: ' + WSocketErrorDesc(ErrCode))
else
Memo1.Lines.Add('Unknown Error!');
end;

procedure TForm1.BKClick(Sender: T);
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.mestdagh.biz

Tuesday, January 3, 2006, 22:18, Ja wrote:


>Wiadomosc
>: Wilfried Mestdagh <wilfried (AT) mestdagh (DOT) biz>
>Do: ICS support mailing <twsocket (AT) elists (DOT) 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 LookupDone 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 LookupDone event

Ja wrote:
Yes i meant that but if the error occures i need to know with
what domain.

>procedure TForm1.WSocket1DnsLookupDone(Sender: T; ErrCode: Word);
>begin
>if ErrCode = 0 then
>Memo1.Lines.AddStrings(TWSocket(Sender).DnsResultL ist)
>else
>Memo1.Lines.Add('<DMAIN_NAME>: Unknown Error!');
>end;

But dont know how to get the domain_name that just have been looked
up. TWSocket(Sender).addr is empty.

Why don't you put something in?

Arno Garrels [TeamICS]

Wiadomosc
: Arno Garrels <arno.garrels (AT) gmx (DOT) de>
Do: ICS support mailing <twsocket (AT) elists (DOT) 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: T; ErrCode: Word);
>begin
>if ErrCode = 0 then
>Memo1.Lines.AddStrings(TWSocket(Sender).DnsResultL ist)
>else if ErrCode >= 10000 then
>Memo1.Lines.Add('Error: ' + WSocketErrorDesc(ErrCode))
>else
>Memo1.Lines.Add('Unknown Error!');
>end;
>
>procedure TForm1.BKClick(Sender: T);
>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.mestdagh.biz

Tuesday, January 3, 2006, 22:18, Ja wrote:

Wiadomosc
: Wilfried Mestdagh <wilfried (AT) mestdagh (DOT) biz>
Do: ICS support mailing <twsocket (AT) elists (DOT) 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 LookupDone
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 LookupDone event
>--
>To unsubscribe or change your settings for TWSocket mailing list
>please goto
>Visit our website at http://www.overbyte.be

Hello Ja,

But dont know how to get the domain_name that just have been looked
up. TWSocket(Sender).addr is empty.

Sorry I mistundertood your question. Thanks Arno for clarifying.
TWSocket.Addr is not used for the DNSLookup, so you can put the domain
in there.

Rgds, Wilfried [TeamICS]

http://www.mestdagh.biz

Wednesday, January 4, 2006, 16:21, Ja wrote:

Yes i meant that but if the error occures i need to know with
what domain.

>procedure TForm1.WSocket1DnsLookupDone(Sender: T; ErrCode:
Word);
>begin
>if ErrCode = 0 then
>Memo1.Lines.AddStrings(TWSocket(Sender).DnsResultL ist)
>else
>Memo1.Lines.Add('<DMAIN_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
: Arno Garrels <arno.garrels (AT) gmx (DOT) de>
Do: ICS support mailing <twsocket (AT) elists (DOT) 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: T; ErrCode:
Word);
>begin
>if ErrCode = 0 then
>Memo1.Lines.AddStrings(TWSocket(Sender).DnsResultL ist)
>else if ErrCode >= 10000 then
>Memo1.Lines.Add('Error: ' + WSocketErrorDesc(ErrCode))
>else
>Memo1.Lines.Add('Unknown Error!');
>end;
>
>procedure TForm1.BKClick(Sender: T);
>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.mestdagh.biz
>
>Tuesday, January 3, 2006, 22:18, Ja wrote:
>
>
>>Wiadomosc
>>: Wilfried Mestdagh <wilfried (AT) mestdagh (DOT) biz>
>>Do: ICS support mailing <twsocket (AT) elists (DOT) 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 LookupDone
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 LookupDone event
>--
>To unsubscribe or change your settings for TWSocket mailing list
>please goto
>Visit our website at http://www.overbyte.be
>

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: T);
var
Sock: TWSocket;
n: integer;
bgein
n := 0;
while n < DomainList.Count do begin
Sock := TWSocket.Create(nil);
SDnsLookupDone := SockDnsLookupDone;
Sock.Addr := DomainList[n];
Sock.DnsLookup(Sock.Addr);
Inc(n);
end;
end;

procedure SockDnsLookupDone(Sender: T; 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.mestdagh.biz