Re[6]: Проблема с получением текста из другого окна. - WIN API

Всем добрый день! У меня стоит задача получить текст коммандной строки автокада. Нашёл окно ком строки посылаю ему сообщение WM_GETTEXT приходит всё кроме 2ух последних строк....

делаю примерно следующие

function GetAcadCmdLine(AcadWnd:HWND):WideString ; stdcall; 
    var cmdText:array [0..15999] of Char;//это конечно не красиво.... но пока так 
    //*************************************************************** 
    function EnumChildProc(Wnd:HWND;lParam:LongInt):boolean; stdcall; 
        var wndText:array [0..15999] of Char; 
    begin 
        if lParam<>0 then 
            Result:=false 
        else 
        begin 
            //SendMessage(Wnd,WM_GETTEXT,1600,integer(@wndText)); 
            //if (Pos(' ',AnsiUpperCase(wndText))>0)then 
            GetWindowText(Wnd,wndText,255); 
            if (AnsiContainsText(wndText,'MountTam')) then 
                CommandWnd:=Wnd; 
            Result:=true; 
        end; 
    end; 
    //*************************************************************** 
begin 
    CommandWnd:=0; 
    EnumChildWindows(AcadWnd,@EnumChildProc,CommandWnd); 
    if CommandWnd<>0 then 
    begin 
        SendMessage(CommandWnd,WM_GETTEXT,16000,LPARAM(integer(@cmdText))); 
        Result:=cmdText; 
    end; 
end;

заранее спасибо!!!!

Добавлена разметка и табуляция — Кодт

Это многостроковый эдит? Из него текст, вроде, получают по строкам.

1. Получается количество строк: SendMessage(hEdit, EM_GETLINECOUNT, 0, 0)
2. Для каждой строки получается её длина: SendMessage(hEdit, EM_LINELENGTH, i, 0)
3. Получается значение каждой строки: SendMessage(hEdit, EM_GETLINE, i, (LPARAM)dest_buf)

Здравствуйте, Nuzhny, Вы писали:

N>Это многостроковый эдит? Из него текст, вроде, получают по строкам.

N>1. Получается количество строк: SendMessage(hEdit, EM_GETLINECOUNT, 0, 0)
N>2. Для каждой строки получается её длина: SendMessage(hEdit, EM_LINELENGTH, i, 0)
N>3. Получается значение каждой строки: SendMessage(hEdit, EM_GETLINE, i, (LPARAM)dest_buf)

Да там както не понятно, например содержимое командной строки следующее

Файл настройки загружен успешно. Группа настройки: ACAD
Файл настройки загружен успешно. Группа настройки: CUSTOM
Выполняется регенерация модели.
Утилиты меню AutoCAD загружены.
Команда: КОМСТР

Функция возвращает следующее

'Файл настройки загружен успешно. Группа настройки: ACADФайл настройки загружен успешно. Группа настройки: CUSTOMВыполняется регенерация модели.'

получается что 2 последние строки туда не попадают.
Спасибо за совет буду пробывать!!

Здравствуйте, Answer_i3, Вы писали:

A_>GetWindowText(Wnd,wndText,255);

Гм... А может, там больше, чем 255 символов ?

Здравствуйте, Pavel Dvorkin, Вы писали:

PD>Гм... А может, там больше, чем 255 символов ?

Судя по примеру, это не важно. В данном случае происходит поиск окна — он завершается успешно.

Здравствуйте, Nuzhny, Вы писали:

N>Здравствуйте, Pavel Dvorkin, Вы писали:

PD>>Гм... А может, там больше, чем 255 символов ?

N>Судя по примеру, это не важно. В данном случае происходит поиск окна — он завершается успешно.

Именно так, тут я ищу окно по заголовку...
Nuzhny последовал вашему совету, чтото странно у меня тут получается

cnt:=SendMessage(CommandWnd, EM_GETLINECOUNT, 0,0 );
возвращает 0, 0_о , хотя в хелпе написано что SendMessage(CommandWnd, EM_GETLINECOUNT, 0,0 ); возвращает значение не меньше 1.

Тогда данное окно не edit. Попробуй узнать название класса окна (GetClassName) — узнаешь точно с чем имеешь дело.

Здравствуйте, Nuzhny, Вы писали:

N>Тогда данное окно не edit. Попробуй узнать название класса окна (GetClassName) — узнаешь точно с чем имеешь дело.

получаю пустую строку.. посмотрел утилиткой получил следующее Afx:00400000:8:00010013:00000000:00000000

Здравствуйте, Answer_i3, Вы писали:

A_>получаю пустую строку.. посмотрел утилиткой получил следующее Afx:00400000:8:00010013:00000000:00000000

Мда. Какой-то MFC'шный контрол. Ещё бы узнать точно какой...

"Answer_i3" <72898@users.rsdn.ru> сообщил/сообщила в новостях следующее: news:2972843@news.rsdn.ru...
> Всем добрый день! У меня стоит задача получить текст коммандной строки автокада. Нашёл окно ком строки посылаю ему сообщение WM_GETTEXT приходит всё кроме 2ух последних строк....
>
> делаю примерно следующие
>
> function GetAcadCmdLine(AcadWnd:HWND):WideString ; stdcall;
> var cmdText:array [0..15999] of Char;//это конечно не красиво.... но пока так
> //***************************************************************
> function EnumChildProc(Wnd:HWND;lParam:LongInt):boolean; stdcall;
> var wndText:array [0..15999] of Char;
> begin
> if lParam<>0 then
> Result:=false
> else
> begin
> //SendMessage(Wnd,WM_GETTEXT,1600,integer(@wndText));
> //if (Pos(' ',AnsiUpperCase(wndText))>0)then
> GetWindowText(Wnd,wndText,255);
> if (AnsiContainsText(wndText,'MountTam')) then
> CommandWnd:=Wnd;
> Result:=true;
> end;
> end;
> //***************************************************************
> begin
> CommandWnd:=0;
> EnumChildWindows(AcadWnd,@EnumChildProc,CommandWnd);
> if CommandWnd<>0 then
> begin
> SendMessage(CommandWnd,WM_GETTEXT,16000,LPARAM(integer(@cmdText)));
> Result:=cmdText;
> end;
> end;
>
> заранее спасибо!!!!
WM_GETTEXT может и не работать через границы процессов. Нужно внедрять DLL в чужой процесс чтобы гарантировано вынуть текст.