Форум: "Сети";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c