| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Пример передачи данных через сокеты [D6]
delpher_gray © (2002-10-23 16:51:00)Господа Делферы !
Подскажите можно ли так передать файл через 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 то просто сохранить файл.
Подскажите можно ли это осуществить ?
Если да, то напишите пример кода.
[fs]_Fobos (2002-11-02 20:37:00) [1]Посмотри: http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1035359119&n=4
Polevi (2002-10-24 10:12:00) [2]есть чудо ф-ия TransmitFile, но к сожалению отсутствует аналог ее для принимающей стороны, придется как нибудь самому %-)
Opuhshii (2002-10-24 10:09:00) [3]в Demos от борланда есть
| |
