Вниз
Скачать: CL | DM;

Clipboard+Word   Найти похожие ветки 

 
DimonNew   (2004-09-24 15:08) [0]

Привет! Кто-нибудь сталкивался с такой проблемой. Заноситься какая-то строка с русскими буквами в Clipboard. При копирование потом из буфера в Word, русские буквами заменяются какими-то символами. Как можно сделать так, чтобы они отображались нормально в Worde? И еще вопрос, каким форматом вписать ссылку в Clipboard, чтобы она вставилась в Word, как ссылка?


 
clickmaker ©   (2004-09-24 15:32) [1]

1.
procedure SetClipboardText(const S: string);
 var
   wsz: PWideChar;
   dwSize: Cardinal;
   hData: Cardinal;
 begin
   if (Win32Platform = VER_PLATFORM_WIN32_NT) then begin

     dwSize := (Length(S)+1) * SizeOf(WideChar);
     hData := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, dwSize);
     wsz := PWideChar(GlobalLock(hData));
     StringToWideChar(S, wsz, Length(S)+1);
     GlobalUnlock(hData);
     Clipboard.SetAsHandle(CF_UNICODETEXT, hData);
   end else
     Clipboard.AsText := S;
 end;

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


 
DimonNew   (2004-09-24 16:18) [2]

Спасибо за 1, а вот второе... Ссылка называется например Описание, а ссылается на какой-то адрес. Как быть в таком случае?


 
clickmaker ©   (2004-09-24 16:45) [3]


> [2] DimonNew   (24.09.04 16:18)
> Спасибо за 1, а вот второе... Ссылка называется например
> Описание, а ссылается на какой-то адрес. Как быть в таком
> случае?

Стандартных форматов для обмена ссылками по клипборду вроде как нет. Видимо офисные приложения регистрируют для них свой формат


 
DimonNew   (2004-09-24 17:14) [4]

Как страшна правда Worda. Действительно никак нельзя передать ссылку в эту чудо-программу. Спасибо большое за помощь!



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.049 c
3-1095156880
Andriy Tysh
2004-09-14 14:14
2004.10.10
ADOQuery.SQL.Add( ... ) & Transaction


1-1096088618
Kair()
2004-09-25 09:03
2004.10.10


4-1094582189
hgd
2004-09-07 22:36
2004.10.10
Кто знает как работать с fireware?


14-1095795066
Opilki_Inside
2004-09-21 23:31
2004.10.10
Кто-нибудь сталкивался с Qt-library?


1-1095861749
DelphiLexx
2004-09-22 18:02
2004.10.10
Общедоступные паременные




   Наверх