dominiksus

Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору вах, люди получается! подскажите еще, как обработать исходный хтмл из twebbrowser (в режиме редактирования) выкусить текст между <BODY> </BODY> и скопировать его в буфер? я уже пробовал такое: Цитата: Range := (editor.selection.createRange as IHTMLTxtRange); CopyStringToClipboard(range.htmlText); | Цитата: procedure CopyStringToClipboard(s: string); var hg: THandle; P: PChar; begin hg:=GlobalAlloc(GMEM_DDESHARE or GMEM_MOVEABLE, Length(S)+1); P:=GlobalLock(hg); StrPCopy(P, s); GlobalUnlock(hg); OpenClipboard(Application.Handle); SetClipboardData(CF_TEXT, hg); CloseClipboard; GlobalFree(hg); end; | не копируется | Всего записей: 119 | Зарегистр. 11-08-2007 | Отправлено: 13:55 28-11-2007 | Исправлено: dominiksus, 13:57 28-11-2007 |
|