Некоторая помощь с TThread (Terminate, FreeOnTerminate и другими приключениями в области потоковой передачи)

Question

Я пытаюсь добиться следующего (используя Delphi7): После входа в мою программу пользователь получает контроль, но в фоновом режиме отдельный поток загружает файл из Интернета, чтобы проверить, включен ли текущий лицензионный ключ. Если это так, пользователь получает приглашение, и программа завершается.

Итак, я создал отдельный класс TThread, который загружает черный список из сети с помощью InternetOpenURL/InternetReadFile.

Моя проблема заключается в следующем:

Если пользователь завершает работу своей программы до загрузки в фоновом режиме заканчивается лицензия менеджер Нить должна быть прекращена в основном потоке.

Если поток выполнил свою работу, он должен автоматически прекратиться.

Если я использую FreeOnTerminate: = true, я не могу завершить поток из основного потока. Но в остальном, как я могу сделать поток свободным от его ресурсов после того, как он выполнил свою работу?

Мой другой вопрос:

Если лицензионный ключ занесен в черный список, я использую Синхронизировать, чтобы сделать что-то с определенными ресурсами главной формы приложения.

Но как узнать, если пользователь уже закрыл приложение, а программа находится в FormDestroy основной формы, например? Если я синхронизируюсь в неподходящее время, это может привести к нарушениям доступа ...

Спасибо!

Answer 1

Я думаю, что это то, что вы пытаетесь сделать ... Назначьте событие OnTerminate() для TThread, которое вызывается как часть вашего основного потока, когда рабочий поток завершается. Вы можете сделать все свои обновления интерфейса (черный список). Создайте свойство рабочего потока, такого как «DownloadComplete», и выполняйте только черный список/проверку, если в событии OnTerminated установлено значение true. Это должно позволить потоку освобождать себя независимо от состояния загрузки, когда программа работает, пока вы.watifor() до выхода программы.

Answer 2

Для второго вопроса не беспокойтесь об обновлении пользовательского интерфейса из потока. Просто установите глобальный флаг. т.е. IsBlackListed: = true; Теперь вы можете использовать этот глобальный флаг в качестве основы для подтасовки пользователя в ответ на какое-то инициированное пользователем действие. Такие, как OnFileSave ... ShowMessage ('Мне бы хотелось сохранить этот файл для вас, но, к сожалению, вы используете черный список.');

IsBlackListed Redux ....

// globally... 
var 
    IsBlackListed : integer; 

... 
initialization 
    IsBlackListed := 0; 

... 
// in your thread: 
if OhMyGodThisIsABlackListedKey then 
    IsBlackListed := 1; 

... Back in the main code, maybe in the OnSaveMyData event: 

if IsBlackListed then 
begin 
    IsBlackListed := -1; // so we don't repeat ourselves 
    MessageBox('Hey, you naughty pirate!'); 
    MyDBConnection.Whatever.DoSQL('insert into licensetable (name,key) values(pirate,blacklisted); 
end; 

Answer 3

Во-первых, в вашей проверки объекта потока, создать "заполненный" флаг. Вы можете проверить это верно, чтобы определить, все ли хорошо. Как предлагает Крис Т, пусть поток задан глобальным, чтобы указать, что все хорошо/плохо, так что основной поток может использовать что-то вроде таймера, чтобы проверить это, и что все хорошо или предпринять соответствующие действия.

Затем, если ваше приложение хочет выйти рано, звоните

MyThread.Terminate; 
    MyThread.WaitFor; 

И в потоке, проверьте Terminated быть установлен в соответствующих точках. Таким образом, вы можете красиво закрыть.