Кодирование в UTF8 в 2010+ студии

[Puhovoi]

Доброго времени суток!

Использую юникодную Delphi 2010. Необходимо из "Мария" получить "МариÑ" - грубо говоря, как это выглядело бы при работе функции utf8encode в delphi 7.

Заранее спасибо за ответы.

[GunSmoker]

Ээээ.... а в чём проблема, код же будет тот же самый?

И в Delphi 7 и в Delphi 2010:

var
  S: String;
  UTF8: UTF8String; // или AnsiString;
begin
  S := 'Мария';
  UTF8 := UTF8Encode(S);
end;

А в Delphi 2010 можно ещё проще:

var
  S: String;
  UTF8: UTF8String; // AnsiString не подойдёт
begin
  S := 'Мария';
  UTF8 := S;
end;

Список функций преобразованя UTF-8 в Delphi.

[Puhovoi]

Мне требуется записать в memorystream русский текст в UNICODE. Записывается - в ANSI, как ни кодируй.

[GunSmoker]

Ошибка в 42 строке.

[Puhovoi]

UTF8EncodeToShortString (s) - дает нужный результат.

[GunSmoker]

По моему, ты что-то путаешь. Код-то покажи.

[Puhovoi]

Есть класс TPart, для формирования данных POST-запроса, с mime-типом multipart/form-data.

Функция добавления имя-параметр выглядит так:

procedure TPart.NewField (const name: string; const value: string);
begin
  WriteStrToStream (ResultDocument, '--' + Boundary + CRLF + 'Content-Disposition: form-data; name="' + name + '"' + CRLF + CRLF + value + CRLF);
end;

Так вот некоторые сайты (твиттер яркий тому пример) принимают только юникод, соответственно в value приходится передавать UTF8EncodeToShortString (value).

[GunSmoker]

А можешь показать прототип WriteStrToStream и пример как ты вызываешь TPart.NewField с UTF8EncodeToShortString?

[Puhovoi]

WriteStrToStream взята из библиотеки Synapse (под которую и писалась обертка для более удобного обращения):

procedure WriteStrToStream(const Stream: TStream; Value: AnsiString);
{$IFDEF CIL}
var
  buf: Array of Byte;
{$ENDIF}
begin
{$IFDEF CIL}
  buf := BytesOf(Value);
  Stream.Write(buf,length(Value));
{$ELSE}
  Stream.Write(PAnsiChar(Value)^, Length(Value));
{$ENDIF}
end;

Вызов стандартный:

part.newfield ('user', utf8encodetoshortstring ('Мария'));

P.s.: абсолютное большинство сайтов, к слову, unicode в подобных запросах не переваривают.

[GunSmoker]

Ага, понял. Тебе попался хитрый фокус. Мне нравится.

В общем, есть мнение, что правильно надо так:

procedure TPart.NewField(const name: String; const value: String);
begin
  WriteStrToStream(ResultDocument, UTF8Encode('--' + Boundary + CRLF + 'Content-Disposition: form-data; name="' + name + '"' + CRLF + CRLF + value + CRLF));
end;

...

part.NewField('user', 'Мария');

если Boundary и CRLF имеют тип String (или же это константы).

В противном случае (если они однобайтовые строки AnsiString/UTF8String/RawByteString), то:

procedure TPart.NewField (const name: String; const value: String);
begin
  WriteStrToStream(ResultDocument, UTF8String('--' + Boundary + CRLF + 'Content-Disposition: form-data; name="') + UTF8Encode(name) + UTF8String('"' + CRLF + CRLF + value + CRLF)));
end;

...

part.NewField('user', 'Мария');