-
получаю так SendMessage(H, WM_GETTEXT, 256, LParam(@S[1])); ... но только с Edit, Button, Panel, ... как посмотреть что в Label написано, по его координатам
-
лабел не оконный, так что остается только ocr
-
> остается только ocr
Или внедрить туда свой код, перехватывающий TextOut()
-
> Сергей М. © (25.08.09 16:48) [2]
уже легче :)
.... можно по подробней?
-
-
-
вроде то, даже обрадовался переделал так function MyGetWndText(Wnd: HWND): PChar; stdcall; export;
var
Point: TPoint;
Buffer: array[0..256] of char;
begin
GlobalData^.Wnd := Wnd;
GlobalData^.cancapture := True;
Point:= Mouse.CursorPos;
Windows.ScreenToClient(Wnd, Point);
if (Point.x < 0) or (Point.y < 0) then
GetWindowText(Wnd, Buffer, SizeOf(Buffer) - 1);
Result := Buffer;
end;
...
exports
MyGetWndText name 'MyGetWndText';
...
вызываю так
...
function MyGetWndText(Wnd: HWND): PChar; stdcall; external 'TextCapture.dll';
...
var
Wnd: HWND;
begin
Wnd := WindowFromPoint(Mouse.CursorPos);
Label1.Caption := MyGetWndText(Wnd);
end; чтоб функция техт возвращала компилятор ругается, ОС плясать начинает Access violation at address 099CCCBE in module 'TextCapture.dll'. Read of address 00000000.просьба ткнуть носом - с dll полный профан я
-
> ivanoff (26.08.09 04:13) [6]
> вроде то, даже обрадовался
Откуда это? По ссылке [5]? :(
Во-первых, GetWindowText работает с окнами, TLabel окна не имеет. Во-вторых, PChar должен указывать на буфер, распределенный в приложении, например, buf: array [0..255] of Char. И, в-третьих, при таких базовых знаниях можно смело полагать, что получить текст из чужого TLabel невозможно.
-- Regards, LVT.
-
Sleep(INFINITE) - это сильно.
-
> Сергей М. © (26.08.09 09:17) [8]
> Sleep(INFINITE) - это сильно.
Поэзия :)
Это тоже из [5]?
-- Regards, LVT.
-
> Это тоже из [5]?
Угу. Шедевр) Заглянул из любопытства, а там .. Черт ногу сломит как там понахреноверчено ..
-
> > вроде то, даже обрадовался > > Откуда это? По ссылке [5]? :( > > Во-первых, GetWindowText работает с окнами, TLabel окна > не имеет.
а ведь Label-то видит - вот и обрадовался, есть от чего плясать, тока там много всего разбираюсь чего надо, чего не надо .... но как говорил с DLL не работал
- а я и не говорил что в этой области знания у меня большие - чтаю, просвесщаюсь, но пока недопер - вот и прошу чтоб нормальным а не литературным языком объяснили в чем трабл или как правельно делать надо
-
> ivanoff (26.08.09 13:22) [11]
> а ведь Label-то видит
Значит, это не TLabel, а TStaticText. Класс окна выяснял?
Ну, или там не GetWindowText. Хотя, исходный образчик, судя по всему, для дела не пригоден.
> не литературным языком объяснили в чем трабл
Нелитературным нельзя, забанят.
> или как правельно делать надо
Конкретно спрашивай, что осталось непонятым.
-- Regards, LVT.
-
> а ведь Label-то видит
Что значит "видит" ? Прошу чтоб нормальным а не литературным языком объяснили)
И еще прошу, чтоб нормальным а не литературным языком объяснили, зачем тут нужен глобальный хук, если известен конкретный процесс и конкретное окно с конкретным лейблом)
-
есть прога которая принимает некоторые данные от своей серверной части в зашифрованном виде и визуализирует посредством Label
задача получить и использовать инфу которую ставят в те самые Label
"они" не хотят делится этой инфой поэтому надо выдергиватить из их проги
> зачем тут нужен глобальный хук, если известен конкретный > процесс и конкретное окно с конкретным лейблом)
а мне всеравно как лишь бы данные из Label получить
> Что значит "видит" ?
я сделал тестовую программу положил там Label ... так как брал текст из TEdit, к примеру из TLabel не берет ... с примером из [5] - берет
> Конкретно спрашивай, что осталось непонятым.
так как тока разбираюсь с DLL не пойму че не так испаравил дабы по [5] техт получить а не рисовать сверху
цитата из нета "Выдрать текст из Label'a можно, но для этого придется перехватывать TextOutW, так как это так сказать последняя инстанция, когда текст ещё существует в своем состоянии текста"
-
> ivanoff (26.08.09 14:52) [14] > > есть прога
Дельфийская ? Ты уверен в этом ? Ты уверен что это именно TLabel, а не какой-либо иного класса контрол ?
> мне всеравно как лишь бы данные из Label получить
Пример, который ты мусолишь, устанавливает хук во все GUI-процессы. Не исключено (и оч даже вероятно), что среди этих процессов может оказаться более чем один процесс с контролом интересующего класса. И тут к тебе возникает вопрос: как ты намерен идентифицировать нужный тебе процесс, если ты установилл глоб.хук, поскольку тебе "всеравно" ?
-
> Дельфийская ? Ты уверен в этом ? Ты уверен что это именно > TLabel
CBuilder
> "всеравно"
важно получить инфу с Label-а конкретного окна (от которого знаю заголовок) который находится на панелке (Panel), как - не важно главное чтоб правельно
...не заню с какой стороны подойти, вот и кидаюсь из стороны в сторону и мучаю всех вопросами
-
Отсюда следует, что следует ставить локальный хук в процесс, создавший этот лейбл.
> не заню с какой стороны подойти
У тебя есть заголовок окна, в котором отрисовывается искомый лейбл. Для простоты положим, что текст этого заголовка уникален среди заголовков всех окон тек.десктопа. 1. Ищешь хэндл окна по заданному заголовку. 2. Получаешь ID треда, создавшего окно - см. GetWindowThreadProcessId 3. Устанавливаешь локальный (!!!) хук на этот тред - см. SetWindowsHookEx, тип хука выбираешь, например, WH_GETMESSAGE 4. Посылаешь окну сообщение WM_NULL - см. PostMessage() При этом в АП целевого процесса будет внедрена DLL, указанная в п.3 В процедуре инициализации этой DLL перехватываешь ф-цию TexOut (до кучи и все прочие, выводящие текст, фигурирующие в [5]) 5. В теле подмененных ф-ций извещаешь любым удобным способом (например, SendMessage) свой процесс о том, что целевой процесс для вывода некоего текста вызвал такую-то перехваченную тобой ф-цию с такими-то параметрами, в частности с параметрами-координатами, с которыми выводится текст. Остается только сравнить координаты с теми, в которых расположен искомый лейбл - и все, задача решена.
-
> так как тока разбираюсь с DLL не пойму че не так испаравил > дабы по [5] техт получить а не рисовать сверху
Ну во первых заменить wParam: word; на правильное значение, во вторых убрать ненуный слип, втретьих убрать мемлик GDI ресурсов, разрушая в нужное время dtc, , в четвертых начать таки возвращать в MessageProc правильный результат, а не ноль, ну и заменить процедуры отрисовки dtc.Rectangle(300, 3, 900, 20);
dtc.TextOut(305, 5, Copy(Str, 0, Count)); На отправку строки Str своему приложению
-
Сейчас последует "Вы, ...., не умничайте - вы код давайте !!"
|