TIdFTP を使用する Delphi 5 アプリを作成しました。それは何年もうまく機能しています。唯一の目的は、Excel ファイルをアップロードすることです。
object ftp: TIdFTP
OnStatus = ftpStatus
IPVersion = Id_IPv4
AutoLogin = True
Host = 'somewhere.ca'
Passive = True
Password = 'guess'
TransferType = ftBinary
Username = 'xray'
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
end
マシンをリロードしたため、最近 delphi 2009 に移行しましたが、delphi 5 はなくなっています。
アプリはまだ動作しているように見えますが、1.5 MB のファイルのほとんどでファイルが破損しています。バイトが削除されたようで、アップロードされたファイルは元のファイルよりも短くなっています (約 200 バイト)。
私の最初の考えは転送タイプだったので、バイナリに設定しましたが、それ以上はわかりません。
何か案は?
ありがとう!mp