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

Socket.ReceiveBuf   Найти похожие ветки 

← →
User1   (2004-11-30 12:00) [0]

Уважаемые мастера, хочу написать обработку данных, принятых клиентом:

Пишу:
procedure SocketOnRead(Sender: TObject; Socket: TCustomWinSocket);
var Len : integer;
   buf: PChar;
begin
Buf := nil;
Len := Socket.ReceiveLength;
GetMem(buf,len+1); {Заказываем память для буфера}
Socket.ReceiveBuf(Buf,Len);
Form1.DebugBox.Items.Add("Server["+inttostr(len)+"]bytes:");
FreeMem(buf); {Освобождаем память}
end;

Ошибка в строке Socket.ReceiveBuf(Buf,Len);
Мастера, подскажите подалуйста, в чем проблема?

Заранее спасибо.

---

← →
Digitman ©   (2004-11-30 13:23) [1]

Socket.ReceiveBuf(Buf^,Len);

---

← →
Verg ©   (2004-12-01 09:31) [2]

Можно еще уточнить.

> len := Socket.ReceiveBuf(Buf^, Len);
> Form1.DebugBox.Items.Add("Server["+inttostr(len)+"]bytes:");

---

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

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



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