![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
InDy 10, ReadBytes [D2005, XP]
Volfram © (2007-01-11 21:59:00)код на сервере:
procedure TMainform.CmdTCPServerCommandHandlers10Command(ASender: TIdCommand);
var
CharsData : TCharsData;
Buff : TidBytes;
...
CharsData:=Client^.Characters;
SetLength(Buff, SizeOf(TCharsData));
Move(CharsData, Buff[0], SizeOf(TCharsData));
ASender.Context.Connection.Socket.Write(Buff);
код клиента:
var Buff : TidBytes;
PChData : ^TCharsData;
CharsData : TCharsData;
...
Setlength(Buff,sizeof(TCharsData));
Socket.ReadBytes(Buff,sizeof(Tcharsdata));
PChData:=@Buff;
CharsData:=PChData^;
Принимается совершенно не то, что посылается :/ Как же все таки с этими IdBytes работать то?
Volfram (2007-01-14 19:23:00) [1]выяснилось, чт оесли убрать у клиента Setlength(Buff,sizeof(TCharsData)); , то байты приходят такие же, как и отправились. Но после
PChData:=@Buff;
CharsData:=PChData^;
В CharsData все равно какая то каша.
Volfram (2007-01-13 16:21:00) [2]И все таки? 4й день извращаюсь, а время поджимает... :(
Volfram (2007-01-12 22:37:00) [3]2 Anatoly Podgoretsky
Я имею в виду не сложность, а скорость появления ответа :)
_______________
TCharsData = array[0..3] of record
Created : boolean;
LogedIn : boolean;
Chat_Enabled : boolean;
InBattle : boolean;
Name : string[15];
ChallengedBy : record
LoginId : integer;
CharNum : byte;
end;
end;
Client - указатель на объект TClientData, у которого есть поле Characters типа TCharsData.
Anatoly Podgoretsky (2007-01-12 13:25:00) [4]
> я еещ долго думал, куда это запостить - Начинающим или в
> Сети. наверное, ошибся
Ни в коей мере.
umbra (2007-01-12 12:15:00) [5]что такое
TCharsDataиClient?
Volfram (2007-01-12 11:54:00) [6]No comments?
(я еещ долго думал, куда это запостить - Начинающим или в Сети. наверное, ошибся)