| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Не работает копирование в буфер в win9x

A Programmer ©   (2007-05-26 16:10:00) 


 SelLen:= Length(ws);
 if (SelLen > 0) then
 begin
   OpenClipboard(Application.Handle);
   try
     EmptyClipboard;
     hg:=GlobalAlloc(GMEM_DDESHARE or GMEM_MOVEABLE, SelLen*2+2);
      try
        if (hg <> 0) then
        begin
          P:=GlobalLock(hg);
          if P <> nil then
          begin
            Move(PWideChar(ws)^, P^, SelLen * 2 + 2);
            SetClipboardData(CF_UNICODETEXT,hg);
          end;
        end;
      finally
        GlobalUnlock(hg);
        GlobalFree(hg);
      end;
   finally
     CloseClipboard;
   end;
 end;


В Win2000 всё работает, в win9x не происходит копирования в буфер, хотя переменная ws содержит юникод-символы.
Как это исправить?

---

A Programmer   (2007-05-26 19:15:00) [1]

Нашёл в чём дело:

GlobalFree(hg);

должен быть после

CloseClipboard;

---

A Programmer   (2007-05-26 18:02:00) [2]

>CF_UNICODETEXT

Ясно,но я пробовал и CF_TEXT, всё равно не работает - указатель P указывает на адрес, по которому находится мусор или одни нули (если обнулить hg:=GlobalAlloc(GMEM_DDESHARE or GMEM_MOVEABLE or GMEM_ZEROINIT, SelLen*2+2);).

А как же поместить юникод в буфер обмена в win9x, опера ведь это как-то делает?

---

begin...end   (2007-05-26 17:30:00) [3]

CF_UNICODETEXT

Windows NT/2000/XP : Unicode text format. Each line ends with a carriage return/linefeed (CR-LF) combination. A null character signals the end of the data.

(c) MSDN

---

Наверх