Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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?
(я еещ долго думал, куда это запостить - Начинающим или в Сети. наверное, ошибся)


Наверх

Титульная страница Поиск, карта сайта Написать письмо