Delphi. Трюки и эффекты

Листинг 7.28.

Составление списка параметров раздела реестра

procedure TForm1.keysChange(Sender: TObject; Node: TTreeNode);

var

reg: TRegistry;

valueItem: TListItem;

item: TTreeNode;

valueNames: TStrings;

i: Integer;

begin

item := keys.Selected;

if item <> nil then

begin

//Зачитаем содержимое выбранного раздела в ListView (values)

values.Clear;

reg := TRegistry.Create;

reg.RootKey := GetRootKey(item);

if reg.OpenKeyReadOnly(GetKeyPath(item)) then

begin

valueNames := TStringList.Create;

//Получение списка названий параметров

reg.GetValueNames(valueNames);

//Добавление каждого параметра в список

for i := 0 to valueNames.Count – 1 do

begin

valueItem := values.Items.Add;

if valueNames[i] = \'\' then

valueItem.Caption := \'<По умолчанию>\'

else

valueItem.Caption := valueNames[i];

//Получение типа и значения параметра

case reg.GetDataType(valueNames[i]) of

rdUnknown:

valueItem.SubItems.Add(\'Неизвестно\');

rdString, rdExpandString:

begin

valueItem.SubItems.Add(\'Строка\');

valueItem.SubItems.Add(reg.ReadString(valueNames[i]));

end;

rdInteger:

begin

valueItem.SubItems.Add(\'Число\');

valueItem.SubItems.Add(IntToStr(

reg.ReadInteger(valueNames[i])));

end;

rdBinary:

valueItem.SubItems.Add(\'Двоичные данные\');

end;

end;

valueNames.Free;

reg.CloseKey;

end;

reg.Free;

end;

end;

Процедура, приведенная в листинге 7.28, не считывает значения двоичных параметров. Так сделано для упрощения этого и так громоздкого фрагмента кода. В считывании значений двоичных параметров на самом деле нет ничего сложного: нужно лишь заранее определить размер данных (метод GetDataSize) и создать буфер соответствующего размера.

Глава 8 Обмен данными между приложениями

• СообщениеWM_COPYDATA

• Использованиебуфераобмена

• Проецируемыевпамятьфайлы

Организация обмена данными между приложениями, а именно между процессами этих приложений, является достаточно трудоемкой задачей. Архитектура Win32 подразумевает максимальную изоляцию выполняющихся приложений друг от друга. Каждое приложение исполняется в своем виртуальном адресном пространстве, которое изолировано и не имеет доступа к памяти других процессов приложений. Но довольно часто возникает необходимость передачи данных из одного выполняющегося процесса в другой. Это вызвано тем, что функциональные приложения и пакеты программ исполняются не в одном процессе, поэтому для нормальной работы используются основные возможности межпроцессного взаимодействия. Наиболее простым, понятным, но не всегда удобным является передача данных с использованием сообщения WM_COPYDATA. Также для передачи данных между приложениями широко используются проецируемые в память файлы (Mapping Files). Существуют и такие высокоуровневые средства, как буфер обмена или уже рассмотренная технология СОМ. Перечисленные способы будут подробно рассматриваться в этой главе. За рамки этой книги выходит рассмотрение способа передачи данных через каналы (трубы, или Pipe), который считается устаревшим и по этой причине не вызывает интереса.

8.1. Сообщение WM_COPYDATA

Сообщение WMCOPYDATA позволяет приложениям копировать данные между их адресными пространствами. Для передачи сообщения должна использоваться функция синхронной отправки сообщения SendMessage, а не PostMessage, которая асинхронным образом передает сообщение. Данные, предназначенные для передачи, не должны содержать указателей или других ссылок на объекты, недоступные для программы, принимающей эти данные. Рассмотрим параметры, передаваемые с сообщением WM_COPYDATA:

...

//дескриптор передающего окна

wParam = (WPARAM) (HWND) hwnd;

//указатель на структуру с данными

lParam = (LPARAM) (PCOPYDATASTRUCT) pcds;