немогу получить сообщение от сервера [D5]
newbie1 © (2002-06-11 14:35:00)
Добрый день Вот такая штука у меня не работает
Заранее спасибо.
Я пытаюсь принять приглашение с сервера длинной 112 байт.
АА: array of byte; // определены вверху
QQ: integer; // определены вверху
procedure TChatForm.ClientSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
var
M: integer;
PR: string;
PR1: string;
LenMess: integer;
begin
QQ:= Socket.ReceiveLength ;
SetLength(AA,QQ);
GetMem(p,QQ);
T:= ClientSocket.Socket.ReceiveBuf(AA,QQ);
SetLength(PR,QQ-2);
p:=AA;
for M:=0 to QQ-2 do
PR[M+1]:= Char(AA[M+2]); // мне надо обрезать два первых
Memo2.Lines.Add(PR); //байта принимаемого массива
end;
Игорь Шевченко (2002-06-11 14:43:00) [1]
Program Files/Borland/Delphi/Demos/Internet/Chat/main.pas
И, как сказал вчера McSimm,
ClientSocket.Socket.ReceiveBuf(AA[0],QQ);
Наверх 
ЧАТ |
Орешник |
|
