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

← →
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

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