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

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

WinSock 2.0 - чтение данных клиентом... [D7, WinXP]

h8394E ©   (2006-06-18 23:41:00) 

Доброго времени суток! На WinSock подключаюсь через протокол TCP и на другой комп выкидывю данные (проверяю на 127.0.0.1). Для проверки сначала сделал сервер на то-же порт, но на TServerSocket. WinSock программа подключается и кидает данные нормально, а вот когда читает - приходит пустая строка. Всё это делаю так:

procedure SendCommand(datas:string);
var
Answer:string[255];
begin
if isConnected then
  begin
  Answer:='';
  Send(sock, Datas[1], length(Datas)+1, MSG_OOB);
  recv(sock, Answer, 255, MSG_OOB);
  writeln(Answer);
  end else Writeln('Error. You are not connected!');
end;


---

Сергей М.   (2006-06-20 08:15:00) [1]

Интерфейс и порт указывается ф-цией bind()

---

h8394E   (2006-06-19 17:01:00) [2]

Гм, а если сервер ны winsock тоже делть, в какую функцию порт писать? в listen то порт не укажешь...

---

Сергей М.   (2006-06-19 16:43:00) [3]

Лучшее - враг хорошего.
Раз работает при 0, то и ставь 0.


> что тогда значит, если .. 0 ..


В MSDN все это распрекрасно описано.

---

h8394E   (2006-06-19 16:37:00) [4]

Аааа, понял. А что тогда значит, если я во флаги 0 поставлю??? Как раз тогда - работает...

---

Сергей М.   (2006-06-19 08:28:00) [5]

> MSG_OOB


TServerSocket не поддерживает прием/передачу OOB-данных.

---

Slym   (2006-06-19 04:48:00) [6]

var
Answer:string;
len:integer;
begin
....
setlength(Answer,256);
len:=recv(sock, Answer[1], 255, MSG_OOB);
setlength(Answer,len);

---

h8394E   (2006-06-18 23:44:00) [7]

К стате, если клиент серверу небольшие комадны шлёт (255 байт максимум), можно ли на UDP писать, чтоб быстрее было? Но, ещё раз замечу, что шлются комманды - важен каждый символ...

---

Наверх