掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TIdFTPでPut中にAbortするには？ (ID：13305)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
返答ありがとうございます。 Abort後にDisconnectをしているのですが、ConnectedプロパティがTrueのままになってしまいます。 実装としてはこんな感じです。 procedure TfrmMain.Button1Click(Sender: TObject); begin try IdFTP1.Connect; except Exit; end; try IdFTP1.OnWork := ProcessMessage; IdFTP1.Put('D:\temp\aaa.dat','aaa.dat') finally IdFTP1.DisConnect; end; end; procedure TfrmMain.ProcessMessage(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Integer); begin IdAntiFreeze1.Process; end; procedure TfrmMain.Button2Click(Sender: TObject); begin IdFTP1.Abort; end; Button1をクリックしてPutしている最中に、Button2をクリックするとConnectが切れない状態で中断してしまいます(T_T)
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.