From: Lukas G. <geb...@ml...> - 2005-07-29 10:36:52
|
> But I had to modufy your module to make it work > correctly. In our net can be found ftp-servers with > Very large files(e.g. DVD images), which size is greater > then 2^31 bytes. FFileSize of type longint is used In > TFTPSend to store file size. Moreover you used function > StrToIntDef() to convert from string to normal format and > this functon return 0 for these files. That's why there > occur some mistakes about total directory size and > whole ftp server size. It is because Synapse is compatible with Delphi3, and this Delphi version not have any Int64. In my plans is add some IFDEFs for this and other critical places (SNMP, etc.) and add support for int64 if it is possible. > P.S. Also I tried to use your module to find online ftp servers > but I failed due to long timeout option. It's very > expensive to wait for ~20 seconds for a timeout to > occur. Is it possible to add property into TFtpSend like > "ConnectionTimeout" in TidFTP from Indy 10 Pack? Connection timeout is hardcoded in network stack. Have you look how it is implemented in Indy? It is really terrible construct by another thread, and I see it as workaround, not as good implementation. I rather live with default hardcoded timeout, rather then Indy's way. But maybe... ;-) -- Lukas Gebauer. E-mail: geb...@ml... http://www.ararat.cz/synapse/ - Ararat Synapse - TCP/IP Lib. |