|
if FileDownAndReceive(sDownURL, 2) then
|
|
if FileDownAndReceive(sDownURL, 2) then
|
|
sSearchURL := Format('%suser/create/%d/%d/new/audit', [PHPWeb.MeasureURL, FWebID, FPhaseNo]);
|
|
sSearchURL := Format('%suser/create/%d/%d/new/audit', [PHPWeb.MeasureURL, FWebID, FPhaseNo]);
|
|
case SearchFileOnline(sSearchURL, sDownURL, FWebFolder_OnLine, FWebSubFolder_OnLine, FWebBidName_OnLine, sMD5_UnLock, sError, iFolderID, iSubFolderID) of
|
|
case SearchFileOnline(sSearchURL, sDownURL, FWebFolder_OnLine, FWebSubFolder_OnLine, FWebBidName_OnLine, sMD5_UnLock, sError, iFolderID, iSubFolderID) of
|
|
Application.MessageBox(PChar(sHint), '提示', MB_OK + MB_ICONINFORMATION);
|
|
Application.MessageBox(PChar(sHint), '提示', MB_OK + MB_ICONINFORMATION);
|