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

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

Отправка данных через сокет

trxnet ©   (2010-01-10 23:29:00) 

Привет. Мне необходимо получить данные из сокета, а затем их отправить. Как можно это реализовать через буфер? Подскажите пожайлуста.

Получаю данные вот так:
procedure TForm1.sClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
 l: Integer;
 buf: Pointer;
begin
 l := Socket.ReceiveLength;
 GetMem(buf,l+1);
 Socket.ReceiveBuf(buf,l);
 c.Socket.SendBuf(buf, l);
 FreeMem(buf);
end;

Пердаю так:
procedure TForm1.cRead(Sender: TObject; Socket: TCustomWinSocket);
var
 l: Integer;
 buf: Pointer;
begin
 l := Socket.ReceiveLength;
 GetMem(buf, l+1);
 Socket.ReceiveBuf(buf,l);
 s.Socket.Connections[0].SendBuf(buf, l);
 FreeMem(buf);
end;

В лучае передачи возникает ошибка. Помогите пожайлуста.

---

Игорь Шевченко   (2010-01-11 00:22:00) [1]

http://ln.com.ua/~openxs/articles/smart-questions-ru.html

---

Плохиш   (2010-01-10 23:40:00) [2]

> В лучае передачи возникает ошибка.

Тебе не повезло.

---

Наверх