Символ «Возобновить» устарел / Ошибка потока: Недействительный дескриптор (6)

У меня есть старый фрагмент кода, который я хочу обновить до Delphi XE. У меня есть предупреждение компилятора о Resume , и я хочу заменить его на Start , но программа вылетает.

constructor THTTPGetThread.Create(aAcceptTypes, aAgent, aURL, aFileName, aUserName, aPassword, aPostQuery, aReferer: String; aBinaryData, aUseCache: Boolean; aProgress: TOnProgressEvent; aToFile: Boolean);
begin
  FreeOnTerminate := True;
  inherited Create(True);

  FTAcceptTypes := aAcceptTypes;
  FTAgent       := aAgent;
  FTURL         := aURL;
  FTFileName    := aFileName;
  FTUserName    := aUserName;
  FTPassword    := aPassword;
  FTPostQuery   := aPostQuery;
  FTReferer     := aReferer;
  FTProgress    := aProgress;
  FTBinaryData  := aBinaryData;
  FTUseCache    := aUseCache;
  FTToFile      := aToFile;

  Resume;      <------------ works, but I get compiler warning
  //Start;     <------------ doesn't work
end;

Когда я использую START, я получаю следующую ошибку: «Ошибка потока: ошибка недействительный дескриптор (6) ".
Мне не нужны сложные вещи (замораживание / синхронизация потоков). Я просто хочу загрузить файл из Интернета, не блокируя графический интерфейс.

9
задан WeGoToMars 20 July 2011 в 13:27
поделиться