Как получить данные из TVirtualStringTree, зная его Handle?

[fedorov2012]

Как прочитать данные первой колонки из TVirtualStringTree, зная его Handle. Для ListView делал так (правда в чужом процессе):

procedure
  GetSnapshotListView(hwndRemoteSysListView: HWND);
var
  i: integer;
begin
 // Получаем количество элементов
  nItemCount := ListView_GetItemCount(hwndRemoteSysListView);
  // Получаем ID процесса, которому принадлежит найденное окно
  GetWindowThreadProcessId(hwndRemoteSysListView, &dwProcessID);
  if dwProcessID = 0 then ExitProcess(GetLastError);
  // Открываем процесс
  hProcess := OpenProcess(PROCESS_ALL_ACCESS, TRUE, dwProcessID);
  if hProcess = 0 then ExitProcess(GetLastError);
  // Выделяем в нем память под текстовый буфер
  pszText := VirtualAllocEx(hProcess, nil, cchTextMax,
    MEM_COMMIT or MEM_TOP_DOWN, PAGE_READWRITE);
  if GetLastError <> 0 then ExitProcess(GetLastError);
  // Выделяем в нем память под структуру LVITEM
  plviRemoteLVItem := VirtualAllocEx(hProcess, nil, SizeOf(LV_ITEM),
   MEM_COMMIT or MEM_TOP_DOWN, PAGE_READWRITE);
  if GetLastError <> 0 then ExitProcess(GetLastError);
  // Заполняем структуру
  ZeroMemory(@lviRemoteLVItem, SizeOf(LV_ITEM));
  lviRemoteLVItem.mask := LVIF_STATE or LVIF_TEXT;
  lviRemoteLVItem.pszText := pszText;
  lviRemoteLVItem.cchTextMax := cchTextMax;
  // Пишем ее в память удаленного процесса
  if not WriteProcessMemory(hProcess, plviRemoteLVItem, @lviRemoteLVItem,
  SizeOf(LV_ITEM), dwBytesWriten) then ExitProcess(GetLastError);
  // Получаем текст со всех элементов
  for I := 0 to nItemCount - 1 do
  begin
  // Отправляем сообщение с указателем на выделенный буфер
  nTextLength := SendMessage(hwndRemoteSysListView, LVM_GETITEMTEXT,
    I, Integer(plviRemoteLVItem));
  // Читаем результат
  ZeroMemory(@svText, cchTextMax);
  ReadProcessMemory(hProcess, lviRemoteLVItem.pszText,
    @svText[1], nTextLength, dwBytesWriten);
    Writeln(PChar(@svText[1]));
  end;
  // Освобождаем ранее выделенную память
  VirtualFreeEx(hProcess, pszText, 0, MEM_RELEASE);
  VirtualFreeEx(hProcess, plviRemoteLVItem, 0, MEM_RELEASE);
  // Закрываем описатель процесса
  CloseHandle(hProcess);
end;

[Stilet]

Для этого нужно знать какими сообщениями она оперирует.
Откуда данные наполняют этот компонент известно?

[fedorov2012]

Сообщение от Stilet

Откуда данные наполняют этот компонент известно?

Не совсем понятен вопрос - просто внутри кода идет заполнение экземпляра TVirtualStringTree (как если бы мы заполняли ListView, TreeView)

[Stilet]

внутри кода идет заполнение экземпляра TVirtualStringTree

А откуда код берет эти данные? Из базы? Из файла? Из сети?
Что является источником данных для компонента?

[Человек_Борща]

Как прочитать данные первой колонки из TVirtualStringTree, зная его Handle.

Предположу, что никак. TVirtualStringTree вообще не компонент системы. И данныt там живут физически только на момент их получения из источника в GetText методе, т.е. PVirtualNode.Data.

[fedorov2012]

Сообщение от Человек_Борща

Предположу, что никак. TVirtualStringTree вообще не компонент системы. И данныt там живут физически только на момент их получения из источника в GetText методе, т.е. PVirtualNode.Data.

Но где то же эти данные висят в памяти - как достучаться до этого места?

[Человек_Борща]

Но где то же эти данные висят в памяти - как достучаться до этого места?

В том то и дело что никак Я же скал где это место. Каждый элемент дерева это PVirtualNode, у которого есть указатель на данные: PVirtualNode.Data. размер этих данных может быть абсолютно любым. И эти же данные могут прекращать существовать после первого вызова GetText.

[fedorov2012]

Сообщение от Человек_Борща

могут прекращать существовать после первого вызова GetText.

Если бы они прекращали существовать, то тогда откуда бы брались данные в случае скроллинга по VirtualStringTree?

[Человек_Борща]

Если бы они прекращали существовать, то тогда откуда бы брались данные в случае скроллинга по VirtualStringTree?

Создавались бы снова, заполняли компонент и сваливали дальше. Нефиг память занимать. Такое не исключено ибо вполне реализуемо.
В вашем коде, за вас большую часть работы делает система т.к. SysListView это системный компонент. Более того LV_ITEM по себе связан с колонками в предке, не смотря на наличие того же data.

У PVirtualNode нет ни Caption ни Subitems. Есть только Data. Да и то не факт, что там не PmyVData = class(PVirtualNode)

[fedorov2012]

Попробовал и так: руками выделил вручную все элементы, а затем программно послал это сообщение
и послал команду SendMessage(hwndRemoteVirtualString Tree, WM_COPY, 0, 0);
но в буфер ничего не попало, странно