Вот такой вопрос появился к гуру дельфей

Мне необходимо получить доступ к компанентам на форме, но на форме чужего приложения!!! В особенности к их свойствам и тем более в особености dbgrid !

Мож кто делал это подскажите если нет то ногами сильно бить не надо

Сиба заранее всем кто откликнится

Что именно вы хотите сделать?

Никак.

Смотря к каким свойсвам, если что-то типа размера, то, наерное можно. Но это уже из серии про WinAPI

Виндозными сообщениями разве что... Типа WM_GETTEXT

Цитата(December @ 14.7.2005, 09:32)

Виндозными сообщениями разве что... Типа WM_GETTEXT

Вряд ли DBGrid на это откликнется.
Информацию из него так просто не вытащить.
Можно только его память просканировать, но это глупая затея.
Проще самому подключиться к той же базе и забрать данные.
А из чужого грида вытащить практически нереально.

дя ... почему перенесли в системные ??? да ладно

Как поменять размер компонента или заголовок (типа у формы) это я знаю а вот как добраться к внутренним свойствам (DBGrid не совсем удочное лучше бы к DataSources и его внутреностям типа полей и т.п. )

А общий смысл такой: есть прога работает со спец оборудованием, в DBGrid выдает свое состояние по целой куче параметров, и вот необходимо из нее выдащить все эти записи и поместить в файл , допустим в эксель, но эт не важно пока. Самое главное стянуть эти данные из работающей программы !!!!
Добавлено @ 10:51

Цитата(Snowy @ 14.7.2005, 09:37)

Цитата(December @ 14.7.2005, 09:32) Виндозными сообщениями разве что... Типа WM_GETTEXT Вряд ли DBGrid на это откликнется. Информацию из него так просто не вытащить. Можно только его память просканировать, но это глупая затея. Проще самому подключиться к той же базе и забрать данные. А из чужого грида вытащить практически нереально.

Как просканить память компонента в другом процессе?

А че по хенделу окна нельзя определить где он в памяти валяеться???

Это сообщение отредактировал(а) Girder - 14.7.2005, 11:41

Цитата(Romikgy @ 14.7.2005, 11:29)

А че по хенделу окна нельзя определить где он в памяти валяеться???

Нет. Нельзя. Хэндл окна сам по себе, память процесса сама по себе.
Нет никакой связи между хэндлом окна и используемой процессом памятью.
Физически память грида может быть раскидана где угодно. Часть в середине, часть после текста мемополя соседней формы, часть вообще, где память свободная нашлась, туда и воткнулась.
Причем все это в любом порядке.
Дохлый номер.

Цитата(Snowy @ 14.7.2005, 11:38)

Цитата(Romikgy @ 14.7.2005, 11:29) А че по хенделу окна нельзя определить где он в памяти валяеться??? Нет. Нельзя. Хэндл окна сам по себе, память процесса сама по себе. Нет никакой связи между хэндлом окна и используемой процессом памятью. Физически память грида может быть раскидана где угодно. Часть в середине, часть после текста мемополя соседней формы, часть вообще, где память свободная нашлась, туда и воткнулась. Причем все это в любом порядке. Дохлый номер.

И че нет никакого выхода ?

Цитата(Romikgy @ 14.7.2005, 11:40)

И че нет никакого выхода ?

Читай третий пост:

Цитата(Snowy @ 14.7.2005, 09:13)

Никак.

Плохо

А как тогда работают все проги просмотра рессурсов? и тем более прога DeDe ???

Цитата(Romikgy @ 14.7.2005, 12:09)

А как тогда работают все проги просмотра рессурсов?

Они смотрят ресурсы exeшника, а не память работающего процесса.

Цитата(Romikgy @ 14.7.2005, 12:09)

и тем более прога DeDe ???

Она тоже смотрит ресурсы и код ехешника.

Работающий процесс их не интересует.
Этим занимаются программы типа ArtMoney. Но и она не дает набор информации, а всего лишь ищет понравившийся тебе байтик среди кучи мусора в памяти процесса.

Цитата(Snowy @ 14.7.2005, 12:14)

Цитата(Romikgy @ 14.7.2005, 12:09) А как тогда работают все проги просмотра рессурсов? Они смотрят ресурсы exeшника, а не память работающего процесса. Цитата(Romikgy @ 14.7.2005, 12:09) и тем более прога DeDe ??? Она тоже смотрит ресурсы и код ехешника. Работающий процесс их не интересует. Этим занимаются программы типа ArtMoney. Но и она не дает набор информации, а всего лишь ищет понравившийся тебе байтик среди кучи мусора в памяти процесса.

А разве ехе-шник не проецируется в память при выполнении??????

Цитата(Romikgy @ 14.7.2005, 13:27)

А разве ехе-шник не проецируется в память при выполнении??????

Не всегда.
Кроме того, тебе нужен не ехешник, а данные полученные в процессе работы.
А они в ехешнике не хранятся.
Память для них выделяется динамически и винда распихивает эти данные куда попало, где есть свободное место. Сам понимаешь, что при 2-х разных запусках это "куда попало" будет в совершенно разных местах.

Да я это понимаю, но в памяти куда кидается образ ехе-шника должны быть ссылки на это куда попало, я прав???? Как увидеть и возюзать эти ссылки такое реально?

Цитата

такое реально?

Только наугад. Ты не сможешь сделать этого.

Цитата(Romikgy @ 14.7.2005, 14:16)

Как увидеть и возюзать эти ссылки такое реально?

Нет. Неисповедимы пути виндовые.
Мы делаем запрос "Дай память" она дает.
Но все хвосты идут в процесс. Другому эти ссылки неведомы.
И наличие ехешника тут никак не поможет.

Цитата(Rrader @ 14.7.2005, 16:19)

Цитата такое реально? Только наугад. Ты не сможешь сделать этого.

Это почему не смогу, что мне не даст?
Добавлено @ 16:54

Цитата(Snowy @ 14.7.2005, 16:24)

Цитата(Romikgy @ 14.7.2005, 14:16) Как увидеть и возюзать эти ссылки такое реально? Нет. Неисповедимы пути виндовые. Мы делаем запрос "Дай память" она дает. Но все хвосты идут в процесс. Другому эти ссылки неведомы. И наличие ехешника тут никак не поможет.

Ну дык мы же просим память именно процесса!!!! А там ссылки есть

Второе я так подумал если прицепить к процессу свой поток (удаленно) и из него запросить все структуры ( только бы знать эти структуры ) , такой подход реален?

Да все в принципе реально. Просто... смотря что тебе нужно.

Цитата(Alex @ 14.7.2005, 10:01)

Что именно вы хотите сделать?

?

Цитата(Girder @ 15.7.2005, 02:30)

Да все в принципе реально. Просто... смотря что тебе нужно. Цитата(Alex @ 14.7.2005, 10:01) Что именно вы хотите сделать? ?

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

вот, наткнулся нечайно
http://www.xakep.ru/post/27145/default.asp

Не поможет. Из окна вытащить текст не сложно.
А вот из таблицы...
13 больших разниц.

Цитата(Snowy @ 18.7.2005, 13:20)

Не поможет. Из окна вытащить текст не сложно. А вот из таблицы... 13 больших разниц.

В чем разница то????

Я вот начал экспериментировать, и наткнулся на то , что все компоненты тобишь (tedit, tdbgrid ....) это указатели !!!! А вот если попробовать через внутренюю структуру компонента/класса добратся до необходимых данных ?
Добавлено @ 14:14

Цитата(dsergey @ 18.7.2005, 13:12)

вот, наткнулся нечайно http://www.xakep.ru/post/27145/default.asp

Сиба , но эт чуть не то

Цитата(Romikgy @ 18.7.2005, 14:05)

В чем разница то????

В том, что у грида свойство Text не используется. И ничего внятного на GetText он не даст.

Цитата(Romikgy @ 18.7.2005, 14:05)

компоненты тобишь (tedit, tdbgrid ....) это указатели !!!!

Кто бы мог подумать
Я тебе даже больше скажу: и большинство полей у них тоже указатели.
Причем указатели на приватные функции, которые не есть данные.
А данные грида находятся в списке указателей, которые ссылаются на указатели на данные до которых добраться просто нереально, ибо они закрыты и доступ к ним осуществляется через интерфейсы компонента, которые ты не сможешь юзать из стороннего процесса.
Лучше поверь на_слово. Не выйдет.

Цитата(Snowy @ 18.7.2005, 18:00)

Цитата(Romikgy @ 18.7.2005, 14:05) В чем разница то???? В том, что у грида свойство Text не используется. И ничего внятного на GetText он не даст. Цитата(Romikgy @ 18.7.2005, 14:05) компоненты тобишь (tedit, tdbgrid ....) это указатели !!!! Кто бы мог подумать Я тебе даже больше скажу: и большинство полей у них тоже указатели. Причем указатели на приватные функции, которые не есть данные. А данные грида находятся в списке указателей, которые ссылаются на указатели на данные до которых добраться просто нереально, ибо они закрыты и доступ к ним осуществляется через интерфейсы компонента, которые ты не сможешь юзать из стороннего процесса. Лучше поверь на_слово. Не выйдет.

Насчет геттекст это понятно, хоть и обыдно

Одно интересно как все компоненты ссылаются по точке??? (поидее должен быть ^ если есть указатель) !?

И еще в какой внутреней переменной хранятся данные в дбгрид, которые отображаются???

Цитата(Romikgy @ 19.7.2005, 08:20)

поидее должен быть ^ если есть указатель

Это реализовано внутренними механизмами дельфи.
Программист работает с объектами, а внутренний механизм знает только стандартные типы переменных. Все остальное - ссылка. Но это только для дельфи. Для программиста это объект и должен он работать с ним, как с объектом, а не указатели

Цитата(Romikgy @ 19.7.2005, 08:20)

в какой внутреней переменной хранятся данные в дбгрид, которые отображаются???

Ни в какой. Там динамический список. Куча указателей, все разбросано, как винда пошлет.
Причем прямого обращения к нему ты не получишь, ибо все закрыто, а доступ только через системные методы класса.

Цитата(Snowy @ 19.7.2005, 09:25)

Программист работает с объектами, а внутренний механизм знает только стандартные типы переменных. Все остальное - ссылка. Но это только для дельфи. Для программиста это объект и должен он работать с ним, как с объектом, а не указатели

Интересно , но если честно как-то через ж... (извеняюсь) сделано

Цитата(Snowy @ 19.7.2005, 09:25)

Ни в какой. Там динамический список. Куча указателей, все разбросано, как винда пошлет. Причем прямого обращения к нему ты не получишь, ибо все закрыто, а доступ только через системные методы класса.

Я так полистал исходники, и так подумал , что доступ к динамическому списку можно будет получить( конечно если ОЧЕНЬ сильно постараться ) смысл здеся в другом ...

в дбгрид инфа попадает , только для видимой части, прав? Если да то мне не сильно подходит
Вопросец, а датасорец или ттайбл , туда все сразу попадает???

Цитата(Romikgy @ 19.7.2005, 17:14)

Интересно , но если честно как-то через ж... (извеняюсь) сделано

Сделано все правильно. Если у тебя структура на 2 мегабайта, а ты захочешь ее функции передать? Это нужно качать все 2 мега? Проще передать 4 байта указателя.

Цитата(Romikgy @ 19.7.2005, 17:14)

датасорец или ттайбл , туда все сразу попадает???

Нет. Все компоненты скрывают свои данные, предоставляя только интерфейсы для работы с ними.
Например, когда ты пишешь
Label1.Caption:='Му-Му';
То ты вовсе не присваиваешь капшену значение Му-Му, а вызываешь внутренний интерфейс класса, передавая ему строковой параметр.
В реале это компилится в
Label1.SetCaption('Му-Му');
Но если ты попробуешь написать именно так, то компилятор тебя пошлет, ибо данный метод скрытый.
Знаю, опять скажешь, что бред. Сам полез во внутреннюю реализацию.
Для интерфейса программиста все более, чем правильно. А внутрь лезть не надо.
Добро пожаловать в ООП - мир абстракции.

Цитата(Snowy @ 19.7.2005, 17:24)

Сделано все правильно. Если у тебя структура на 2 мегабайта, а ты захочешь ее функции передать? Это нужно качать все 2 мега? Проще передать 4 байта указателя.

Дык на мой взгляд былобы понятнее и организовать указателями с ^ , а не извращатся ( но только мое мнение )

Цитата(Snowy @ 19.7.2005, 17:24)

В реале это компилится в Label1.SetCaption('Му-Му'); Но если ты попробуешь написать именно так, то компилятор тебя пошлет, ибо данный метод скрытый.

И это понятно, но вопрос остается данные сразу влетают в ттабле или по надобности?

Цитата(Romikgy @ 19.7.2005, 17:32)

Дык на мой взгляд былобы понятнее и организовать указателями с ^ , а не извращатся ( но только мое мнение )

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

Цитата(Romikgy @ 19.7.2005, 17:32)

И это понятно, но вопрос остается данные сразу влетают в ттабле или по надобности?

По надобности.

Вот еще... один вариант :
PS: Вот только код не надо из под Delphi запускать

Код

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Memo1: TMemo;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} type  pMem=^TMem;  TMem=record   bAddr:DWord;   Size:DWord;  end; function GetPagesMemoryProcess32(pID:Cardinal):TList; var oProcess:Cardinal;     MemAddr:Cardinal;     MemInfo:_MEMORY_BASIC_INFORMATION;     i:integer;     m,t:pMem; begin  Result:=TList.Create;  if pID=0 then exit;  oProcess:=OpenProcess(PROCESS_QUERY_INFORMATION,false,pID);  if oProcess<>0 then   begin    MemAddr:=0;    while (VirtualQueryEx(oProcess,Pointer(MemAddr),MemInfo,SizeOf(_MEMORY_BASIC_INFORMATION))<>0) do     begin      MemAddr:=MemAddr+MemInfo.RegionSize;      if MemInfo.State=MEM_COMMIT then       begin        New(m);        m^.bAddr:=DWord(MemInfo.BaseAddress);        m^.Size:=MemInfo.RegionSize;        Result.Add(m);       end;      end;    CloseHandle(oProcess);   end;  for i:=Result.Count-1 downto 1 do   begin    m:=Result.Items[i];    t:=Result.Items[i-1];    if m^.bAddr=(t^.bAddr+t^.Size) then     begin      t^.Size:=t^.Size+m^.Size;      Dispose(m);      Result.Delete(i);     end;   end; end; function GetWinControl(const ClassName:string; WidthComponent,SeekWidth:DWord; var w:TWinControl):Boolean; var i:integer;     a:DWord;     m:pMem;     tw:TWincontrol;     PMP:TList; begin  Result:=false;  PMP:=GetPagesMemoryProcess32(GetCurrentProcessID());   try   for i:=0 to PMP.Count-1 do    begin     m:=PMP.Items[i];     for a:=m^.bAddr to (m^.bAddr+m^.Size-4) do      if PDWord(a)^=WidthComponent then       begin        try         tw:=Pointer(a+SeekWidth);         if AnsiCompareText(tw.ClassName,ClassName)=0 then          begin           w:=tw;           Result:=true;           exit;          end;        except        end;       end;    end;  finally   for i:=PMP.Count-1 downto 0 do    begin     m:=PMP.Items[i];     Dispose(m);    end;   PMP.Free;   end; end; procedure TForm1.Button1Click(Sender: TObject); var pW,pS:Pointer;     w:TWinControl; begin  pW:=w;  pS:[email protected];  Memo1.Lines.Clear;  Memo1.Lines.Add('Лабуда... лабуда... лабуда');  if GetWinControl(Memo1.ClassName,Memo1.Width,DWord(pW)-DWord(pS),w) then   begin    Caption:=TMemo(w).Text;   end; end; end.

PS: Но для такого решения... тебе надо будет много DLL под каждую вариации: Исходники+Компилятор(и настройки)

Цитата(Girder @ 21.7.2005, 12:13)

PS: Вот только код не надо из под Delphi запускать

Почему ????

Код интересен

Цитата(Romikgy @ 21.7.2005, 14:34)

Почему ????

Можеш замучиться исключения ловить

Откуда им взяться то ? вроде код нормальный, и очень прикольный ... щаз сижу разбираюсь с ним
Добавлено @ 13:49
Кстати , можно ли определит это twincomponent или эта своя область какаято????

Есть еще одна шизовая идея!!!
можно посылать собщения этому гриду , по типу клавиша вниз, клавиша вверх, перед этим выделив ячейку 0,0 и посылая на каждой ячейке wm_copy а скажем в свой грид уже делать обычный paste ...
думаю это должно прокатить, но есть два не достатка!!!
1: по времени долго, где-то 20-200 мс
2: если грид большой то вовремени вытаскивания данных зверь может выбрать другу ячейку, но это исправимо кликом на ячейку 0,0 перед каждым "вниз, вверх"!!!

зы... я такое даже кое-где применял, тока не с гридами!!! работает!!!

An application sends the WM_COPY message to an edit control or combo box to copy the current selection to the clipboard in CF_TEXT format.
Перевести надо ????

ЗЫ и не знаю как в других , но в требуемом мне приложении скопировать в буфер из грида нифига не удается

Есть способ получить текст из DBGrid! Проделайте такой код:

Код

Procedure TForm1.Button1Click(Sender: TObject); Var   Buf: Array[1..1024] Of Char;   DBGridEdit: THandle; Begin   DBGridEdit := FindWindowEx(FindWindowEx(FindWindow(NIL,     '<Заголовок чужой формы>'), 0, 'TDBGrid', NIL), 0, 'TDBGridInplaceEdit', NIL);   GetWindowText(DBGridEdit, @Buf, SizeOf(Buf));   Form1.Caption := StrPas(@Buf); End;

Теперь выделите левую верхнюю ячейку и нажмите на кнопку!

Это сообщение отредактировал(а) Rrader - 28.7.2005, 15:24

Цитата(Romikgy @ 28.7.2005, 14:28)

An application sends the WM_COPY message to an edit control or combo box to copy the current selection to the clipboard in CF_TEXT format. Перевести надо ???? ЗЫ и не знаю как в других , но в требуемом мне приложении скопировать в буфер из грида нифига не удается

почему??? если потому что стоит свойство о том что нельзя редактировать поля , то можно свойство поменять...
me_set ...... дальше не помню как... и ипослать его как 1 !!!

а еще лучше пользоваться советом от Rrader`a тока он также робить не будет я думаю... хотя смотреть надо...

Это сообщение отредактировал(а) ScriptkidY - 28.7.2005, 23:28

Цитата(Rrader @ 28.7.2005, 15:21)

Теперь выделите левую верхнюю ячейку и нажмите на кнопку!

Ну и нажал ... ну и ничего
Что это за зверь 'TDBGridInplaceEdit'????

Цитата(ScriptkidY @ 28.7.2005, 23:25)

почему??? если потому что стоит свойство о том что нельзя редактировать поля , то можно свойство поменять... me_set ...... дальше не помню как... и ипослать его как 1 !!!

За совет сиба , но все таки WM_COPY message to an edit control or combo box , тобишь это сообщение передается для эдитов и комбобоксов так написано и плюс должно быть выделено

Цитата(ScriptkidY @ 28.7.2005, 23:25)

а еще лучше пользоваться советом от Rrader`a тока он также робить не будет я думаю... хотя смотреть надо...

Уже посмотрел , не работает
Вот куда смотреть ?

Цитата

Ну и нажал ... ну и ничего Что это за зверь 'TDBGridInplaceEdit'????

Все работает! А этот зверь - это Edit, представляющий каждую ячейку! И с ним можно производить те же операции, что и с TEdit!

Это сообщение отредактировал(а) Rrader - 29.7.2005, 15:02

Не знаю как оно у тя работает, я уже даже энум по окну сделал нету больше никаких окон и
TDBGridInplaceEdit не находит
У тя Дельфя какая????

Цитата

TDBGridInplaceEdit

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

Цитата(Rrader @ 29.7.2005, 15:35)

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

Вот только сейчас с этим разобрался
Да , это все хорошо но что делать если вся колонка стоит readonly?

1. подключитесь к процессу
2. исп. FindControl или FindVCLWindow

Это сообщение отредактировал(а) Girder - 2.8.2005, 10:28

Цитата

подключитесь к процессу

Это и так понятно, но рассматриваем все варианты

Цитата

исп. FindControl или FindVCLWindow

Это что за звери, где о них почитать??
Добавлено @ 16:49
Да и пример бы показал (если есть )

Цитата(Romikgy @ 1.8.2005, 16:48)

Цитата подключитесь к процессу Это и так понятно, но рассматриваем все варианты Цитата исп. FindControl или FindVCLWindow Это что за звери, где о них почитать?? Добавлено @ 16:49 Да и пример бы показал (если есть )

это не звери, достаточно написать их и нажать F1.
Пример писать желания нет.

Кстати, разруливая непонимание - 1 и 2, это не варианты, а последовательность.

У меня дельфи 3 и мсдн , ни там ни там Ф1 не помогает найти зверей

Цитата(Romikgy @ 2.8.2005, 08:42)

У меня дельфи 3 и мсдн , ни там ни там Ф1 не помогает найти зверей

понятно...
Не уверен, но в Д3 тоже должно быть что-то похожее.
Попробуй поискать в исходниках делфи