Привет народ! У меня проблемка с передачей файла по сети. Но не с самой передачей, файл передавать я умею. Мне надо сделать:
1.Отображать прогесс передачи файла.
2.Приостановить процесс, если понадобиться
3.Сделать докачку.
Передача файла осуществляется через сокеты. Компоненты не важны. Создается поток типа TFileStream, а потом в сокет пишется!
9 октября 2008 в 19:05
#2 +1, и лучше сделать это отдельным потоком
9 октября 2008 в 16:00
А какие проблемы?
Создаёшь буфер размером, скажем, 1024 байта.
Устанавливаешь прогресс.максимум := размер_файла/1024;
Пока всего_отправлено < размер_файла делаем
…Читаем в буфер из файлового потока и пишем в сокет;
…Инкрементируем прогресс;
конец_пока;