Главная страница
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.045 c
3-1155541687
Term
2006-08-14 11:48
2006.10.15
Разница в скорости работы хранимой процедуры


15-1158674598
Gerlon
2006-09-19 18:03
2006.10.15
Shareware


15-1158845961
oldman
2006-09-21 17:39
2006.10.15
А вот если Вы все такие умные, почему Вы строем не ходите?


2-1159523468
buka
2006-09-29 13:51
2006.10.15
Установка компонента


2-1159692706
Fantasy
2006-10-01 12:51
2006.10.15
Message