Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

немогу получить сообщение от сервера   Найти похожие ветки 

 
newbie1 ©   (2002-06-11 14:35) [0]

Добрый день Вот такая штука у меня не работает
Заранее спасибо.
Я пытаюсь принять приглашение с сервера длинной 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) [1]

Program Files/Borland/Delphi/Demos/Internet/Chat/main.pas

И, как сказал вчера McSimm,

ClientSocket.Socket.ReceiveBuf(AA[0],QQ);




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

Текущий архив: 2002.08.22;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.023 c
3-70963
НАРИК
2002-07-30 08:39
2002.08.22
создание программы


1-71104
Dmitrey
2002-08-12 18:35
2002.08.22
Хитрый TPopUpMenu


1-71145
wassil
2002-08-13 14:01
2002.08.22
Архив из Delphi


3-70955
Mihey
2002-08-03 11:46
2002.08.22
Помогите, как с помощью ADO взять поле из базы данных


3-71004
Shaman_Naydak
2002-07-30 18:20
2002.08.22
2000 через ADO, проблема с RAISERROR