Преобразование потока памяти с нулевым символом в конце в строку Юникода

В Delphi XE я собираю данные CF_UNICODETEXT из буфера обмена. Результатом является поток, который заканчивается двумя нулевыми байтами. Чтобы получить фактическую строку, которая была скопирована в буфер обмена, мне нужно удалить нули.

Этот похожий вопрос содержит хороший метод преобразования из TMemoryStream в строку Unicode Delphi:

function MemoryStreamToString(M: TMemoryStream): string;
begin
  SetString(Result, M.Memory, M.Size div SizeOf(Char));
end;

В моем случае, однако, это приведет к появлению строки, содержащей завершающие нули. Я мог бы это исправить, ограничив размер:

function ClipboardMemoryStreamToString(M: TMemoryStream): string;
begin
  SetString(Result, M.Memory, (M.Size - SizeOf(Char)) div SizeOf(Char));
end;

... но это выглядит ужасно, "особый случай". Интересно, есть ли более чистый способ кодирования этого, чтобы кто-нибудь (я!), Взглянувший на код позже, не сразу спросил: "Почему конечный символ удаляется из потока?"

Изменить: один из способов упреждения вопроса является добавление комментария. Но кроме этого?

Источник

2 ответа

Решение

Если вы нацелены на CF_UNICODETEXT, вам нужно указать строку Юникода специально:

// For old Delphi versions
{$IFNDEF UNICODE}
type
  UnicodeString = WideString;
{$ENDIF}

// For CF_TEXT
function MemoryStreamToAnsiString(M: TMemoryStream): AnsiString;
begin
  SetString(Result, M.Memory, M.Size);
  if (Result <> '') and (Result[Length(Result)] = #0) then
    SetLength(Result, Length(Result) - 1);
end;

// For CF_UNICODETEXT
function MemoryStreamToUnicodeString(M: TMemoryStream): UnicodeString;
begin
  SetString(Result, M.Memory, M.Size div SizeOf(WideChar));
  if (Result <> '') and (Result[Length(Result)] = #0) then
    SetLength(Result, Length(Result) - 1);
end;

// I'm not sure that you should use this form
function MemoryStreamToString(M: TMemoryStream): String;
begin
  SetString(Result, M.Memory, M.Size div SizeOf(Char));
  if (Result <> '') and (Result[Length(Result)] = #0) then
    SetLength(Result, Length(Result) - 1);
end;

Если вы на 100% уверены, что строка заканчивается нулем, то:

// For CF_TEXT
function MemoryStreamToAnsiString(M: TMemoryStream): AnsiString;
begin
  SetString(Result, M.Memory, M.Size - 1);
end;

// For CF_UNICODETEXT
function MemoryStreamToUnicodeString(M: TMemoryStream): UnicodeString;
begin
  SetString(Result, M.Memory, (M.Size div SizeOf(WideChar)) - 1);
end;

function MemoryStreamToString(M: TMemoryStream): String;
begin
  SetString(Result, M.Memory, (M.Size div SizeOf(Char)) - 1);
end;
Источник

Что случилось с Clipboard.AsText? Он делает все для вас без необходимости в потоках, тыкаясь в байтах, имея дело с нулевыми терминаторами и т. Д.

Что касается точного вопроса, который вы подняли, я бы просто написал:

SetString(Result, M.Memory, M.Size div SizeOf(Result[1]) - 1);
Источник
Другие вопросы по тегам