| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Определение текущей позиции потока при использовании IndyTCPser [D7, XP]

Merak ©   (2006-09-26 19:58:00) 

Всем привет! Кто нибудб мог бы мне помочь? короче пишу на делфе одну прогу, использую Indy TCP server/client для передачи данных, передаю поток данных, так вот как реализовть что бы при передаче данных в прогрессбаре отображался прогресс. Я пытался в отдельном процессе получить позишн передаваемого потока, но почему постоянно возвращался 0. Плиз подскажите как это можно реализовать

---

Merak   (2006-09-26 21:01:00) [1]

> Слишком коротко пишешь.

ну вот полнее код для передачи(в srf.Name - имя файла)

begin
             
                 AThread.Connection.WriteLn(srf.Name);                                 f:=TFileStream.Create(path+'inbound\'+uid+'\'+srf.Name,fmOpenRead);
                 AThread.Connection.WriteLn(IntToStr(f.size));
                 AThread.Connection.OpenWriteBuffer;
                 AThread.Connection.WriteStream(f);
                 AThread.Connection.CloseWriteBuffer;
                 f.Free
             end;


а вот для приёма

 begin
    name:=Idcli.ReadLn;
    size:=StrToInt(Idcli.ReadLn);
    f:=TFileStream.Create(path+'file\'+name,fmCreate);
    IDcli.ReadStream(F,size,false);
    f.Free;
    end;



---

Сергей М.   (2006-09-26 20:46:00) [2]

> короче пишу


Слишком коротко пишешь.

---

Eraser   (2006-09-26 20:21:00) [3]

> [0] Merak ©   (26.09.06 19:58)

см. события OnWork, OnBeginWork, OnEndWork.

---

Наверх