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)
2 posts
• Page 1 of 1
Sponsored Links
- 1. tidattatchment
Hi. I'm using D7 and indy components to send e-mails with word document attatchments. When I do not attatch a file, the text is in the body of the message. When I attatch a file, the text of the message is attatched to the e-mail as a ".txt" file. Here is the code: with IdMessage do begin {Assigning mail message properties} From.Text := edtSender.text; Sender.Text := edtSender.text; From.Name := edtUser.Text; Recipients.EMailAddresses := edtRecipient.text; Subject := edtSubject.text; Body.Text := mmoMessageText.Text; end; if sAttatchment <> '' then with TidAttachment.Create(IdMessage.MessageParts,sAttatchment) do begin {Add the attatchment} ContentType := 'application/ms-word'; ContentDisposition := 'attatchment'; ExtraHeaders.Values['content-id'] := sAttatchment; end; How can I send the e-mail so that the .doc file is attatched to the message and the body of the message is not attatched as a ".txt" file? Many thanks for replies. Mike. - 2. IdTCPServer "On Execute" Disconnections
Gents, I have built a simple Client - Server app using Indy 9 components under Delphi 6. The application handles all Client command requests within the IdTCPServer "On Execute" method. When files are required to be uploaded back to the client, they are sent in a completely new thread from the Client's peer one as given by IdTCPServer. This frees up the Client's working thread for handling command requests while a single upload is in progress. Problem: This solution works 99/100 of the time but when a "TIdPeerThread(ClientHolder).Connection.WriteStream(SendFile,true,false);" command is actioned (No write buffering) in its own worker thread separate from the one allocated by IdTCPServer, a "Disconnected" error is triggered within the "On Execute" loop !!!! I appears that as soon as the WriteStream is reqested it interupts the operation of the On Execute loop and Indy terminates the connection. ??? Question: Should I suspend the On Execute loop(Client Thread) while a file is uploaded to the client in the "upload thread" ??? How can I program a solution to stop these rare disconnection errors ??? Regards Simo - 3. E-Mail Program
I'm trying to create an e-maiul program using the Indy components, but I'm running into some difficulty with HTML messages. When I download the messages, the images within the e-mail are stored as img=cid: XXXX@XXXXX.COM . The problem is that these images only exists for a second after the message is downloaded. I noticed that in Netscape Communicator, the images are stored as a URL. How do I extract these images or URLs to save them for later retrieval? Thank you in advance, Andy - 4. Getting Selected text from TWebBrowser
Hi, Is it possible to get the currently selected text of the webpage in a TWebBrowser- if so how? Thanks, Rael
Next
Bug Fix: Delphi 7 indy 9.0 IndyFTP ReadTimeout is not work (idFTP.pas)
by fluber » Mon, 12 Nov 2007 17:28:51 GMT
Bug Fix: Delphi 7 indy 9.0 IndyFTP ReadTimeout is not work (idFTP.pas)
by 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
2 posts
• Page 1 of 1
Who is online
Users browsing this forum: No registered users and 63 guest