Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Опять сокеты

Автор: Yura_Matsuk 17.10.2004, 13:23

Клиент подключается к серверу, но когда клиент вызывает sendbuf, то у сервера не срабатывает событие onClientRead. Длина буфера > 0 (проверял) :stena

Автор: Yura_Matsuk 18.10.2004, 09:05

Может ли это быть из-за того, что подключение и отправка находится в одной процедуре? :qstn

Автор: Akella 18.10.2004, 13:29

выкладывай хоть чуть-чуть кода

Автор: Yura_Matsuk 18.10.2004, 17:07

Это клиент

Код


var bf:array[0..100] of char;
procedure TForm1.LoginButtonClick(Sender: TObject);
var i,j:integer;s:string;
begin
  bf[0]:=#1;s:=loginedit.Text;i:=length(s)+1;
  move(s,bf[1],i);inc(i);s:=passedit.Text;j:=length(s)+1;;
  move(s,bf[i],j);inc(i,j);
  clientsocket1.Socket.SendBuf(bf,i);
end;