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

Вниз

Пример передачи данных через сокеты   Найти похожие ветки 

 
delpher_gray ©   (2002-10-23 16:51) [0]

Господа Делферы !
Подскажите можно ли так передать файл через Socket"ы.
Передача:
file: TMemoryStream
Например размер файла: 16000
Сначала послать: "b"+file.size+1000 символов
Затем посылать "f"+следующие 1000 символов до тех пор, пока не передадутся все 16000 символов.

Приём:
Если Socket.ReceiveText[1] = "b", то записать в переменную Size размер файла, затем записать в Steam первые 1000 символов
Если Socket.ReceiveText[1] = "f", то дозаписать в Stream принятые 1000 символов.
Теперь если Stream.Size = Size то просто сохранить файл.

Подскажите можно ли это осуществить ?
Если да, то напишите пример кода.


 
Opuhshii ©   (2002-10-24 10:09) [1]

в Demos от борланда есть


 
Polevi ©   (2002-10-24 10:12) [2]

есть чудо ф-ия TransmitFile, но к сожалению отсутствует аналог ее для принимающей стороны, придется как нибудь самому %-)


 
[fs]_Fobos   (2002-11-02 20:37) [3]

Посмотри: http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1035359119&n=4



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

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

Наверх




Память: 0.47 MB
Время: 0.013 c
1-99080
Донской
2002-12-19 15:58
2002.12.30
Исчезло меню интерфейса


1-99121
Krasuk
2002-12-17 17:40
2002.12.30
FontDialog


1-99125
Ольга
2002-12-16 16:59
2002.12.30
DBChart


14-99333
Poirot
2002-12-06 10:37
2002.12.30
Uodate for Delphi 7 (link+help link)???


3-98983
archan
2002-12-09 08:46
2002.12.30
Сетевая программа