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

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

TClientSocket & TProgressBar [D7, XP]


Страницы:   1 2 3

atas-sheriff ©   (2006-12-20 18:10:00) 

Здраствуйте!
Я отправляю файл клиентом на сервер:

fs:=TFileStream.Create(FileEdit.Text,fmOpenread);
fs.Position:=0;
ClientSocket1.Socket.SendText('Size:'+IntToStr(fs.Size)+#0+'Name:'+ExtractFileName(OpenDialog.FileName)+#0);
ClientSocket1.Socket.SendStream(fs);

Как сюда "приделать" ProgressBar? Надо ж знать сколько осталось ждать


atas-sheriff   (2006-12-21 11:40:00) [41]

Делаешь своего наследника TFileStream - 1перекрываешь в нем вирт.метод Read - 2


Сергей М.   (2006-12-21 11:36:00) [42]


> я непонял


Не понял конкретно что?


atas-sheriff   (2006-12-21 11:15:00) [43]

А можно кодом? А то я непонял:(


Сергей М.   (2006-12-21 08:16:00) [44]


> Как сюда "приделать" ProgressBar?


К SendStream() - легко. Делаешь своего наследника TFileStream и перекрываешь в нем вирт.метод Read


Джо   (2006-12-20 23:05:00) [45]

Правой кнопкой «Сохранить объект как...». Это архив rar.


Джо   (2006-12-20 23:04:00) [46]

> [9] Chuk & Gek ©   (20.12.06 21:57)
> Неее.... со "спасибо поторопился"...
> Он не загружается, а открывает какую то страницу вот цитата:

Правой кнопкой «Сохранить объект как...». Это архив rar.


atas-sheriff   (2006-12-20 22:07:00) [47]

Ти там тоже подумай как ProgressBar приштопать)


Chuk & Gek   (2006-12-20 22:04:00) [48]

Всё спасибо скачал Opera рулит!


atas-sheriff   (2006-12-20 22:02:00) [49]

Загрузка файла.

Вы запросили файл с сайта www.atas-sheriff.by.ru, размещённого на бесплатном хостинге BY.RU. Чтобы скачать запрошенный файл, пройдите по ссылке:
/downloads/transfer.rar Здесь нажимай ПРАВУЮ КНОПКУ МЫШи и "Сохранить обект как..."

Администрация BY.RU предупреждает вас, что испольняемые файлы, загруженные из непроверенных мест могут содержать вирусы и нанести вред вашему компьютеру. Будьте внимательны и осторожны.
Что ещё можно сделать?
Вы можете отказаться от загрузки и вернуться на предыдущую страницу.
Каталог и поиск помогут быстро получить нужную информацию: [AD]


Chuk & Gek   (2006-12-20 22:00:00) [50]

ну ты какнибудь в цикле..


atas-sheriff   (2006-12-20 21:58:00) [51]

Хе) Как??? Я немогу найти "сколько отправил")


Chuk & Gek   (2006-12-20 21:57:00) [52]

Неее.... со "спасибо поторопился"...
Он не загружается, а открывает какую то страницу вот цитата:

Rar!\x1A\x7Ћ•
[4Ё’ыЙ}фЁТr•"H%ґJ•/ъYXЫъ\x19>\x13ј¤Ъya\x4S‘€И'‚ncU~Qї№вЋ–#|йм)%7\x19°Фxу\xC\xFvVщИЬ
·ўY\x6$уS'р\x7FхА\x193ф—вт\x7FвсwЁмЮ
х‘y‘6\x15ЭСЗY\x1AЏи2\x1Dп5Uf?C’Kъ5V¬{xN\x17
M™%М]пЪЇсс


atas-sheriff   (2006-12-20 21:57:00) [53]

Как туда приштопать ProgressBar??? Ну сказите ктота plizzzzzz


Chuk & Gek   (2006-12-20 21:55:00) [54]

А на счёт прогрессбара- сколько байтов отправил от общего размера считай...


Chuk & Gek   (2006-12-20 21:54:00) [55]

Спасибо большое! буду изучать...


atas-sheriff   (2006-12-20 21:50:00) [56]

Вот здесь пример http://www.atas-sheriff.by.ru/downloads/transfer.rarА как нащот TProgressBar ктота чтота знает???


Chuk & Gek   (2006-12-20 21:06:00) [57]

А в сервере что надо написать??? если, конечно, Вас не затруднит...:)


Chuk & Gek   (2006-12-20 21:05:00) [58]

Извените, но это всё???
я думал там сложно...


Джо   (2006-12-20 21:03:00) [59]

> [1] Chuk & Gek ©   (20.12.06 20:58)
> Слушай а как ты отправляешь файл??? ищу не могу найти...
> Приведи код плиз!!!

Ггг. А в [0] не код, по-твоему? :D


Chuk & Gek   (2006-12-20 20:58:00) [60]

Слушай а как ты отправляешь файл??? ищу не могу найти... Приведи код плиз!!!


Страницы:   1 2 3

Наверх

Титульная страница Поиск, карта сайта Написать письмо