InDy 10, ReadBytes

← →
Volfram (2007-01-11 21:59) [0]

код на сервере:

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-12 11:54) [1]

No comments?
(я еещ долго думал, куда это запостить - Начинающим или в Сети. наверное, ошибся)

← →
umbra © (2007-01-12 12:15) [2]

что такое TCharsData и Client?

← →
Anatoly Podgoretsky © (2007-01-12 13:25) [3]

> я еещ долго думал, куда это запостить - Начинающим или в
> Сети. наверное, ошибся

Ни в коей мере.

← →
Volfram (2007-01-12 22:37) [4]

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.

← →
Volfram (2007-01-13 16:21) [5]

И все таки? 4й день извращаюсь, а время поджимает... :(

← →
Volfram (2007-01-14 19:23) [6]

выяснилось, чт оесли убрать у клиента Setlength(Buff,sizeof(TCharsData)); , то байты приходят такие же, как и отправились. Но после
PChData:=@Buff;
CharsData:=PChData^;
В CharsData все равно какая то каша.

InDy 10, ReadBytes Найти похожие ветки