インディFTPクライアントが別のアップロードを開始しようとしたときにエラーが発生しましたか？

Question

IdFTP: TIdFTP; 
... 
procedure TForm1.IdFTPWorkEnd(ASender: TObject; AWorkMode: TWorkMode); 
begin 
    IdFTP.Disconnect; 

    try 

     IdFTP.Connect; 

     IdFTP.ChangeDir(directory); 
     IdFTP.Put(fileName, ExtractFileName(fileName)); 

    except 

    end; 

end; 

これはほとんどのコードです。 完全な1つのアップロードは別のを開始するとき、私は希望しますが、このコードは、エラー10048

• それがサーバーにファイルやコマンドのシーケンスをアップロードする正しい方法はあるが上昇するようですか？
• なぜこのエラー10048が起きているのですか？

Answer 1

既に使用中のエラー10048 =ソケット：info

あなたはWorkEndイベントを必要としない、ファイルのアップロードとその完成したときの文のリターンを入れて：

// loop 
    for I := 0 to files.Count-1 do 
    begin 
    idFtp1.Connect; 
    idFtp1.Put(files[i]); 
    idFtp1.Disconnect; 
    end; 

    // or 
    idFtp1.Put('MyFirstFile'); 
    idFtp1.DisConnect; 
    // ...... 
    idFtp1.Connect; 
    idFtp1.ChangeDir('DirSecondFile'); 
    idFtp1.Put('MySecondFile'); 

Answer 2

は使用しないでくださいOnWork...あなたのビジネスロジックを動かすイベント！それらはステータスのみのためのものです。ほとんどの場合、Indyはイベント駆動ではなく、わずかな例外を除いています。

この場合、OnWorkEndは、生のファイルデータが送信された後にトリガーされますが、アップロードに対するサーバーの応答が受信されて処理される前にトリガーされます。どのように接続するサーバーとポートを設定します

procedure TForm1.UploadFiles; 
begin 
    try 
    IdFTP.Connect; 
    try 
     while (there is a file to upload) do 
     begin 
     if (directory is different than current) then 
      IdFTP.ChangeDir(directory); 
     IdFTP.Put(fileName, ExtractFileName(fileName)); 
     end; 
    finally 
     IdFTP.Disconnect; 
    end; 
    except 
    on E: Exception do 
     ShowMessage(E.Message); 
    end; 
end;