PAnsiChar utf8 русские буквы ?

[Должно быть имя?]

Сообщение от Stilet

А почему тогда через PБлаБлаChar? Почему не именно строку как обычно?
И Зачем столько разных функций? Я бы например использовал не их а класс TEncoding - надежнее получилось бы.

Ну если ты еще не заметил, я использую структуру, и в нее прилетают данные из другого ОПП. так что тут уже ничего не по пишешь

  Pzvalue_value = ^zvalue_value;
  zvalue_value = record
    case integer of
      0: (lval	: Longint;);
      1: (dval	: double;);
      2: (str	: record
					  val	: PAnsiChar;
					  len	: LongInt;
				  end;);
      3: (ht	: PHashTable;);
      4: (obj	: zend_object_value;);
  end;

  pppzval = ^ppzval;
  ppzval = ^pzval;
  pzval = ^zval;

  zval = record
    value         : zvalue_value;
    refcount__gc  : uint;
    _type         : Byte;
    is_ref__gc    : Byte;
  end;

Функций столько, чтоб создать нормальный функционал для работы, и не мается потом вручную

[Stilet]

так что тут уже ничего не по пишешь

Мне на все про все хватает всегда две функции: AnsiToUtf8() и Utf8ToAnsi(). Плюс сюда же TEncoding. Я конечно отговаривать тебя не стану, это так, к слову, но смысла в куче функций я не вижу.

[Должно быть имя?]

Сообщение от Stilet

Мне на все про все хватает всегда две функции: AnsiToUtf8() и Utf8ToAnsi(). Плюс сюда же TEncoding. Я конечно отговаривать тебя не стану, это так, к слову, но смысла в куче функций я не вижу.

А я как раз таки вижу смысл, если я потом захочу через RTTI взаимодействовать на классы, то мне нужен будет функционал получения строки в разных типах

Я конечно могу и без UTF8 оставить, тока думаю что в будущем с этим проблемы будут, и до проблемы не кому дела не будет

[StriderX]

Сообщение от Должно быть имя?

Ну если ты еще не заметил, я использую структуру, и в нее прилетают данные из другого ОПП. так что тут уже ничего не по пишешь

В этом и есть смысл TEncoding - для вас существует только string. Если строку надо куда-то отдать, то отдаёте вы байты, которые для вас построит TEncoding. Если вы хотите принять строку, то принимаете вы опять же набор байт, а string для вас из них построит TEncoding.
Embarcadero уже относительно давно форсит идею, что строковый тип должен быть строго один. Всё остальное - это legacy =-)

[Должно быть имя?]

Сообщение от StriderX

В этом и есть смысл TEncoding - для вас существует только string. Если строку надо куда-то отдать, то отдаёте вы байты, которые для вас построит TEncoding. Если вы хотите принять строку, то принимаете вы опять же набор байт, а string для вас из них построит TEncoding.
Embarcadero уже относительно давно форсит идею, что строковый тип должен быть строго один. Всё остальное - это legacy =-)

Тогда вечером гляну, если эта та штука, которая мне нужна

[Stilet]

если я потом захочу через RTTI взаимодействовать на классы, то мне нужен будет функционал получения строки в разных типах

По-моему ты перегибнул палку... Мне думается что даже если и встанет так остро такая проблема, то во-первых ее решат быстро другими доступными средствами (Тот же TEncoding), а во-вторых вероятность ее будет низка.

[Vapaamies]

Сообщение от Должно быть имя?

  function ZvalStrPAChar(z:zval) : PAnsiChar; // НЕТУ поддержки UTF8

  function ZvalStrPWChar(z:zval) : PWideChar; // есть поддержка UTF8

Две эти функции невозможны, хоть десять TEncoding-ов используй. Для корректной выдачи значений типа PAnsiChar/PWideChar на вызывающей стороне нужно создавать буфер и передавать его в процедуру вместе с размером, чтобы не было уязвимости по переполнению буфера. Как функции API делают, короче.

В Delphi обычно с этим не заморачиваются, и если где-то нужен PAnsiChar или PWideChar, берут Pointer от значения AnsiString или UnicodeString/WideString. Обычно это для API требуется, а внутри Delphi-кода везде используются нормальные строки.

[Должно быть имя?]

Сообщение от Vapaamies

Две эти функции невозможны, хоть десять TEncoding-ов используй. Для корректной выдачи значений типа PAnsiChar/PWideChar на вызывающей стороне нужно создавать буфер и передавать его в процедуру вместе с размером, чтобы не было уязвимости по переполнению буфера. Как функции API делают, короче.

В Delphi обычно с этим не заморачиваются, и если где-то нужен PAnsiChar или PWideChar, берут Pointer от значения AnsiString или UnicodeString/WideString. Обычно это для API требуется, а внутри Delphi-кода везде используются нормальные строки.

ZvalStrPWChar - работает как надо, с русскими буковками, и я внес кое какую правку тогда еще, а именно такую

function Utf8Str(Str:zval):RawByteString;
begin
  SetLength(Result, Str.value.str.len);
  Move(Str.value.str.val^, Result[1], Str.value.str.len);
  if DetectUTF8Encoding(Result) = etUTF8 then
    SetCodePage(Result, 65001, false);
end;

...
function ZvalStrPWChar;
begin
  Result := '';
  case z._type of
    IS_BOOL, IS_LONG   : Result := StringToOleStr(WideString(inttostr(z.value.lval)));
    IS_DOUBLE          : Result := StringToOleStr(WideString(FloatToStr(z.value.dval)));
    IS_STRING          : Result := StringToOleStr(WideString(Utf8Str(z)));
  end;
end;

[Vapaamies]

Сообщение от Должно быть имя?

я внес кое какую правку тогда еще, а именно такую

Это быдлокод, приводящий к утечкам памяти.

[Должно быть имя?]

Сообщение от Vapaamies

Это быдлокод, приводящий к утечкам памяти.

В смысле быдло код? ты имел введу эту функцию ?

function Utf8Str(Str:zval):RawByteString;
begin
  SetLength(Result, Str.value.str.len);
  Move(Str.value.str.val^, Result[1], Str.value.str.len);
  if DetectUTF8Encoding(Result) = etUTF8 then
    SetCodePage(Result, 65001, false);
end;

и где тут быдло код?если мне нужна получить русские буковки, а ваша Utf8ToAnsi работает криво, в плане если начальная строка не utf8