クライアントソフトを作っています。
サーバーにデータ転送後のやり取りは以下のようにしています。
IdFTP.Put(Fname1,Fname1,false);
if TranseringFlag then IdFTP.Abort;
IdFTP.Quit;
本来転送終了後サーバーから「２２６」が送られ、
引き続き、クライアントから「ＱＵＩＴ」を送ります。
このとき、サーバーから「２２１」の応答をうけとるまえに
IdFTP.QUit は無条件のように「Ａｃｋ＋Ｆｉｎ」を送るみたいです。
（思い込みかもしれませんが）
ただ、この場合相手のサーバーは［Ａ］に引き続き［Ａ＋Ｆ］を送り、
クライアントは［Ａ］を返して正常に終了するので
問題ないのですが、
［ＱＵＩＴ］が送られたあと、タイミングよくサーバーから［Ａ］が
送られた場合、サーバーは次に［２２１］の応答を返そうとするのですが、
その前にクライアント（IdFTP.Quit)は［Ａ＋Ｆ］を送ってしまい。
クライアントはその後サーバーから［２２１］を受け取るのですが、
［Ａｃｋ＋Ｒｅｓｅｔ］を返してしまいます。
そこで、サーバーは「２２１」を受け取ってもらおうと
何度も送ってきますが、パケットモニター上では
クライアントは［Ｒ］を返しているようです。
ただ、ホストでは処理が戻ってきているので
次に IdFTP.Connect を実行しにいこうとすると
コネクトエラーになって接続できない状態になります。
何とかならないでしょうか？
よろしくお願いします。
自己レスですが、
コンポーネントの中身見てみました。
Quit の中身って以下のようになってました。
procedure TIdFTP.Quit;
begin
if Connected then begin
WriteLn('QUIT'); {Do not translate}
end;
Disconnect;
end;
で、結局これじゃまずいので IdFTP.Quit の部分を
以下のようにしてみました。
これでいいのでしょうか？
IdFTP.WriteLn('QUIT');
if IdFTP.GetResponse([221]) = 221
then IdFTP.DisConnect
else ShowMessage('切断処理に失敗');