Скачать: CL | DM;

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 все равно какая то каша.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c