Главная страница
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.105 c
15-1159190198
Безымянный
2006-09-25 17:16
2006.10.15
Настройка интернета


15-1158955468
Vendict
2006-09-23 00:04
2006.10.15
PCI ATA133 IDE Controller


2-1159268728
TrainerOfDolphins
2006-09-26 15:05
2006.10.15
DBNavigator вертикально


15-1158906102
den_777
2006-09-22 10:21
2006.10.15
Где лучше(удобнее,быстрее) купить программные продукты.


1-1157193722
samael6
2006-09-02 14:42
2006.10.15
Работа с XMPP (Extensible Messaging and Presence Protocol)