например в чужое окно можно записать значение, а как прочесть из

← →
Zert (2005-10-11 08:16) [0]

например в чужое окно можно записать значение, а как прочесть из чужого окна?

procedure TForm1.Button5Click(Sender: TObject);
var
df : PChar;
begin

df := "55";

SendMessage(591438, WM_SETTEXT, 0, lParam(PChar(df)));
Edit1.Text := df;

end;

← →
Джо © (2005-10-11 08:19) [1]

Если ты это
> SendMessage(591438, WM_SETTEXT, 0, lParam(PChar(df)));

называешь "записать в чужое окно значение", то почему-бы не "прочитать из чужого окна значение" так
SendMessage(... WM_GETTEXT...)?

← →
TUser © (2005-10-11 09:01) [2]

GetWindowText

← →
Zert (2005-10-11 09:11) [3]

SendMessage(... WM_GETTEXT...)?
я бы не задавал вопрос если б это работало

← →
Zert (2005-10-11 09:25) [4]

procedure TForm1.Button1Click(Sender: TObject);

GetWindowText

не работает тоже, не читает, а SetWindowText не пишет,
вот SendMessage(591438, WM_SETTEXT, 0, lParam(PChar(df))); пишет

так пробовал GetWindowText:
var
df : PChar;
s2 : string;
begin

df := "55";
s2 := "55";

SetWindowText(590592, PChar(df) );
GetWindowText(590592, PChar(df) , 255 );
Edit2.Text := df;

end;

← →
Digitman © (2005-10-11 09:35) [5]

читай справку :

GetWindowText
This function cannot retrieve the text of an edit control in another application.

← →
Zert (2005-10-11 10:38) [6]

Digitman это TUser посоветовал.

что такая невыполнимая задача, что никто не знает как прочесть из чужого окна?
или может в конфу для начинающих данный пост спихнуть
а то такие вопросы задаю прям профи не удобно на них отвечать :)

все мы в чем то начинающие, вот так.

← →
capkoh © (2005-10-11 10:48) [7]

> GetWindowText
> This function cannot retrieve the text of an edit control
> in another application.

Не знаю, как насчет этой функции, но WM_GETTEXT с этим справляется легко. Естественно, если окно имеет Handle.

> SendMessage(591438, WM_SETTEXT, 0, lParam(PChar(df)));

Разве Handle можно так использовать? Неужели он всё время постоянен? Нет. Handle компонента при каждом запуске приложения разный. Для его получения см. FindWindow и EnumWindows, EnumChildWindows.

← →
Digitman © (2005-10-11 10:51) [8]

> Zert (11.10.05 10:38) [6]

> что такая невыполнимая задача

ну отчего ж невыполнимая ? выполнимая)

но для решения тех данных, которыми ты владеешь (известен только хэндл окна), недостаточно - нужно как минимум знать класс окна.. от этого и решение и сложность решения будет напрямую зависеть ..

← →
ShiFT (2005-10-11 11:15) [9]

procedure TForm1.Button5Click(Sender: TObject); var ndx : word; p : PChar; begin GetMem(p,256); ndx := SendMessage( 590592, WM_GETTEXTLENGTH, 0, 0); SendMessage( 590592, WM_GETTEXT, ndx, integer(p)); MessageBox( 0, p, "tmp", 0); end;
Проверено. Работает.

← →
Digitman © (2005-10-11 11:22) [10]

> ShiFT (11.10.05 11:15) [9]

вчитайся в [5]

там черным по белому написано про случай с EDIT-контролом.

> Проверено. Работает

работает, но лишь в частных случаях.

← →
han_malign © (2005-10-11 11:30) [11]

> ShiFT (11.10.05 11:15) [9]

GetMem(p,256); ndx := SendMessage( 590592, WM_GETTEXTLENGTH, 0, 0); SendMessage( 590592, WM_GETTEXT, ndx, integer(p));

> Проверено. Работает.

- ну-ну, а если длинна текста больше 256, что будет?
Можно даже не гадать - AV будет... И зачем вообще запрашивать длинну, если буфер от балды выделять?

← →
ShiFT (2005-10-11 11:36) [12]

> читай справку :
> GetWindowText
> This function cannot retrieve the text of an edit control
> in another application.

Справка для WM_GETTEXT

For an edit control, the text to be copied is the content of the edit control. For a combo box, the text is the content of the edit control (or static-text) portion of the combo box. For a button, the text is the button name. For other windows, the text is the window title. To copy the text of an item in a list box, an application can use the LB_GETTEXT message.

When the WM_GETTEXT message is sent to a static control with the SS_ICON style, the handle of the icon will be returned in the first four bytes of the buffer pointed to by lpszText. This is true only if the WM_SETTEXT message has been used to set the icon.

In a rich edit control, if the text to be copied exceeds 64K, use either the message EM_STREAMOUT or EM_GETSELTEXT

← →
han_malign © (2005-10-11 11:38) [13]

> вчитайся в [5]
> там черным по белому написано про случай с EDIT-контролом.

- где?

An application sends a WM_GETTEXT message to copy the text that corresponds to a window into a buffer provided by the caller.
.......................
Note, for non-text static controls this gives you the text with which the control was originally created, that is, the ID number.
.......................
For other windows, the text is the window title. To copy the text of an item in a list box, an application can use the LB_GETTEXT message.
.......................
When the WM_GETTEXT message is sent to a static control with the SS_ICON style, a handle to the icon will be returned in the first four bytes of the buffer pointed to by lParam. This is true only if the WM_SETTEXT message has been used to set the icon.
.......................
Rich Edit: If the text to be copied exceeds 64K, use either the EM_STREAMOUT or EM_GETSELTEXT message.
.......................
Windows 2000/XP: Sending a WM_GETTEXT message to a non-text static control, such as a static bitmap or static icon control, does not return a string value. Instead, it returns zero.

← →
ANB © (2005-10-11 11:41) [14]

WM_GETTEXT работает не всегда (она читает заголовок окна). А вот GetText() - почему то работает.

← →
Digitman © (2005-10-11 11:47) [15]

> ShiFT (11.10.05 11:36) [12]

речь идет о том, что интересующее автора окно - ЧУЖОЕ !

и процесс, создавший интересующее окно, соответственно, - ЧУЖОЙ !

и у этого ЧУЖОГО процесса - свое собственное виртуальное адресное пространство !

и адрес буфера, переданный lParam-параметром сообщения WM_GETTEXT, соответственно, должен быть адресом в ЧУЖОМ (а не СВОЁМ !) адресном пространстве !

так что думай головой, когда советы раздаешь а-ля "Проверено. Работает."

← →
Digitman © (2005-10-11 11:50) [16]

> han_malign © (11.10.05 11:38) [13]

> где?

известно где - в Караганде !)

речь шла про Get/SetWindowText, а не про WM_GET/SETTEXT

← →
ShiFT (2005-10-11 12:05) [17]

> Digitman © (11.10.05 11:50) [16]

Перечиай Первый и Второй Пост.
Где ты там увидел Get/SetWindowText?

← →
ShiFT (2005-10-11 12:07) [18]

Я проверял как раз в разных процессах.
У меня работало (и в Эдитах тоже).

Насчёт 256 символов Знаю.

← →
Digitman © (2005-10-11 12:11) [19]

> ShiFT (11.10.05 12:05) [17]

Перечитай [2] и [4] и тему вопроса.

Непосредственная отправка WM_GET/SETTEXT окну чужого приложения бессмысленна !

Смысл имеет лишь отправка такого сообщения именно при посредничестве Get/SetWindowText, и то - далеко не во всех, а лишь в ряде случаев .. в том самом ряде случаев, который оговорен разработчиками ОС как ряд допустимых случаев успешной работы этих ф-ций.

← →
ShiFT (2005-10-11 12:16) [20]

← →
ShiFT (2005-10-11 12:21) [21]

> Возвращается ровно 254 символа из 260.
из Эдита при использовании GetWindowText( Handle_из_Чужого_Эдита);

GetMem(p,256); ndx := SendMessage( h, WM_GETTEXTLENGTH, 0, 0); SendMessage( h, WM_GETTEXT, ndx+1, integer(p)); MessageBox( 0, p, "tmp", 0); MessageBox( 0, PChar( IntToStr( Length( p))), "tmp", 0);
При Этом Возвращаются все 260 символов.

> ShiFT (11.10.05 12:07) [18]
> проверял как раз в разных процессах.
> У меня работало

не выдумывай небылиц.

В lParam должно быть передано значение адреса в АП именно "чужого", а не "своего" процесса... т.е. того процесса, который создал окно и владеет им, а не того произвольно взятого процесса, который выполняет SendMessage().

В твоем же примере , который якобы "работает", переменная P после вызова GetMem() хранит адрес выделенного блока памяти в "своем", а не "чужом" процессе.

> Digitman © (11.10.05 12:26) [22]

WM_GET/SETTEXT, так же как и WM_COPYDATA умеют работать с разными адресными пространствами в разных процессах. Т.е. параметрами могут служить локальные адреса, винда все разрулит.
ЗЫ. У меня целый кусок проекта на этих сообщениях построен и все работает.

← →
ShiFT (2005-10-11 12:43) [24]

2 Digitman
Проверь.

program TestText; uses Windows, Messages; const ClsName : PChar = "classTMP"; appCapt : PChar = "TMP"; var pWnd : HWND; pMsg : TMsg; pCls : TWndClassEx; pCtrl : Array[1..1] of HWND; function WndProc( wnd: HWnd; msg: LongInt; wParam: wParam; lParam: lParam): LongInt; stdcall; begin Result := 0; case msg of wm_Destroy : begin PostQuitMessage( 0); Exit; end; else Result := DefWindowProc( wnd, msg, wparam, lparam); end; end; begin with pCls do begin cbSize := sizeof( pCls); style := cs_hredraw or cs_vredraw; lpfnWndProc := @WndProc; cbClsExtra := 0; cbWndExtra := 0; hInstance := HInstance; hIcon := LoadIcon (0, idi_Application); hCursor := LoadCursor( 0, idc_arrow); hbrBackground := COLOR_BTNFACE +1; lpszMenuName := nil; lpszClassName := ClsName; end; RegisterClassEx( pCls); pWnd := CreateWindowEx( 0, ClsName, "", ws_overlappedwindow, 100, 100, 250, 45, $0, 0, hInstance, nil); if pWnd = 0 then Halt; pCtrl[1] := CreateWindowEx( $0, "edit", "Text", ws_visible or ws_child or ws_border, 0, 0, 242, 18, pWnd, 0, hInstance, nil); SetWindowText( pWnd, appCapt); ShowWindow( pWnd, SW_SHOW); UpdateWindow( pWnd); while GetMessage( pMsg, 0, 0, 0) do begin TranslateMessage( pMsg); DispatchMessage( pMsg); end; end.

и

Program tmp; uses Windows, Messages, SysUtils; var ndx : word; p : PChar; h,h2: THandle; cls : PChar; begin h := FindWindow( "classTMP", "TMP"); if h = 0 then Halt(0); h2 := FindWindowEx( h, 0, "edit", nil); if h2 = 0 then Halt(0); GetMem( cls, 256); GetClassName( h2, cls, 256); MessageBox( 0, cls, "tmp", 0); ndx := SendMessage( h2, WM_GETTEXTLENGTH, 0, 0); GetMem( p, ndx+1); SendMessage( h2, WM_GETTEXT, ndx+1, integer(p)); MessageBox( 0, p, "tmp", 0); MessageBox( 0, PChar( IntToStr( Length( p))), "tmp", 0); end.

WM_SET(GET)TEXT, CB_GETLBTEXT, LB_GETTEXT и прочие, при обработке создают объект разделяемой памяти, в которую переписывают данные из структуры окна целевого процесса, после чего переписывают данные из этой разделяемой памяти в буфер вызывающего процесса.

По поводу объекта разделяемой памяти - согласен, ошибку признаю .. мне следовало бы уточнить этот важный момент перед своим утверждением.

например в чужое окно можно записать значение, а как прочесть из Найти похожие ветки