[twsocket] FTPClient1 Append Command Query
I've got an FTP Upload module that's working fine. I used Francois's FtpTST1 program as the starting point - many thanks. However rather than upload a large file each time I'd prefer just to append smaller amounts of data to the end of it. But when I try and replace the ExecuteCmd(FtpClient1.Put, FtpClient1.PutAsync); with ExecuteCmd(FtpClient1.AppendFile, FtpClient1.AppendFileAsync); I get the following response: > NLST s9.dat ! Data: Receive error 10054 < 450 s9.dat: Not a regular file Request 8 Done. StatusCode = 450 LastResponse was : '450 s9.dat: Not a regular file' FTP Error = 450 (450 s9.dat: Not a regular file) Command Failure If I use ExecuteCmd(FtpClient1.AppendFile, FtpClient1.AppendFileAsync); I just get a Executing Requested Command Command Failure Am I doing something wrong? Does append require additional setup parameters to work? Or is this the server telling me it doesn't support the append command? With many thanks, Ed Hasted -- 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
Re: [twsocket] Problem with Overbyte website
Problem now solved. Thanks for those who helped. -- Contribute to the SSL Effort. Visit http://www.overbyte.be/eng/ssl.html -- [EMAIL PROTECTED] Author of ICS (Internet Component Suite, freeware) Author of MidWare (Multi-tier framework, freeware) 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
Re: [twsocket] FTPClient1 Append Command Query
> > NLST s9.dat That's not the append command but the directory list command ! > < 450 s9.dat: Not a regular file > Or is this the server telling me it doesn't support the append command? Not sure about what the server is trying to say, but it doesn't like the file. -- Contribute to the SSL Effort. Visit http://www.overbyte.be/eng/ssl.html -- [EMAIL PROTECTED] Author of ICS (Internet Component Suite, freeware) Author of MidWare (Multi-tier framework, freeware) http://www.overbyte.be - Original Message - From: <[EMAIL PROTECTED]> To: Sent: Wednesday, January 04, 2006 9:52 AM Subject: [twsocket] FTPClient1 Append Command Query > I've got an FTP Upload module that's working fine. > I used Francois's FtpTST1 program as the starting point - many thanks. > > However rather than upload a large file each time I'd prefer just to > append smaller amounts of data to the end of it. > > But when I try and replace the > > ExecuteCmd(FtpClient1.Put, FtpClient1.PutAsync); > > with > > ExecuteCmd(FtpClient1.AppendFile, FtpClient1.AppendFileAsync); > > I get the following response: > > > > NLST s9.dat > ! Data: Receive error 10054 > < 450 s9.dat: Not a regular file > Request 8 Done. > StatusCode = 450 > LastResponse was : '450 s9.dat: Not a regular file' > FTP Error = 450 (450 s9.dat: Not a regular file) > Command Failure > > If I use > > ExecuteCmd(FtpClient1.AppendFile, FtpClient1.AppendFileAsync); > > I just get a > > Executing Requested Command > Command Failure > > > Am I doing something wrong? > Does append require additional setup parameters to work? > Or is this the server telling me it doesn't support the append command? > > With many thanks, > > Ed Hasted > -- > 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
Re: [twsocket] FTPClient1 Append Command Query
That confused me as that file PUTs perfectly OK with ExecuteCmd(FtpClient1.Put, FtpClient1.PutAsync); Maybe I should try another FTP server? Thanks, Ed Francois Piette wrote: >> > NLST s9.dat > > > That's not the append command but the directory list command ! > > >>< 450 s9.dat: Not a regular file >>Or is this the server telling me it doesn't support the append command? > > > Not sure about what the server is trying to say, but it doesn't like the file. > > > -- > Contribute to the SSL Effort. Visit > http://www.overbyte.be/eng/ssl.html > -- > [EMAIL PROTECTED] > Author of ICS (Internet Component Suite, freeware) > Author of MidWare (Multi-tier framework, freeware) > http://www.overbyte.be > > > - Original Message - > From: <[EMAIL PROTECTED]> > To: > Sent: Wednesday, January 04, 2006 9:52 AM > Subject: [twsocket] FTPClient1 Append Command Query > > > >>I've got an FTP Upload module that's working fine. >>I used Francois's FtpTST1 program as the starting point - many thanks. >> >>However rather than upload a large file each time I'd prefer just to >>append smaller amounts of data to the end of it. >> >>But when I try and replace the >> >>ExecuteCmd(FtpClient1.Put, FtpClient1.PutAsync); >> >>with >> >>ExecuteCmd(FtpClient1.AppendFile, FtpClient1.AppendFileAsync); >> >>I get the following response: >> >> >> > NLST s9.dat >>! Data: Receive error 10054 >>< 450 s9.dat: Not a regular file >>Request 8 Done. >>StatusCode = 450 >>LastResponse was : '450 s9.dat: Not a regular file' >>FTP Error = 450 (450 s9.dat: Not a regular file) >>Command Failure >> >>If I use >> >>ExecuteCmd(FtpClient1.AppendFile, FtpClient1.AppendFileAsync); >> >>I just get a >> >>Executing Requested Command >>Command Failure >> >> >>Am I doing something wrong? >>Does append require additional setup parameters to work? >>Or is this the server telling me it doesn't support the append command? >> >>With many thanks, >> >>Ed Hasted >>-- >>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
[twsocket] HTTP 1.1 Basic/Digest authentication
Hello, I have read most of RFC2617 and I am trying to implement digest authentication for our C++ web server. I have come up with the following questions: 1) How does a client with no support for digest authentication but support for basic one reacts to a 401 www-autheticate reply with digest as the scheme? Unlike content encoding or transfer encoding, there can only be one auth scheme for one request! 2) Does ICS MD5 unit supports digest MD5 as per RFC2617? Or do I need to use the C++ code in RFC1321 and 2617? If/when I do this in C++, I will post my code here for your review, translation to Delphi and inclusion to ICS. Best Regards, SubZero -- 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
Re: [twsocket] HTTP 1.1 Basic/Digest authentication
Forget the first question. - Original Message - From: "Fastream Technologies" <[EMAIL PROTECTED]> To: "ICS support mailing" Sent: Wednesday, January 04, 2006 3:12 PM Subject: [twsocket] HTTP 1.1 Basic/Digest authentication > Hello, > > I have read most of RFC2617 and I am trying to implement digest > authentication for our C++ web server. I have come up with the following > questions: > > 1) How does a client with no support for digest authentication but support > for basic one reacts to a 401 www-autheticate reply with digest as the > scheme? Unlike content encoding or transfer encoding, there can only be > one auth scheme for one request! > > 2) Does ICS MD5 unit supports digest MD5 as per RFC2617? Or do I need to > use the C++ code in RFC1321 and 2617? > > If/when I do this in C++, I will post my code here for your review, > translation to Delphi and inclusion to ICS. > > Best Regards, > > SubZero > -- > 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
Re: [twsocket] HTTP 1.1 Basic/Digest authentication
> 2) Does ICS MD5 unit supports digest MD5 as per RFC2617? > Or do I need to use the C++ code in RFC1321 and 2617? ICS MD5 unit is compliant to RFC1321. RFC2617 has nothing to do with MD5 definition. -- Contribute to the SSL Effort. Visit http://www.overbyte.be/eng/ssl.html -- [EMAIL PROTECTED] Author of ICS (Internet Component Suite, freeware) Author of MidWare (Multi-tier framework, freeware) 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
Re: [twsocket] WSocket DNSLookup.
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: > Wiadomość Oryginalna > Od: Wilfried Mestdagh <[EMAIL PROTECTED]> > Do: ICS support mailing > 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
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 >= 1 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 >> 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
Re: [twsocket] WSocket DNSLookup.
In fact the only thing i want is to check some domains if there are pointing to anything (so i need domain to ip). Wiadomość Oryginalna Od: Wilfried Mestdagh <[EMAIL PROTECTED]> Do: ICS support mailing Data: Wed, 4 Jan 2006 15:29:32 +0100 Temat: Re: [twsocket] WSocket DNSLookup. > 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: > > > > Wiadomość Oryginalna > > Od: Wilfried Mestdagh <[EMAIL PROTECTED]> > > Do: ICS support mailing > > 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
Re: [twsocket] WSocket DNSLookup.
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(': 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 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 >= 1 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 > >> 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
Re: [twsocket] WSocket DNSLookup.
Ja wrote: > 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(': 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] http://www.overbyte.be/eng/overbyte/teamics.html > > Wiadomosc Oryginalna > Od: Arno Garrels <[EMAIL PROTECTED]> > Do: ICS support mailing > 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 >= 1 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 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
Re: [twsocket] WSocket DNSLookup.
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.overbyte.be/eng/overbyte/teamics.html 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: TObject; ErrCode: > Word); >> begin >> if ErrCode = 0 then >> Memo1.Lines.AddStrings(TWSocket(Sender).DnsResultList) >> else >> Memo1.Lines.Add(': 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 > 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 >= 1 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 >> >> 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
Re: [twsocket] WSocket DNSLookup.
Program check list of domains with several components at once... putting something in woudldnt do the job. Wiadomość Oryginalna Od: Arno Garrels <[EMAIL PROTECTED]> Do: ICS support mailing Data: Wed, 4 Jan 2006 16:38:51 +0100 Temat: Re: [twsocket] WSocket DNSLookup. > Ja wrote: > > 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(': 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] > http://www.overbyte.be/eng/overbyte/teamics.html > > > > > > Wiadomosc Oryginalna > > Od: Arno Garrels <[EMAIL PROTECTED]> > > Do: ICS support mailing > > 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 >= 1 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 > 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 > -- 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
[twsocket] Client and Server at same time?
Hello.. I'm working on a program that could be either a client and/or a server at the same time. Well, wanting to work on it. Going by the ICS examples, I've put together some code that should work. I have a: type TClient = class(TObject) Peer : String; Socket : TWSocket; constructor Create; procedure SocketDataAvailable(Sender: TObject; Error: Word); procedure SocketSessionClosed(Sender: TObject; Error: Word); private buffer : ansistring; public AcceptForm : TForm; Reference : Pointer; PortNum: Integer; peername : TSockAddrIn; end; then in TClient.create I do begin inherited; socket.OnDataAvailable := SocketDataAvailable; socket.OnSessionClosed := SocketSessionClosed; end; Which crashed the program. What's the proper way to do this? Full source to an example program can be found at http://www.mpcode.com/cliserv.zip (its d6 code, but should be fine with anything that runs ICS and Delphi) -- 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
Re: [twsocket] Client and Server at same time?
Hi, You code not complete. You did not create the socket. socket := TWScoket.Create( ); constructor TClient.Create; begin inherited; (* This part crashes *) sock socket.OnDataAvailable := SocketDataAvailable; socket.OnSessionClosed := SocketSessionClosed; end; -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Michael Preslar Sent: Thursday, January 05, 2006 10:11 AM To: twsocket@elists.org Subject: [twsocket] Client and Server at same time? Hello.. I'm working on a program that could be either a client and/or a server at the same time. Well, wanting to work on it. Going by the ICS examples, I've put together some code that should work. I have a: type TClient = class(TObject) Peer : String; Socket : TWSocket; constructor Create; procedure SocketDataAvailable(Sender: TObject; Error: Word); procedure SocketSessionClosed(Sender: TObject; Error: Word); private buffer : ansistring; public AcceptForm : TForm; Reference : Pointer; PortNum: Integer; peername : TSockAddrIn; end; then in TClient.create I do begin inherited; socket.OnDataAvailable := SocketDataAvailable; socket.OnSessionClosed := SocketSessionClosed; end; Which crashed the program. What's the proper way to do this? Full source to an example program can be found at http://www.mpcode.com/cliserv.zip (its d6 code, but should be fine with anything that runs ICS and Delphi) -- 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
Re: [twsocket] Client and Server at same time?
Good catch. Now it crashes in WSocket.pas at the "end;" of procedure TCustomWSocket.TriggerSessionAvailable(Error : Word); KL Chin wrote: > Hi, > > You code not complete. You did not create the socket. > >socket := TWScoket.Create( ); > > > constructor TClient.Create; > begin > inherited; > (* This part crashes *) > sock > socket.OnDataAvailable := SocketDataAvailable; > socket.OnSessionClosed := SocketSessionClosed; > end; -- 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
Re: [twsocket] Client and Server at same time?
Hi, IMHO it will be better for you to do a copy and paste method by drop TWScocket component to your main form, then prepare all the required events, then copy/move the code to the TClient. Regards KL Chin -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Michael Preslar Sent: Thursday, January 05, 2006 10:34 AM To: ICS support mailing Subject: Re: [twsocket] Client and Server at same time? Good catch. Now it crashes in WSocket.pas at the "end;" of procedure TCustomWSocket.TriggerSessionAvailable(Error : Word); KL Chin wrote: > Hi, > > You code not complete. You did not create the socket. > >socket := TWScoket.Create( ); > > > constructor TClient.Create; > begin > inherited; > (* This part crashes *) > sock > socket.OnDataAvailable := SocketDataAvailable; > socket.OnSessionClosed := SocketSessionClosed; > end; -- 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
[twsocket] Failed installing MidWare
Dear all, When attempted to install the MidWare package, BCB failed to compile the RFormat.pas with the following errors: [Pascal Error] RFormat.pas(2003): Undeclared identifier: 'VarArrayDimCount' [Pascal Error] RFormat.pas(2017): Undeclared identifier: 'VarArrayLowBound' [Pascal Error] RFormat.pas(2018): Undeclared identifier: 'VarArrayHighBound' [Pascal Error] RFormat.pas(2371): Undeclared identifier: 'VarType' [Pascal Error] RFormat.pas(2386): Undeclared identifier: 'null' [Pascal Fatal Error] pasall.tmp(8): Could not compile used unit 'C:\Borland\CBuilder6\Source\MidWare\Delphi\vc32\RFormat.pas' [Linker Fatal Error] Fatal: Unable to open file 'MWBCB60.OBJ' I am using BCB6 Enterprise and with ICS installed. Am I missing something? Thanks for any kind advice, Patrick-- 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
[twsocket] Failed installing MidWare
Sorry for mis-posting here, before I found the mail list specifically for MidWare. Posts there helped me to solve the problem. Thanks and regards, Patrick-- 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