Не вставляется текст из буфера

[Kronos913]

Пытаюсь вставить текст скопированный из клиента телеграм. Не вставляется ни через сторонние кнопки програмно ни напрямую через ctrl+V в Memo, или Edit

При этом если я вставлю текст в блокнот, а потом выделю текст и заново Ctrl+C - после этого нормально будет вставляться

Версия Delphi 7

[Kronos913]

Кстати, если попробовать в процессе редактирования программы нажать ctrl+V, то тоже 0 реакции
Но опять же, в самый примитивный блокнот все нормально заходит

[Kronos913]

  If Clipboard.HasFormat(CF_TEXT) then begin
    label1.Caption:='+';
    label2.Caption:=IntToStr(Length(Clipboard.AsText));
  end else begin
    label1.Caption:='-';
  end;

Выдает "+" и нулевую длину

Хотя, опять же, в блокнот текст заходит

[BDA]

Если посмотреть содержимое буфера обмена с помощью clipview (http://www.peterbuettner.de/develop/tools/clipview/), то оно отличается после копирования из телеграма и из блокнота. Наверное, блокнот анализирует содержимое и в других форматах (CF_UNICODETEXT, CF_OEMTEXT), а в Дельфи 7 берется только CF_TEXT.

[Kronos913]

И как сделать так, чтобы моя программа смогла прочитать содержимое буфера?
Может быть, можно как-то просто получить содержимое буфера как набор данных и самостоятельно расшифровать?

[Kronos913]

Через программу по ссылке определил формат:
13: CF_UNICODETEXT

Как его прочитать теперь?

[macomics]

var
  buf: array of Byte;
  siz, len: LongInt;
begin
   siz := 10240; // Количество байт в буфере
   SetLength(buf, siz); // Выделили память под массив байт
   len := Clipboard.GetTextBuf(PChar(@buf[0]), siz); // Получили символы из буфера обмена
// siz - длина буфера в символах AnsiChar (1 байта на символ)
// len - Количество записанных в буфер символов (AnsiChar)

Чтобы определить заранее длину буфера можно получить handle и с помощью функции GlobalSize получить длину в байтах. Но т.к. GlobalSize это WinAPI, то на Linux она не доступна. Для решения проблемы определения размера данных в буфере обмена можно, например, в цикле читать данные из буфера, увеличивая буфер пока len=siz.

var
  buf: array of Byte;
  siz, len: LongInt;
begin
   siz := 0;
   repeat
      inc (siz, 10240);
      SetLength(buf, siz);
      len := Clipboard.GetTextBuf(PChar(@buf[0]), siz);
   until len < siz;

ADD: После buf: array of Byte; надо без преобразования превратить в строку WideChar. Например так: PWideChar(@buf[0]);

[Kronos913]

После долгих поисков нашел такой код:

function GetStringFromClipboard: WideString;
var
  Data: THandle;
begin
  if not IsClipboardFormatAvailable(CF_UNICODETEXT) then begin
    Result := Clipboard.AsText;
  end else begin
    Clipboard.Open;
    Data := GetClipboardData(CF_UNICODETEXT);
    try
      if Data <> 0 then
        Result := PWideChar(GlobalLock(Data))
      else
        Result := '';
    finally
      if Data <> 0 then
        GlobalUnlock(Data);
      Clipboard.Close;
    end;
  end;
end;

Вопрос: есть ли у него какие-то моменты, которые могут стать непредвиденным сюрпризом? Пока что работает

[Kronos913]

Но надо чтобы код мог нормально вставить и обычный и юникодовский текст...
Пока что я делаю

s:=Clipboard.AsText;
if s='' then s:=GetStringFromClipboard

И вопрос в том нужна ли такая подстраховка, или нет?

[BDA]

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

есть ли у него какие-то моменты

Код GetStringFromClipboard - калька с геттера TClipboard.GetAsText, так что проблем быть не должно.

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

нужна ли такая подстраховка, или нет?

Скорее, нужно продумать желаемый алгоритм обработки. GetStringFromClipboard опять может вызвать Clipboard.AsText в текущем виде.