Байтовая конвертация типов данных

[Лубышев]

не знал как тему обозвать но так вроде бы вернее всего.
задачка такая. у меня есть тип данных - массив integer я в него принимаю данные из сокета. ну этот массив - что то вроде своего формата сообщений (как бы свой протокол) и вот я прочитал в него значения пришедшие от сервака и оказалось что там начиная со второго integer и до конца - это текст. как выудить этот текст оттуда?
Создать стрим, пихнуть туда все и заново прочитать из стрима в нужный формат как то думаю дороговато будет....

[Аватар]

А массив Integer обязательно? Не проще сделать массив Byte или Char? Из него проще будет текст извлечь

[Лубышев]

Ну как бы у меня текста не часто приходят. в основном приходят команды для клиента от сервера типа
первое число - идентификатор команды. все остальные числа служебные значения для каждой команды значищие что то свое.

и вот допустим ко мне пришла команда 15 допустим. а это значит что во всех остальных переменных лежит какое то текстовое содержимое

поэтому мне удобнее оперировать с integer

[Аватар]

А как коды этих символов размещаются - 1 на Integer или 4 на Integer или как-то по другому?

[Лубышев]

короче передаю я в паток каждый integer по 4 байта. и так же вытягиваю. вытянул - все норм - все сходится....
и вот передо мной на клиенте тот самый мой тип данных что я передавал. но как выдрать из него текст - не знаю. наверное все таки в стрим писать его надо и потом уже читать оттуда как текст
PS в смысле в первом случае я отправил сообщение с сервера таким то образом как мой тип данных (в случае когда необходимо дать команду) а вот когда текст кидал я на серваке схормировал пакет где первым идет идентификатор команды а далее текст. все пакеты фиксированной длинны. ибо плевался я когда пакеты слипались и не знал а какой длинны мне прислали пакет

[Аватар]

var xArrayInteger: array[0..5] of Integer;
    // или xArrayInteger: array of Integer;
    p: PByteArray;
    i: Integer;
    s: String;
begin
//если динамический  SetLength(xArrayInteger,6);
  for i:=0 to 5 do xArrayInteger[i]:=i+1;
  p:=Addr(xArrayInteger[0]);
  s:='';
  for i:=0 to SizeOf(Integer)*(High(xArrayInteger)-Low(xArrayInteger)+1)-1 do
    s:=s+Chr(p^[i]);

[Лубышев]

в общем в любом случае у клиента оказалась переменная моего типа данных (массив integer в котором начиная со второго числа идет текст спрятанный в интежерах

[Лубышев]

О спасиба. что то похожее вродь)

[Аватар]

Без цикла и побыстрей можно еще так

  SetLength(s,SizeOf(Integer)*(High(xArrayInteger)-Low(xArrayInteger)+1));
  Move(xArrayInteger[0],s[1],SizeOf(Integer)*(High(xArrayInteger)-Low(xArrayInteger)+1));

[Лубышев]

Что то с форумом не того. почему то плюсик поставить нельзя. грят что мол надо оценить кого то еще.. но я оценивал целую толпу людей до этого а все равно...