Re: [twsocket] CliDemo
Hi, Why not you have a buffer queue to receive the object, then in the Main GUI, use timer to de-queue and update the object? Also used, BeginUpdte and EndUpdate Regards, KL Chin -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Gary Stafford Sent: Thursday, May 17, 2007 17:09 To: twsocket@elists.org Subject: [twsocket] CliDemo HI All, I have a modified version of the Clidemo. My ThrdSrv streams objects to my Clidemo which recreates them on the fly. As I receive them I display information in the displaymemo and write them to a DBISAM database which works if I run it from the IDE. I have two problems:- I have a disconnect button which I can't use until the server stops sending data and the client has received it all. (Or anything on the form for that matter) The 2nd problem is that if I run the program outside of the IDE the program will randomly stop responding but its still receiving data from the server. I know this because as soon as all the data is sent by the server the program will start responding and even though I might have displayed 5000 lines in the displaymemo the last one is shown straight away. I know I cant use Application.ProcessMessages. What is the best way to give the form some usage and where should I put it? Thanks Gary -- 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] 10054 Connection reset by peer while sending dataTSmtpCli
Hi, It could be the Mail Server antispam setting or IP black listed. Regards, KL Chin -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Arno Garrels Sent: Monday, January 22, 2007 6:25 PM To: ICS support mailing Subject: [twsocket] 10054 Connection reset by peer while sending dataTSmtpCli Hello, Any idea what might cause the server to drop the connection while the client is sending bigger data? 20.12.06 13:39:11 220 foo.net ESMTP Sendmail 8.13.8/8.13.8; Wed, 20 Dec 2006 13:38:59 +0100 (CET) 20.12.06 13:39:11 HELO 20.12.06 13:39:11 250 foo.net Hello foo.net [xxx.xxx.xxx.xx], pleased to meet you 20.12.06 13:39:11 MAIL FROM:[EMAIL PROTECTED] 20.12.06 13:39:11 250 2.1.0 [EMAIL PROTECTED]... Sender ok 20.12.06 13:39:11 RCPT TO:[EMAIL PROTECTED] 20.12.06 13:39:11 250 2.1.5 [EMAIL PROTECTED]... Recipient ok 20.12.06 13:39:11 DATA 20.12.06 13:39:11 354 Enter mail, end with . on a line by itself 20.12.06 13:39:26 Session closed **Error 10054! Mailbox full, data recognized as SPAM, virus detected? Arno Garrels -- 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] Local UDP Broadcast without network cable connected
Hi, How can I used a PC without network cable connected (WinXP), to do broadcast with UDP. i.e. Create 1 Send socket with Send.Addr= '255.255.255.255' Send.LocalAddr = '127.0.0.1' Send.ReuseAddr = true And few Listen socket Listen.Addr = '0.0.0.0' Listen.LocalAddr = '127.0.0.1' Listen.ReuseAddr = true If the PC connected with cable, both LocalAddr I set to x.x.x.x, and it work well. What others setting I needed to set, in order to work when cable not connect? Regards, KL Chin -- 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] Sample Code Missing
Hi Francois Piette. The user made code for WSOCKETEXT.PAS was missing, where can I get it? Actually, I needed to know how to use back the same instance and send the data to different port without create a new TWSocket. Regards, KL Chin -- 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] Sample Code Missing
Hi Angus, Thx for your link. Will try by tomorrow. Regards, KL Chin -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Angus Robertson - Magenta Systems Ltd Sent: Thursday, September 28, 2006 7:37 PM To: twsocket@elists.org Subject: Re: [twsocket] Sample Code Missing The user made code for WSOCKETEXT.PAS was missing, where can I get it? It's included in the SNTP components zip on my page: http://www.magsys.co.uk/delphi/magics.asp Angus -- 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] Sample Code Missing
Hi Angus,
I had try it out but failed, client did not rcv any data. Any idea?
BTW, can this method used to broadcast?
procedure TForm1.WSocket1DataAvailable(Sender: TObject; ErrCode: Word);
var
saddr: TSockAddrIn;
saddrlen : integer;
dwPortX,dwIPX : DWORD;
srcv : String;
begin
srcv := WSocket1.ReceiveStr( );
Memo1.Lines.Add( 'Svr rcv ' + IntToHex(integer(GetTickCount( )),8) +
' --- ' + srcv );
saddrlen := sizeof(TSockAddrIn);
WSocket2.GetSockName( saddr,saddrlen );
dwPortX := WSocket_ntohs( saddr.sin_port ); // Get the port assigned
automatic by winsock
// New added portion - start, but failed --
// if ( wsClosed = WSocket6.State ) then
//WSocket6.Connect( );
// WSocket6.sin.sin_addr.s_addr :=
WSocketResolveHost(WSocket6.Addr).s_addr;
// WSocket6.sin.sin_port:= dwPortX;
// New added portion - end, but failed --
// Old method - working
if ( wsConnected = WSocket6.State ) then
if ( (WSocket6.Port '0') and (StrToInt(WSocket6.Port) dwPortX) )
then
begin
WSocket6.Close( );
WSocket6.Free( );
WSocket6 := TWSocket.Create( Self );
WSocket6.Addr := '255.255.255.255';
WSocket6.Port := '3313';
WSocket6.Proto := 'udp';
WSocket6.LocalAddr := '0.0.0.0';
WSocket6.LocalPort := '0';
WSocket6.OnDataSent := WSocket4DataSent;
end;
while ( wsConnected WSocket6.State ) do
begin
Application.ProcessMessages( );
if ( wsClosed = WSocket6.State ) then
begin
WSocket6.Addr := '255.255.255.255';
WSocket6.LocalAddr := '0.0.0.0';
WSocket6.Port := IntToStr( dwPortX );
WSocket6.LocalPort := '0';
WSocket6.Connect( );
Application.ProcessMessages( );
end;
end;
if ( wsConnected = WSocket6.State ) then
// WSocket6.SendStr( 'xxx' );
WSocket6.Send( PChar('xxx'),3 );
end;
procedure TForm1.WSocket4DataSent(Sender: TObject; ErrCode: Word);
begin
Memo1.Lines.Add( (Sender AS TWSocket).Name + '/'+
IntToHex(StrToInt((Sender AS TWSocket).Port),4) +
'/'+ IntToHex(WSocket6.sin.sin_port,4) +
'/'+ IntToHex(WSocket6.sin.sin_addr.s_addr,8) +
'/'+ IntToHex(ErrCode,4) +
' Snd ' + IntToHex(integer(GetTickCount( )),8) );
end;
procedure TForm1.WSocket2DataAvailable(Sender: TObject; ErrCode: Word);
var
srcv : String;
begin
srcv := (Sender As TWSocket).ReceiveStr( );
Memo1.Lines.Add( ' Clent - ' + (Sender AS TWSocket).Name + 'Rcv ' +
IntToHex(integer(GetTickCount( )),8) + srcv );
end;
Regards,
KL Chin
-Original Message-
From: KL Chin [mailto:[EMAIL PROTECTED]
Sent: Friday, September 29, 2006 12:25 AM
To: ICS support mailing
Subject: RE: [twsocket] Sample Code Missing
Hi Angus,
Thx for your link. Will try by tomorrow.
Regards,
KL Chin
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Behalf Of Angus Robertson - Magenta Systems Ltd
Sent: Thursday, September 28, 2006 7:37 PM
To: twsocket@elists.org
Subject: Re: [twsocket] Sample Code Missing
The user made code for WSOCKETEXT.PAS was missing, where can I get
it?
It's included in the SNTP components zip on my page:
http://www.magsys.co.uk/delphi/magics.asp
Angus
--
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] Delphi 5 compilatiion error
Hi, Thx for your help. Thx problem now, I do not have the lastest password for version 5.x from Francois. May be he had missed my email. Regards, KL Chin -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Arno Garrels Sent: Friday, March 24, 2006 4:07 PM To: ICS support mailing Subject: Re: [twsocket] Delphi 5 compilatiion error Use latest version and define NoTypeEnforce. Version 4 is outdated! --- Arno Garrels [TeamICS] http://www.overbyte.be/eng/overbyte/teamics.html KL Chin wrote: Hi Francios, I found the cause, at line 151 PSTACK_OF_X509_INFO = type PStack; //AG If change to PSTACK_OF_X509_INFO = PSTACK; //AG the error gone, problem I do not know is this the same? Regards KL Chin -Original Message- From: KL Chin [mailto:[EMAIL PROTECTED] Sent: Friday, March 24, 2006 3:33 PM To: ICS support mailing Subject: Delphi 5 compilatiion error Importance: High Hi Francios, When I compile IcsSsl package file with Delphi 5.0 for version 4.x, I got a very strange error. (Fatal Error) IcsSSLEAY.pas (1047): Interbal error: URW533. Why could the cause? The line 1047 actually exceeded the file. FYI, for version 3.e, it had some missing files (IcsSslConnector, IcsSslBuffer, copied form older vsrsion), but able to installed the package and running. Regards KL Chin -- 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] HttpsTst,
Hi, What is the main purpose of having DocEdit in the HttpsTst? Regards KL Chin -- 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] Delphi 5 compilatiion error
Hi Francios, When I compile IcsSsl package file with Delphi 5.0 for version 4.x, I got a very strange error. (Fatal Error) IcsSSLEAY.pas (1047): Interbal error: URW533. Why could the cause? The line 1047 actually exceeded the file. FYI, for version 3.e, it had some missing files (IcsSslConnector, IcsSslBuffer, copied form older vsrsion), but able to installed the package and running. Regards KL Chin -- 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] Delphi 5 compilatiion error
Hi Francios, I found the cause, at line 151 PSTACK_OF_X509_INFO = type PStack; //AG If change to PSTACK_OF_X509_INFO = PSTACK; //AG the error gone, problem I do not know is this the same? Regards KL Chin -Original Message- From: KL Chin [mailto:[EMAIL PROTECTED] Sent: Friday, March 24, 2006 3:33 PM To: ICS support mailing Subject: Delphi 5 compilatiion error Importance: High Hi Francios, When I compile IcsSsl package file with Delphi 5.0 for version 4.x, I got a very strange error. (Fatal Error) IcsSSLEAY.pas (1047): Interbal error: URW533. Why could the cause? The line 1047 actually exceeded the file. FYI, for version 3.e, it had some missing files (IcsSslConnector, IcsSslBuffer, copied form older vsrsion), but able to installed the package and running. Regards KL Chin -- 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] Sending 7 Kilobytes of data
Hi, If you were using TCP, then it was correctly received. You have to create you only routine for sending and receiving the data, with header to indicate the buffer length send out. Regards KL CHin -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Surabaya Sent: Thursday, January 19, 2006 12:52 PM To: twsocket@elists.org Subject: [twsocket] Sending 7 Kilobytes of data Hello, I need to send a bunch of data, in size of about 7 Kilobytes, if I sent it all at once using client.Send(@fm, sizeof(fm)); the client cannot always receive it succesfully, sometimes it is received all at once, but sometimes the client received only 1,5 Kilobytes If I sent it in 5 pieces, sometimes the client received 5 packets, each of 1222 bytes, but sometimes the client received 1222bytes, 1222bytes, 2444bytes, 1222bytes. Or 1222bytes, 1452bytes, 1222 bytes, and so on I think it depends on the connection speed, I need to send those 7 Kilobytes of data safely and fastly, can you help me -- 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] Sending 7 Kilobytes of data
Hi Surabaya, As mentioned early, you have to create your own protocol to send and receive data, bcoz TCP does not have the fix-ed packet size received. So you have to send a header out to tell the total bytes to be send, and the receiving end have to base on this header to receives all the data before consider a whole data received. Regards KL Chin -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Surabaya Sent: Thursday, January 19, 2006 1:38 PM To: ICS support mailing Subject: Re: [twsocket] Sending 7 Kilobytes of data Yes, I think I used TCP since I'm using TWSocketServer On 1/19/06, KL Chin [EMAIL PROTECTED] wrote: Hi, If you were using TCP, then it was correctly received. You have to create you only routine for sending and receiving the data, with header to indicate the buffer length send out. Regards KL CHin -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Surabaya Sent: Thursday, January 19, 2006 12:52 PM To: twsocket@elists.org Subject: [twsocket] Sending 7 Kilobytes of data Hello, I need to send a bunch of data, in size of about 7 Kilobytes, if I sent it all at once using client.Send(@fm, sizeof(fm)); the client cannot always receive it succesfully, sometimes it is received all at once, but sometimes the client received only 1,5 Kilobytes If I sent it in 5 pieces, sometimes the client received 5 packets, each of 1222 bytes, but sometimes the client received 1222bytes, 1222bytes, 2444bytes, 1222bytes. Or 1222bytes, 1452bytes, 1222 bytes, and so on I think it depends on the connection speed, I need to send those 7 Kilobytes of data safely and fastly, can you help me -- 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 -- 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] HttpCli with PostASync
Hi,
I had create GUI app, and a thread to handle THttpCli, below partial of
code.
My problem was, after call PostAync( ); Not connection .. nothing happend
at all.
If I call Post( ); everything working.
What could be the probelm?
Do I need call PeekMessage?
Regards
KL Chin
void __fastcall TWebThrd::Execute( void )
{
DWORD fdwwait,dwwait;
String serr;
FwebHttp = new THttpCli( NULL );
if ( FwebHttp )
{
FwebHttp-MultiThreaded = true;
FwebHttp-SendStream= new TMemoryStream( );
FwebHttp-RcvdStream= new TMemoryStream( );
FwebHttp-OnDocBegin= webOnDocBgn;
FwebHttp-OnDocEnd = webOnDocEnd;
FwebHttp-OnDocData = webOnDocBuf;
}
FOnUsed = 1;
fdwwait = INFINITE;
while ( !Terminated !FOnQuit !__AppOnQuit )
{
dwwait = WaitForMultipleObjects( web_EVMAXI,FEvents,false,fdwwait );
switch ( dwwait )
{
case (WAIT_OBJECT_0 + web_EVPOST) :
FwebHttp-URL = FwebURLs; // + FwebPrms;
FwebHttp-Proxy= FwebProxy;
FwebHttp-FollowRelocation = FFollow;
FwebHttp-PostASync( ); // Get page from internet
break;
...
}
}
}
--
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] How to stop location change for the HttpCli
Hi Everyone, Could someone assist me on this requirement. Basically I would like to stop the HttpCli proceed to next/redirect location, when it received the very first request. Because the first received data more meaningful for me. Knowing that by using FOnLocationChange, I can copy the FRcvdHeader data, but it require more time to complete the 1 complete transaction. procedure THttpCli.GetHeaderLineNext; ... ... if FLastResponse = '' then begin if FLocationFlag then begin TriggerHeaderEnd; FReceiveLen := 0; FHeaderLineCount := 0; FBodyLineCount:= 0; FCtrlSocket.OnSessionClosed := LocationSessionClosed; FCtrlSocket.Close; Exit; ... Thx in advance. Regards KL Chin -- 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] How to stop location change for the HttpCli
Hi Francios, Which version of HttpCli had this FollowRelocation property? Currently the HttpProt 1.47. Regards KL Chin -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Francois Piette Sent: Wednesday, July 20, 2005 3:11 PM To: ICS support mailing Subject: Re: [twsocket] How to stop location change for the HttpCli Basically I would like to stop the HttpCli proceed to next/redirect location Use FollowRelocation property. Set it to FALSE. -- [EMAIL PROTECTED] Author of ICS (Internet Component Suite, freeware) Author of MidWare (Multi-tier framework, freeware) http://www.overbyte.be - Original Message - From: KL Chin [EMAIL PROTECTED] To: ICS support mailing twsocket@elists.org Sent: Wednesday, July 20, 2005 8:47 AM Subject: [twsocket] How to stop location change for the HttpCli Hi Everyone, Could someone assist me on this requirement. Basically I would like to stop the HttpCli proceed to next/redirect location, when it received the very first request. Because the first received data more meaningful for me. Knowing that by using FOnLocationChange, I can copy the FRcvdHeader data, but it require more time to complete the 1 complete transaction. procedure THttpCli.GetHeaderLineNext; ... ... if FLastResponse = '' then begin if FLocationFlag then begin TriggerHeaderEnd; FReceiveLen := 0; FHeaderLineCount := 0; FBodyLineCount:= 0; FCtrlSocket.OnSessionClosed := LocationSessionClosed; FCtrlSocket.Close; Exit; ... Thx in advance. Regards KL Chin -- 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
Re: [twsocket] How to stop location change for the HttpCli
Hi Francios, Thx for ur reply. Regards KL Chin -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Francois Piette Sent: Wednesday, July 20, 2005 4:03 PM To: ICS support mailing Subject: Re: [twsocket] How to stop location change for the HttpCli Which version of HttpCli had this FollowRelocation property? Currently the HttpProt 1.47. Download current version from my website and look into the history. This exist for long time imo. Maybe one year or so. -- [EMAIL PROTECTED] Author of ICS (Internet Component Suite, freeware) Author of MidWare (Multi-tier framework, freeware) http://www.overbyte.be Regards KL Chin -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Francois Piette Sent: Wednesday, July 20, 2005 3:11 PM To: ICS support mailing Subject: Re: [twsocket] How to stop location change for the HttpCli Basically I would like to stop the HttpCli proceed to next/redirect location Use FollowRelocation property. Set it to FALSE. -- [EMAIL PROTECTED] Author of ICS (Internet Component Suite, freeware) Author of MidWare (Multi-tier framework, freeware) http://www.overbyte.be - Original Message - From: KL Chin [EMAIL PROTECTED] To: ICS support mailing twsocket@elists.org Sent: Wednesday, July 20, 2005 8:47 AM Subject: [twsocket] How to stop location change for the HttpCli Hi Everyone, Could someone assist me on this requirement. Basically I would like to stop the HttpCli proceed to next/redirect location, when it received the very first request. Because the first received data more meaningful for me. Knowing that by using FOnLocationChange, I can copy the FRcvdHeader data, but it require more time to complete the 1 complete transaction. procedure THttpCli.GetHeaderLineNext; ... ... if FLastResponse = '' then begin if FLocationFlag then begin TriggerHeaderEnd; FReceiveLen := 0; FHeaderLineCount := 0; FBodyLineCount:= 0; FCtrlSocket.OnSessionClosed := LocationSessionClosed; FCtrlSocket.Close; Exit; ... Thx in advance. Regards KL Chin -- 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 -- 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
