Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.15;
Скачать: CL | DM;

Вниз

Определение текущей позиции потока при использовании IndyTCPser   Найти похожие ветки 

 
Merak ©   (2006-09-26 19:58) [0]

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


 
Eraser ©   (2006-09-26 20:21) [1]

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

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


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


> короче пишу


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


 
Merak ©   (2006-09-26 21:01) [3]


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

ну вот полнее код для передачи(в 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;




Страницы: 1 вся ветка

Текущий архив: 2006.10.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.066 c
1-1157526893
Term
2006-09-06 11:14
2006.10.15
Как создать файл в нужной мне кодировке


2-1159190036
Интересующийся
2006-09-25 17:13
2006.10.15
несколько в одном прокручивающемся списке


2-1159218849
Black_Jack
2006-09-26 01:14
2006.10.15
Ошибка при вызове GetWindowsDirectory...


15-1158845862
TUser
2006-09-21 17:37
2006.10.15
С днем рождения, 70 лет


11-1135584499
Bezols
2005-12-26 11:08
2006.10.15
Где найти MHHeaderControl