Скачать: CL | DM;

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

← →
trxnet ©   (2010-01-10 23:29) [0]

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

Получаю данные вот так:
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-10 23:40) [1]

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

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c