VPF::WideString определённого размера - Форум программистов

AXS

Дата 4.5.2014, 17:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 115
Регистрация: 26.9.2008
Где: РК

Репутация: нет
Всего: -1

Корень проблемы в том, что Socket.SendBuf() не желает отправлять/принимать записи (record) содержащие параметры типа string, ибо обычная строка это просто указатель на строку (? не уверен так ли я понял компилятор, но что-то вроде того).
То есть:

Код


type 
  TRecL = record
    s1: string;
    s2: string;
  end;

  TRecS = record
    s1: string[255];
    s2: string[255];
  end;

var
  RecL: TRecL;
  RecS: TRecS;

//. . .

  Socket.SendBuf(RecL, SizeOf(RecL)); // Не взлетит
  Socket.SendBuf(RecS, SizeOf(RecS)); // Взлетит

Но это не решает проблему, так как я работаю со специфичными символами (нид юникод). А решение выше имеет такой побочный эффект:

Код


  RecL.s1:= 'aұ⌘e';  
  RecL.s2:= 'cіздің';

  // В выводе и отладчике вижу RecL = ((s1:'aұ⌘e'), (s2:'cіздің'))

  RecS.s1:= RecL.s1;
  RecS.s2:= RecL.s2;

  // В выводе и отладчике вижу RecS = ((s1 : 'a??e'), (s2 : 'cізді?'))

Пишу в XE5, где строки по умолчанию в юникоде, но как видно string[xx] превращается в анси.

Как это можно побороть? Существует ли что-то вроде widestring[xx]?

--------------------

<><><> AXS - Live Organizer v1.0 <><><> 0_o

Illusion Dolphin

Дата 4.5.2014, 19:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Код


  TRecX = record
    s1: array[1..255] of WideChar;
    s2: array[1..255] of WideChar;
  end;

Плюс надо хранить длинну или нулём оканчивать строку.

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

AXS

Дата 5.5.2014, 17:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 115
Регистрация: 26.9.2008
Где: РК

Репутация: нет
Всего: -1

Цитата(Illusion Dolphin @ 4.5.2014, 19:06)

Код


  TRecX = record
    s1: array[1..255] of WideChar;
    s2: array[1..255] of WideChar;
  end;

Плюс надо хранить длинну или нулём оканчивать строку.

Строки вносить побайтово в цикле или есть какая-то функция?

--------------------

<><><> AXS - Live Organizer v1.0 <><><> 0_o

CynicRus

Дата 5.5.2014, 18:57 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 248
Регистрация: 31.5.2012

Репутация: нет
Всего: 5

Ну если у тебя именно байты, то

Код


Функция Chr ( X: Byte ): Char;

AXS

Дата 6.5.2014, 07:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 115
Регистрация: 26.9.2008
Где: РК

Репутация: нет
Всего: -1

Нет, меня интересует как правильно перенести строки из записи со строками в запись с массивами. То есть из:

Код


  TRecL = record
    s1: string;
    s2: string;
  end;

Код


  TRecX = record
    s1: array[1..255] of WideChar;
    s2: array[1..255] of WideChar;
  end;

StrPCopy не подходит

--------------------

<><><> AXS - Live Organizer v1.0 <><><> 0_o

bems

Дата 7.5.2014, 03:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Move

--------------------

Обижено школьников: 8

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »