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

← →
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]

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

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

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

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