Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Получить данные с буфера в HTML формате

Автор: XperT 20.1.2010, 22:14

Здравствуйте,
Использую такую функцию получения содержимого буфера в формате HTML:

Код


function RegisterHTMLClipBoard:integer;
var
  i:integer;
  FormatName:PChar;
  FormatID:Integer;
begin
  FormatID:=-1;
  for I := 0 to Clipboard.FormatCount-1 do
  begin
    FormatName := AllocMem(255);

    GetClipboardFormatName(Clipboard.Formats[I], FormatName, 254);
    if FormatName='HTML Format' then
    begin
      FormatID:=Clipboard.Formats[I];
      break;
    end;
  end;

  if FormatID=-1 then
  begin
    FormatID:=RegisterClipboardFormat('HTML Format');
  end;

  result:=FormatID;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  Data: THandle;
begin
  Clipboard.Open;
  Data := GetClipboardData(RegisterHTMLClipBoard);
  try
    if Data <> 0 then Memo1.Lines.Text := PChar(GlobalLock(Data));
  finally
    if Data <> 0 then GlobalUnlock(Data);
    Clipboard.Close;
  end;
end;

С латиницей работает нормально, но когда я в буфер помещаю русский текст, то получаю примерно вот такое:

Код


СЂР°Р·РјРµСЂР°РјРё Рё Р±РѕР»РµРµ СЂРµРґРєРёРјРё РїРѕР»РѕСЃРєР°РјРё; РѕС‚ РіРѕСЂРЅРѕР№ Р·РµР±СЂС‹ вЂ” РѕС‚СЃСѓС‚СЃС‚РІРёРµРј В«РїРѕРґРіСЂСѓРґРЅРёРєР°В»,

Понимаю, что косяк с кодировкой, но никак не могу его побороть. После такой строчки: Memo1.Lines.Text := Utf8ToAnsi(PChar(GlobalLock(Data)));
получаю вообще пустой результат :(

Автор: XperT 20.1.2010, 22:49

Причину частично нашел: когда в начале текста очень много латиницы (а так оно и есть после копирования с ворда - куча служебной инфы), то Utf8ToAnsi не работал. Удаляю всё лишнее - и всё ок.