У меня есть старый фрагмент кода, который я хочу обновить до 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) ".
Мне не нужны сложные вещи (замораживание / синхронизация потоков). Я просто хочу загрузить файл из Интернета, не блокируя графический интерфейс.