RichEdit

← →
VikOss (2004-12-24 18:54) [0]

Народ ! Такая пробла : во вражеском приложении есть типа ричвию,ни какова едитирования и печатания, у меня есть ентот кампанент RichView . В проге я его выщемил HWND через FindWindow и т.д. НО СОДЕРЖИМОЕ НИКАК НЕ ВЫТАЩУ. Пмагите плииз, если мона с кодом примерным хатя бы, затр"""ся уже !!!

← →
Просто Джо © (2004-12-25 03:43) [1]

Ну, если есть типа этат ричвию, то тагда, типа, можна забацать такую хрень: типа юзаешь такую GetWindowText, тока сначала выщемить не хило было бы длину текста, а патом, значить, юзать.
И не надо тр""""ся больше!

Примечание №1. Типа збацай так:

var L: Integer; Text: PChar; begin L := GetWindowTextLength(AHandle); GetMem (Text,L); GetWindowText(AHandle,Text,L); ShowMessage (Text); FreeMem (Text); end;

Примечание №2. А что, русский язык в школах уже выборочно преподают?

← →
VikOss (2004-12-29 19:25) [2]

В том то всё и дело, что через GetWindowText я пробовал - не получается. Я же специально написал RichView - там не просто текст а хрень всякая - ссылки и т.д и т.п. Он просто отображает енто всё. И даже через SendMessage(Wnd,WN_GETTEXT,длина текста,Integer(PChar(ss))) не получается !

← →
Fay © (2004-12-29 19:48) [3]

EM_STREAMOUT?

← →
VikOss (2004-12-29 19:50) [4]

Пробовал, но чёто не врубился как его юзать, напиши плиз кусок кода.

← →
Fay © (2004-12-29 20:13) [5]

function Jopa(dwCookie : Integer; pbBuff : PByte; cb : Integer; pcb : PInteger) : DWORD; stdcall; begin Result := 0; ShowMessage(PChar(pbBuff)); end; procedure TForm1.Button2Click(Sender : TObject); const EM_STREAMOUT = WM_USER + 74; SF_RTF = $0002; SF_TEXT = $0001; type EDITSTREAMCALLBACK = function( dwCookie : Integer; // application-defined value pbBuff : PByte; // data buffer cb : Integer; // number of bytes to read or write pcb : PInteger // number of bytes transferred ) : DWORD; stdcall; _editstream = packed record dwCookie : Integer; dwError : DWORD; pfnCallback : EDITSTREAMCALLBACK; end; var es : _editstream; begin FillChar(es, SizeOf(es), 0); es.pfnCallback := Jopa; SendMessage(RichEdit1.Handle, EM_STREAMOUT, SF_TEXT, LPARAM(@es)); end;

Хорошо бы вот так
function Jopa(dwCookie : Integer; pbBuff : PByte; cb : Integer; pcb : PInteger) : DWORD; stdcall; begin Result := 0; pcb^ := cb; ShowMessage(PChar(pbBuff)); end;

← →
VikOss (2004-12-30 16:41) [7]

Огромное всем спасибо !!!!

2 VikOss (30.12.04 16:41) [7]
С наступающим! Удачи! 8)

RichEdit Найти похожие ветки