Как добавить форматированный текст в буфер обмена для тестирования утилиты "Text Scrubber" в Delphi

Delphi , ОС и Железо , Буфер обмена

При разработке утилиты "Text Scrubber", которая должна удалять любое форматирование из текста в буфере обмена, важно иметь возможность тестирования этой функциональности. Для этого необходимо уметь добавлять в буфер обмена текст с различными форматами. В данной статье мы рассмотрим, как это можно сделать на примере языка программирования Object Pascal, используемого в среде разработки Delphi.

Понимание задачи

Для начала, давайте разберемся с задачей. "Text Scrubber" - это утилита, которая должна принимать текст из буфера обмена и очищать его от всех форматов, оставляя только чистый текст. Чтобы протестировать утилиту, необходимо сначала заполнить буфер обмена форматированным текстом, который затем можно будет "очистить" с помощью "Text Scrubber".

Решение задачи

Для добавления текста в буфер обмена в формате HTML в Delphi, можно использовать следующий код:

function FormatHTMLClipboardHeader(HTMLText: string): string;
var
  CrLf: string;
begin
  CrLf := #13#10;
  Result := 'Version:0.9' + CrLf;
  Result := Result + 'StartHTML:-1' + CrLf;
  Result := Result + 'EndHTML:-1' + CrLf;
  Result := Result + 'StartFragment:000081' + CrLf;
  Result := Result + 'EndFragment:°°°°°°' + CrLf;
  Result := Result + HTMLText + CrLf;
  Result := StringReplace(Result, '°°°°°°', Format('%.6d', [Length(Result)]), []);
end;

procedure CopyHTMLToClipBoard(const str: AnsiString; const htmlStr: AnsiString = '');
var
  gMem: HGLOBAL;
  lp: PChar;
  Strings: array[0..1] of AnsiString;
  Formats: array[0..1] of UINT;
  i: Integer;
begin
  gMem := 0;
  Win32Check(OpenClipBoard(0));
  try
    // Очистка буфера обмена перед добавлением новых данных
    Win32Check(EmptyClipboard);
    // Подготовка данных для буфера обмена в формате HTML
    Strings[0] := FormatHTMLClipboardHeader(htmlStr);
    Strings[1] := str;
    Formats[0] := RegisterClipboardFormat('HTML Format');
    Formats[1] := CF_TEXT;
    // Цикл для добавления данных в буфер обмена
    for i := 0 to High(Strings) do
    begin
      if Strings[i] = '' then Continue;
      gMem := GlobalAlloc(GMEM_DDESHARE + GMEM_MOVEABLE, Length(Strings[i]) + 1);
      try
        Win32Check(gMem <> nil);
        lp := GlobalLock(gMem);
        Win32Check(lp <> nil);
        CopyMemory(lp, PChar(Strings[i]), Length(Strings[i]) + 1);
      finally
        GlobalUnlock(gMem);
      end;
      SetClipboardData(Formats[i], gMem);
    end;
  finally
    CloseClipboard;
  end;
end;

// Пример использования функции:
procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyHTMLToClipBoard('Hello world', '<b>Hello &lt;b&gt;world&lt;/b&gt;</b>');
end;

Этот код позволяет добавить в буфер обмена текст в формате HTML, который можно будет затем использовать для тестирования "Text Scrubber".

Альтернативные подходы

Также существуют альтернативные способы добавления текста в буфер обмена, например, использование сторонних библиотек или компонентов, которые предоставляют готовые решения для работы с буфером обмена.

Заключение

В данной статье мы рассмотрели, как добавить форматированный текст в буфер обмена для тестирования утилиты "Text Scrubber" в Delphi. Это позволяет разработчику убедиться в корректности работы утилиты с различными типами форматированных данных.

Создано по материалам из источника по ссылке.

Статья о том, как добавить форматированный текст в буфер обмена для тестирования утилиты 'Text Scrubber' в среде разработки Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Буфер обмена ::