Bug Fix: Delphi 7 indy 9.0 IndyFTP ReadTimeout is not work (idFTP.pas)

delphi

    Sponsored Links

    Next

  • 1. [Indy] Passing an object with AContext parameter.
    Hi, TCPServer component are handling some of my clients events for me for example (onConnect,onDisconnect,onExecute,...). All of the TCPServer component events have only one parameter as TIdContext . for example : procedure TCommform.TCPServerExecute(AContext: TIdContext); ... I must keep more data with the parameter of the events, for example if i have a TClient object for my clients that contain my users information.I want after that one user disconnected, i change the user object informations.but how !? how can i detect that one of my client object is for this AContext that disconnected !? on of my solution is that i keep one object with AContext(i mean that i joint one object with AContext) For example i want to do somethings such as below: procedure TCommform.TCPServerConnect(AContext: TIdContext); begin AContext.myObj.myProperty:=myValue; ... end; procedure TCommform.TCPServerExecute(AContext: TIdContext); begin ... showMessage(AContext.myObj.myProperty); //must show myValue ... end; procedure TCommform.TCPServerDisconnect(AContext: TIdContext); begin ... showMessage(AContext.myObj.myProperty); //must show myValue ... end; How can i keep one object with AContext ? the object is TClient Thanks for any help H.Ahmadi
  • 2. Indy 10 : Pb with idTCPServer and thread idTCPServerScheduler
    I have client/server with idTCPClient and idTCPserver. When I want to close the server (server.active := false) with client connected, I can stop the Scheduler thread. So the application freeze. What can I do ?
  • 3. TCP/IP library
    I need some TCP/IP library and i don't know which one to use. I already know, indy, ICS, and Synapse. I need a very basic socket, just to connect some clients to server. I will transfer only bytes. I will not transferring strings or something like that. So which library to use. Do you know any better, more suitable for my purpose (transfer bytes from clients to server)? And it's highly recommended that can be compiled with FreePascal. Thanks
  • 4. migrating from Indy9 to Indy10
    Hello, i try to migrate a project written with indy9 to indy10. Here are some questions : 1 - As TIdPeerThread is replaced with TIdContext, i can not compile the TIdPeerThread.Stop instruction. Do i have to use the TIdContext.Connection.Disconnect method or something else ? 2 - Also i can not compile TidPeerThread.Connection.Server.DefaultPort. Can i replace it with TidContext.Connection.Socket.DefaultPort ? Sorry for my English, i hope that someone can help me, Christophe
  • 5. Latest Indy version ready for production use ?
    Hi, We're using Indy 10.1.6 without any issue here. Nevertheless, it seems that this version is a little bit old, and we plan to migrate to a newer version (10.2.x, I guess). So, what is the latest version ready for production use and where can I download it ? Is the version hosted on the Fulgan repository ready for production use ? To be compatible with the next version of Delphi, I suppose that a lot of work has been achieved - or is currently done - by the Indy team. Since I'm not currenlty interested in Unicode, I was wondering if there was any "ANSI stable branche" which will suit my needs... Best regards, and thanks again for the quality of the library. A.R.

Bug Fix: Delphi 7 indy 9.0 IndyFTP ReadTimeout is not work (idFTP.pas)

Postby fluber » Mon, 12 Nov 2007 17:28:51 GMT

Dear All:

   When use idftp to get a file from ftp server and the wireless ap is
shutdown,  the idftp seems to in the endless loop.
and do detect this case, not raise a timeout exception.
   I already set the ReadTimeout property of IdFTP Component, but
seems not work. I decide to trace the source code
and I found the procedure TIdFTP.InternalGet has a bug in the
following code section.

        with TIdSimpleServer(FDataChannel) do begin
          TIdSimpleServer(FDataChannel).ReadTimeout :=
self.ReadTimeout;   / / I add this line
          InitDataChannel;
          BoundIP := (Self.IOHandler as
TIdIOHandlerSocket).Binding.IP;
          BeginListen;
          SendPort(Binding);
          if AResume then begin
            Self.SendCmd('REST ' + IntToStr(ADest.Position), [350]);
{Do not translate}
          end;
          Self.SendCmd(ACommand, [125, 150, 154]); //APR: Ericsson
Switch FTP
          Listen;
          ReadStream(ADest, -1, True); // make this proceduer logic
error
        end;

In this secion create a TIdSimpleServer object but not initialize the
ReadTimeout property, so that make ReadStream logic error.
ReadStream will call ReadBuffer and will call ReadFromStack.



function TIdTCPConnection.ReadFromStack(const
ARaiseExceptionIfDisconnected: Boolean = True;
 ATimeout: Integer = IdTimeoutDefault; const ARaiseExceptionOnTimeout:
Boolean = True): Integer;
// Reads any data in tcp/ip buffer and puts it into Indy buffer
// This must be the ONLY raw read from Winsock routine
// This must be the ONLY call to RECV - all data goes thru this method
var
  i: Integer;
  LByteCount: Integer;
begin
  if ATimeout = IdTimeoutDefault then begin
    if ReadTimeOut = 0 then begin
      ATimeout := IdTimeoutInfinite;
    end else begin
      ATimeout := FReadTimeout;  // if donot add the
"TIdSimpleServer(FDataChannel).ReadTimeout := self.ReadTimeout;  "
this value will be zero
    end;
  end;


B.R.

Fluber Wang


Bug Fix: Delphi 7 indy 9.0 IndyFTP ReadTimeout is not work (idFTP.pas)

Postby fluber » Mon, 12 Nov 2007 17:30:28 GMT

Dear All:

   When use idftp to get a file from ftp server and the wireless ap is
shutdown,  the idftp seems to in the endless loop.
and do detect this case, not raise a timeout exception.
   I already set the ReadTimeout property of IdFTP Component, but
seems not work. I decide to trace the source code
and I found the procedure TIdFTP.InternalGet has a bug in the
following code section.

        with TIdSimpleServer(FDataChannel) do begin
          TIdSimpleServer(FDataChannel).ReadTimeout :=
self.ReadTimeout;   / / I add this line
          InitDataChannel;
          BoundIP := (Self.IOHandler as
TIdIOHandlerSocket).Binding.IP;
          BeginListen;
          SendPort(Binding);
          if AResume then begin
            Self.SendCmd('REST ' + IntToStr(ADest.Position), [350]);
{Do not translate}
          end;
          Self.SendCmd(ACommand, [125, 150, 154]); //APR: Ericsson
Switch FTP
          Listen;
          ReadStream(ADest, -1, True); // make this proceduer logic
error
        end;

In this secion create a TIdSimpleServer object but not initialize the
ReadTimeout property, so that make ReadStream logic error.
ReadStream will call ReadBuffer and will call ReadFromStack.



function TIdTCPConnection.ReadFromStack(const
ARaiseExceptionIfDisconnected: Boolean = True;
 ATimeout: Integer = IdTimeoutDefault; const ARaiseExceptionOnTimeout:
Boolean = True): Integer;
// Reads any data in tcp/ip buffer and puts it into Indy buffer
// This must be the ONLY raw read from Winsock routine
// This must be the ONLY call to RECV - all data goes thru this method
var
  i: Integer;
  LByteCount: Integer;
begin
  if ATimeout = IdTimeoutDefault then begin
    if ReadTimeOut = 0 then begin
      ATimeout := IdTimeoutInfinite;
    end else begin
      ATimeout := FReadTimeout;  // if donot add the
"TIdSimpleServer(FDataChannel).ReadTimeout := self.ReadTimeout;  "
this value will be zero
    end;
  end;


B.R.

Fluber Wang


Similar Threads:

1.Fixed bugs IdCookies.pas, IdCookieManager.pas

Hello Indy users and Indy experts.

I use Indy 9.0.14 (D5)
After torture tests, i've noticed some bugs for cookies management :
- subdomains are not supported :a cookie available for mydomain is
considered as not valid (isvalidcookie) for subdomain.mydomain
- domains and paths not correctly managed by TidCookieManager : when a
cookie is added to the cookies collection, it's added to a cookiesbyDomain
section which is a TStringList for a particular domain. Inside this section,
only the name is considered and not the path.
- The generateCookie list method doesn't support cookies for same domain but
different paths (like prior bug)
- The Cookie collection is not or can't be correctly freed : The
cleanUpCookieList method only drops expired cookies on the fly and when the
component is destroyed. Even in this case, only cookies objects are freed
but not Tstring items

All have been reported in bbg section for indy team, and this news group,
but because Indy team was to busy, i had to fix theses bugs by myself...
As chad suggested, i post this message :
1/ for indy experts to check this with me and eventually integrate the fixed
units
2/ for other users that have theses problems too and want a quick solution.



FLX.


2.[Q] Converting Delphi 6 Indy 8.xx to Delphi 2006 Indy 10.xx

G'Day,

I have a whole heap of old Delphi 6 code that is based on Indy 8.xx
that I need to convert to Delphi 2006 Indy 10.xx. Naturally the
architecture has changed between 8.xx and 10.xx. Is there a conversion
guide or anything similair that I can look at? I have looked on the
doco site but there does not seem to be anything. Is there also some
documentation on how the architecture has changed between 8.xx and
10.xx I could have a read of?

Failing all of the above has anyone got any suggestions on how to do
the Indy 8.xx to 10.xx conversion with the least amount of pain? ;-)

TIA

-- 
--Donovan

3.TIdContext.Connection.ReadTimeout not work

AContext.Connection.IOHandler.ReadInteger not return after 25 ms.

********************************************************

function TIdTCPServer.DoExecute(AContext: TIdContext): Boolean;
begin
  AContext.Connection.IOHandler.ReadTimeout := 25;
  AContext.Connection.IOHandler.ReadInteger;
end;

********************************************************
I must use

        TIdIOHandlerStack(AContext.Connection.IOHandler).ReadTimeout := 25;

the readtimeout will work.


Must I use         TIdIOHandlerStack  to force ReadTimeout ??


4.ReadTimeout not working intermittently with TIdHTTPClient.Post

We've experienced some weird behavior on one of our systems that uses 
TIdHttpClient.Post (with SSL), in that once in a while, while a user's ISP 
is having connectivity issues, the ReadTimeout does not seem to work 
correctly, and a response is received after the timeout period.  My 
speculation is that the reply dribbles in, and that the ReadTimeout is 
satisfied when part of the reply is received, but the entire reply is not 
received until the timeout period has passed.  Example, timeout set to 45 
seconds, reply comes in at 80 seconds.  This caused us lots of problems 
because the timeout is built around a parent process with a longer timeout 
and we end up with systems that are out of sync.  The parent process 
thinking the first timed out and the first process with a valid (although 
late) reply.  Most of the time when we have a connectivity issue, the 
ReadTimeout works properly, just not always.

We are using Indy 9.0.14.  Other constraints - we have to use the Post 
method, SSL, and embed control characters in the request (All 3rd party 
constraints - not my choice!).

Thanks for any ideas or solutions tothis problem.

Doug


Here are relavant parts of the code:

MyHttpClient  := TIdHTTP.Create(MyhttpClient); //Create Indy Client Socket
MySSLIOHandler1 := TIdSSLIOHandlerSocket.Create(nil);
RequestTStringStream := TStringStream.Create(S);

MySSLIOHandler1.SSLOptions.Method := sslvSSLv23;
MyhttpClient.Port := 443;
MyhttpClient.IOHandler := IndySSLIOHandler1;
MyhttpClient.ReadTimeout := 4500;
MyhttpClient.CheckForDisconnect(False, True);

MyhttpClient.Request.CacheControl := 'no-cache';
MyhttpClient.HTTPOptions := [hoForceEncodeParams];
MyhttpClient.Request.ContentLength := Length(RequestString);

// had to use TStringStream cuz Indy will not remove ctrl characters with 
StringStream
RequestTStringStream.WriteString(RequestString);
try
  ReplyString := MyhttpClient.Post(HostAddress, RequestTStringStream);
except
  on EIdReadTimeout do
  begin
      // perform TimeOutReversal of transaction...
      // & other steps...
  end;
end; 


5.Indy 10: IdCoderTNEF.pas bug report

Team Indy,

The very useful IdCoderTNEF.pas appears to have a bug on line 1892:

  //LVal is now the days since 1/1/1601.  Subtract Delphi's 300-year
offset...
    Result := LVal;
  * Result := Result + StrToDate('01/01/1601');  {Do not localize} 

This does not work if your Windows date format is non-standard. Should
this not be?:

    Result := LVal;
    Result := Result + EncodeDate(1601, 1, 1);  {Do not localize}

Or, simply use -109205?


Regards,
Keith

6. Fix for DateTime Bug in Indy 10 in D2006

7. Bug Fix for Indy 9.0.14 - TIdPeerThread.Data destruction order

8. FIX BUG IE7 Address Bar Not Working



Return to delphi

 

Who is online

Users browsing this forum: No registered users and 58 guest