singlepost

Delphi&Socket << На главную или назад  

Привет народ! У меня проблемка с передачей файла по сети. Но не с самой передачей, файл передавать я умею. Мне надо сделать:
1.Отображать прогесс передачи файла.
2.Приостановить процесс, если понадобиться
3.Сделать докачку.
Передача файла осуществляется через сокеты. Компоненты не важны. Создается поток типа TFileStream, а потом в сокет пишется!

25 ответов в теме “Delphi&Socket”

  1. 1
    Александр Чигринец ответил:

    А какие проблемы?

    Создаёшь буфер размером, скажем, 1024 байта.
    Устанавливаешь прогресс.максимум := размер_файла/1024;
    Пока всего_отправлено < размер_файла делаем
    …Читаем в буфер из файлового потока и пишем в сокет;
    …Инкрементируем прогресс;
    конец_пока;

  2. 2
    Дмитрий Матвеев ответил:

    #2 +1, и лучше сделать это отдельным потоком

Клуб программистов работает уже ой-ой-ой сколько, а если поточнее, то с 2007 года.