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

delphi

    Sponsored Links

    Next

  • 1. idHTTP and idMessage (HTML with text and/or Image)
    Hi, I have a server HTTP, i'm connected to with idHTTP client I execute a method GET to retrieve content (HTML with text and/or Image) after this I want to send this content by email so, it's ok for text but for image it doesn't ! Have you some idea how to made this ? TIA Stephane
  • 2. Tserver and Tclient Socket freezing!
    Please explain to me why or how to fix the problem. I am having two machines. One running a Tserversocket program and the second is using a Tclient Socket to connect to the server. if the socket is open for a while (more than 10 minutes) and if I try to send a message from the client to the server, the server will not answer and if I retry again for 2 or 3 the server will start answering like the normal way. It seems like the socket will go in a sleep mode. I don't know why? is there any properties that I need to set on the server side? is it related to the operating system? Please help. Thank you!
  • 3. Debugging Windows Services
    Hi All I have written a window services application. I am still not very clear how do I debug the NT service application. Need suggestions pls. Thanks J
  • 4. Service COM port
    I've to buid a service who will listen on the COM port and wait for a string! And drop the string on the disk. I thought using Asyncpro and the Comport component Trigger event ...!! I just wondering if anyone has done that before...Any help would be appreciate Thank you!
  • 5. SNMP V3
    Hi, is there any solution for SNMPv3 with Delphi? Thanks Thomas

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 70 guest