| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сокетный клиент/сервер [D6, WinXP]
mrcat © (2002-05-13 13:11:00)Есть клиент/серверное приложение при коннекте клиент отсылает некую инфу на сервер. Проблема в том, что посланные клиентом данные не совпадают с принятыми на сервере. В чем может быть дело?
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 18:18:00) [1]>> cyborg
вот, тормоз........
действительно, не отослано.
спасибо ;))
cyborg (2002-05-13 18:00:00) [2]не верно!
Получать мессагу нужно в ServerSocket1ClientRead, а там где ты её хочешь получить, ещё ничего не отослано!
mrcat (2002-05-13 17:20:00) [3]неужели все верно? почему не работает?
| |
