Странности у TTcpClient и TTcpServer
Страницы:
<
1
2
3
>
SpellCaster © (2006-07-04 19:52:00)
Товарищи! Для решения глобальной задачи написал простенький
тестер. Есть TTcpClient и TTcpServer. Сервер по таймеру пишет в
поток данные (допустим, текущие секунды), а клиент постоянно в
цикле читает из этого буфера. Так вот, по идее после первого
прочтения буфер должен быть пуст - но нет, там остается второй
байт, извлекаемый из буфера только при втором прочтении. При этом
количество прочитанных байт (TcpClient1.ReceiveBuf(Buf,size) )
всегда почему-то равно 255. Как можно проверить целостность
полученного сообщения, если потенциально его размер неизвестен?
И еще. Пытаюсь "навесить" серверу события, типа OnAccept, но
из всех вызывается почему-то только CreateHandle. Причем если
событиям присвоены обработчики, при закрытии формы возникает
Exception, без обработчиков все нормально. Это что-то у меня
глючит, или как?
Заранее спасибо.
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1Timer(nil);
Server1.Active:=True;
Client1.Active:=True;
Client1.Connect;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
s:=inttostr(SecondOf(Time));
StrCopy(PChar(Buf),PChar(s));
size:=Length(s);
Label1.Caption:=s;
Server1.SendBuf(Buf,size);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Buf:=PByte(AllocMem(MaxMsgLen));
end;
procedure TForm1.Button2Click(Sender: TObject);
var
msg: array of Byte;
i: byte;
begin
i:=client1.ReceiveBuf(Buf,size);
SetLength(msg,3);
msg[0]:=Buf^;
inc(buf);
msg[1]:=Buf^;
msg[2]:=0;
log(PChar(@msg[0]));
log(inttostr(i));
end;
Slym (2006-07-05 09:45:00) [41]
TTcpClient - юзать еще можно, но вот TTcpServer использовать
не стоит пользуй TServerSocket
Страницы:
<
1
2
3
>
Наверх 
ЧАТ |
Орешник |
|
