Как реализовать индикатор выполнения с TIdTCPClient?

Question

Я использую indy 10 , и мне было интересно, как я могу реализовать индикатор выполнения для передачи файла. Я пытался с событиями onWork, но они не запускаются. Еще одна вещь, которая меня раздражает, это то, что приложение зависает до тех пор, пока не будет загружен поток.

Что я делаю не так?

Answer 1

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

Answer 2

Вы можете поместить код загрузки в другой поток, используя TThread, чтобы ваше приложение не зависало при загрузке, и иметь процедуру, которую вы отправляете на TThread.Synchronize, чтобы обновить индикатор выполнения.Кроме того, для вызова OnWork сначала необходимо позвонить OnWorkBegin, см. http://www.borlandtalk.com/image-vp569607.html