Имеется программка Fiddler с элементом RICHEDIT50W, из которого собственно нужно получить текст.
TxtLen := SendMessage(wnd2, WM_GETTEXTLENGTH, 0, 0);
Показывает 7161 символ, что верно. Приведу переменные:
TxtLen: integer;
TexQwTxt: array of Char;
TxtStr: String;
Далее увеличиваем массив для записи:
SetLength(TexQwTxt, TxtLen+1);
А дальше, собственно, должно происходить считывание текста:
SendMessage(wnd2, WM_GETTEXT, TxtLen+1, Integer(@TexQwTxt));
TxtStr:='';
for I := 0 to TxtLen-1 do
TxtStr:=TxtStr+TexQwTxt[i];
Form1.Memo1.Lines.Add(TxtStr);
И memo пустой!
Подскажите, где накосячил и как поправить?