![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() В потоке скачивается текстовый файл с сервера. Но вместо того чтобы остановиться после скачивания он продолжает выполняться, в результате чего текстовый файл в считаные секунды набирает мегабайты
![]() Как мне выполнить Код HTML:
Сам код потока: Код:
procedure Tupdate.Execute; var FileOnNet, LocalFileName: string; begin FileOnNet:='http:\\127.0.0.1\mysite\sitevers.txt'; LocalFileName:=extractfiledir(application.ExeName)+'\sitevers.txt'; GetInetFile(FileOnNet,LocalFileName); end; и код обращения к нему Код:
begin thread:=tupdate.Create(true); thread.Resume; //Запускаем поток thread.Priority:=tpLower; end; ![]() |