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

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

Как послать TMemoryStream через сокеты? [D5]


Sour ©   (2002-05-02 11:12:00) 

Делаю так:
TClientSocket:
S := TMemoryStream.Create;
S.Write(...);
....Записываю что-то......
ClientSocket1.Socket.SendBuf(S, S.Size);

На OnClientRead на TServerSocket:
S := TMemoryStream.Create;
Socket.ReciveBuf(S, Socket.ReciveLength);
S.read(...);
И ничерта не получается в S находится какая-то ерунда!
На Строчке S.Read ошибка Invalid pointer operation!
Даже если посылать с клиетна SendStream(S), тогда на сервере не возникает событие OnClientRead!


Malder   (2002-05-02 14:00:00) [1]

Sour, "ClientSocket1.Socket.SendBuf(S, S.Size);" - по моему, так нельзя. Поток - это вам не буфер. Странно, что вообще что-то отправляется.
А чтобы послать поток нужно использовать SendStream. Но чтобы работать с сокетами как с потоками нужно поставить...
лучше процитирую:
"ctBlocking - синхронная (одновременная) передача данных. События OnRead и OnWrite не работают. Этот тип соединения полезен для организации обмена данными с помощью потоков (т.е. работа с сокетом как с файлом);"


Song   (2002-05-02 12:38:00) [2]

А что Вам мешает читать принятные байты через ReceiveText в TServerSocket


Наверх

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