Сокетный клиент/сервер

← →
mrcat © (2002-05-13 13:11) [0]

Есть клиент/серверное приложение при коннекте клиент отсылает некую инфу на сервер. Проблема в том, что посланные клиентом данные не совпадают с принятыми на сервере. В чем может быть дело?

type
TBuf = packed record
tbName, tbPass: array[0..14] of char;
end;

/////////// сервер /////////////

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket);

var
SrBuf: TBuf;

begin
Socket.ReceiveBuf(AuthBuf, Socket.ReceiveLength);
// -> пурген: tbName, tbPass - не равно "user", "password"
end;

/////////// клиент /////////////

procedure TForm1.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);

var
ClBuf: TBuf;

begin
with AuthBuf do begin
tbName := "user";
tbPass := "password";
end;
Socket.SendBuf(AuthBuf, SizeOf(AuthBuf));
end;

← →
mrcat © (2002-05-13 17:20) [1]

неужели все верно? почему не работает?

← →
cyborg © (2002-05-13 18:00) [2]

не верно!
Получать мессагу нужно в ServerSocket1ClientRead, а там где ты её хочешь получить, ещё ничего не отослано!

>> cyborg

вот, тормоз........
действительно, не отослано.
спасибо ;))

Сокетный клиент/сервер Найти похожие ветки