もっと!REALbasic
レス数が950を超えています。1000を超えると書き込みができなくなります。
0964耗駄目歩
03/02/28 21:22ID:aXO8S5BUpShellCommand = "( " + "cd " + dlfp + " ; " + "curl -e " + referer + " " + pURL + " -o "+ filename + filenumext + " )"//シェルコマンド
↓ここで虹色グルグルになってしまい、その時ダウンロードしているファイルを落としきるまで、操作を受け付けなくなってしまいます。
虹色グルグルにならないようにするには、どうしたらいいのでしょうか。
curlを実行するメソッド
pShell = new Shell
pShell.mode = 0
pShell.Execute pShellCommand
//シェルに送ったコマンドが実行されたときの処理
if pShell.errorCode = 0 then//無事に終了したときの処理
Main_Window.URL_LBox.cell(gpURLLBListIndex,2) = "取得済み"//リストボックスの状況に表示
gpURLLBListIndex = gpURLLBListIndex + 1//URL用のインデックスを加算
pURLCCount = pURLCCount - 1//待機ファイルを減算
pDicCount = pDicCount + 1
pTryCount = 1//エラーの回数を初期化
else//エラーが発生したときの処理
Main_Window.URL_LBox.cell(gpURLLBListIndex,2) = "だめぽ..."//リストボックスの状況に表示pTryCount = pTryCount + 1//エラーの回数を加算
if pTryCount = pTryLimit then//エラーの回数が上限に達したときの処理
Main_Window.URL_LBox.cell(gpURLLBListIndex,2) = "取得失敗"//リストボックスの状況に表示
pErrorURL = pErrorURL + pURL + chr(13)
gpURLLBListIndex = gpURLLBListIndex + 1//URL用のインデックスを加算
pDicCount = pDicCount + 1
pTryCount = 1
pErrorCount = pErrorCount + 1
Main_Window.DownLoadError_SText.text = str(pFoulCount)
end if//エラーの回数が上限に達したときの処理終了
end if//無事に終了したときとエラーが発生したときの処理終了
レス数が950を超えています。1000を超えると書き込みができなくなります。