http_download.rar_http_Download_完成端口

procedure TfrmMain.AddTask(const strFile, strURL: string); var lviTmp : TListItem; recEvent: TCallBackMethod; begin if not assigned(FTaskThread) then begin recEvent.FOnStart := OnStart; recEvent.FOnError := OnError; recEvent.FOnStepIt:= OnStepIt; recEvent.FOnFinish:= OnFinish; FTaskThread:= TTaskThread.Create(recEvent, FMaxTask, FThreads); end; LockTask; try lviTmp:= lvDownLoad.Items.Add; lviTmp.ImageIndex:= 0; lviTmp.SubItems.Add(strFile); lviTmp.SubItems.Add('0.0%'); lviTmp.SubItems.Add('1'); lviTmp.SubItems.Add('0 k/s'); lviTmp.SubItems.Add('00:00:00.000'); lviTmp.Data:= Pointer(GetTickCount); if Trim(FSavePath) = '' then begin FTaskThread.AddTask(Integer(lviTmp.Data), ExtractFilePath(ParamStr(0)) + 'Music\' + strFile, strURL); AddTaskInfo(Integer(lviTmp.Data), strURL, ExtractFilePath(ParamStr(0)) + 'Music\' + strFile, lvMusicLst.Selected.SubItems.Strings[1], lvMusicLst.Selected.SubItems.Strings[2]); end else begin FTaskThread.AddTask(Integer(lviTmp.Data), FSavePath + '\' + strFile, strURL); AddTaskInfo(Integer(lviTmp.Data), strURL, FSavePath + '\' + strFile, lvMusicLst.Selected.SubItems.Strings[1], lvMusicLst.Selected.SubItems.Strings[2]); end; finally UnLockTask; end; end;