Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 2 485

Раздел: Delphi » Взаимодействие с Windows
/ вопрос открыт /

Доброго времени суток, уважаемые эксперты!
Помогите, пожалуйста, с "переводом" данной функции под Delphi 2009. Пробовал по-разному менять преобразование строковых типов, пересчёт длины через SizeOf - так и не получилось, в буфере обмена кракозябры всё время.
P.S. Использование модуля Clipbrd не предлагать - у него есть проблемы, потому и намеренно отказался от него. Аналогичную функцию для получения текста из буфера адаптировать под D2009 удалось.

Приложение:
  1. function SetClipboardText(Wnd: HWND; Value: string): Boolean;
  2. var
  3. hData: HGlobal;
  4. pData: pointer;
  5. Len: integer;
  6. begin
  7. Result := True;
  8. if OpenClipboard(Wnd) then
  9. begin
  10. try
  11. Len := Length(Value) + 1;
  12. hData := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, Len);
  13. try
  14. pData := GlobalLock(hData);
  15. try
  16. Move(PChar(Value)^, pData^, Len);
  17. EmptyClipboard;
  18. SetClipboardData(CF_Text, hData);
  19. finally
  20. GlobalUnlock(hData);
  21. end;
  22. except
  23. GlobalFree(hData);
  24. raise
  25. end;
  26. finally
  27. CloseClipboard;
  28. end;
  29. end
  30. else
  31. Result := False;
  32. end;


Sunshine Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Sunshine (статус: Посетитель)
Вопрос отправлен: 6 марта 2009, 09:48
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 21; последнее сообщение — 6 марта 2009, 16:20; участников в обсуждении: 2.

Страницы: [« Предыдущая] [1] [2]

Sunshine

Sunshine (статус: Посетитель), 6 марта 2009, 16:20 [#21]:

Тоже верно.

function SetClipboardText(Wnd: HWND; Value: string): Boolean;
var
hData: HGlobal;
pData: pointer;
Len,M: integer;
begin
Result := True;
if OpenClipboard(Wnd) then
begin
try
Len := Length(Value);
M:=Len*SizeOf(Char);
hData := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE or GMEM_ZEROINIT, M+2);
try
pData := GlobalLock(hData);
try
Move((@Value[1])^, pData^, M);
EmptyClipboard;
SetClipboardData(CF_UNICODETEXT , hData);
finally
GlobalUnlock(hData);
end;
except
GlobalFree(hData);
raise
end;
finally
CloseClipboard;
end;
end
else
Result := False;
end;

P.S. Репутацию, к сожалению, на данный момент не могу повысить - ограничение не позволяет.

Страницы: [« Предыдущая] [1] [2]

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2026
Текущее время: 25 апреля 2026, 21:45
Выполнено за 0.02 сек.