Получить данные из другой программы

[sazore]

Нашел вот код:

procedure TForm1.FormCreate(Sender: TObject);
var
  Service: ISWbemServices;
  SObject: ISWbemObject;
  ObjectSet: ISWbemObjectSet;
  Enum: IEnumVARIANT;
  TempObj: OleVariant;
  Value: Cardinal;
  PropSet: ISWbemPropertySet;
  PropEnum: IEnumVARIANT;
  SProp: SWbemProperty;
begin
  SWbemLocator1 := CoSWbemLocator.Create();
  Service := SWbemLocator1.ConnectServer('.', 'root\CIMV2', '', '', '',
    '', 0, nil);
  SWbemLocator1 := nil;
  SObject := Service.Get('Win32_Fan', wbemFlagUseAmendedQualifiers, nil);
  ObjectSet := SObject.Instances_(0, nil);
  Enum := (ObjectSet._NewEnum) as IEnumVARIANT;
  while (Enum.Next(1, TempObj, Value) = S_OK) do
  begin
    SObject := IUnknown(TempObj) as SWBemObject;
    PropSet := SObject.Properties_;
    PropEnum := (PropSet._NewEnum) as IEnumVARIANT;
    while (PropEnum.Next(1, TempObj, Value) = S_OK) do
    begin
      SProp := IUnknown(TempObj) as SWbemProperty;
      Memo2.Lines.Add(SProp.Name);
    end;
  end;
end;

Получает список свойств для Win32_Fan но как теперь из этих свойств получить нужную информацию (Имена устройств,rpm устройств)?

[Stilet]

Статейку мою не хочешь читать? А там это написано.

[sazore]

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

Статейку мою не хочешь читать? А там это написано.

читал, но что-то не разобрался...

[Stilet]

Тогда рано тебе получать такие данные.
Тебе будет проще нанять фрилансера.
Или изучай основы.

[sazore]

 WMIServices := CoSWbemLocator.Create.ConnectServer('.', 'root\cimv2','', '', '', '', 0, nil);
  Root  := WMIServices.ExecQuery('Select * FROM Win32_Fan','WQL', 0, nil);
  for I := 0 to Root.Count - 1 do
  begin
    Item := Root.ItemIndex(I);
      memo2.Lines.Add('DesiredSpeed                        '+VarToStr(Item.DesiredSpeed));
      memo2.Lines.Add('');
  end;

Вот вроде бы все правильно, но не чего не возвращает.

[sazore]

Что-то косячный какой-то этот WMI, весь день инет рыл по этому поводу и у всех он не работает. Как можно еще определить температуру и RPM куллеров?

[Stilet]

Ты ошибаешься. Он работает.
Безымянный.jpg
Только данные с кулера снять не всегда может. И зависит это скорее всего от самой материнской платы.

[sazore]

Прочитал в документации по АИДЕ что она может обмениваться информацией между приложениями, один из способов shared memory (совместно используемая память)

One of the most common ways to share information between Windows applications is shared memory. The
AIDA64 hardware monitoring module uses the shared memory “AIDA64_SensorValues”.
The shared memory content is a long string value ending in a 0x00 char, making it a classic PChar or char*.
The string is made of XML tags, but it is not a complete XML document. It includes all temperature, cooling
fan and voltage values AIDA64 can measure. Temperatures are always in Celsius, even if Fahrenheit is
selected in the Preferences menu. Sensor value labels are always displayed in English, they are not localized.
The buffer size (the size of the shared memory block) has to be at least 10 KB. A typical buffer size is around
1 to 3 KB, but for Abit MicroGuru 2005 based boards, for example, it can be a lot more.

В документации также имеется вот эта функция:

Const
sharedmem_name = 'AIDA64_SensorValues';
Function ExtApp_SharedMem_ReadBuffer(bu:PChar;bu_size:DWord):Boolean;
Var
mappedData : PChar;
th : THandle;
Begin
Result:=False;
th:=OpenFileMapping(FILE_MAP_READ,False,sharedmem_name);
If th<>INVALID_HANDLE_VALUE Then
Begin
mappedData:=MapViewOfFile(th,FILE_MAP_READ,0,0,0);
If mappedData<>Nil Then
Begin
StrLCopy(bu,mappedData,bu_size);
If UnmapViewOfFile(mappedData) Then Result:=True;
End;
CloseHandle(th);
End;
End;

но не пойму как с ней работать. Объясните пожалуйста.

[Stilet]

Насколько я понимаю:

const n=3000;
var s:array[1..n] of char;
begin
 ExtApp_SharedMem_ReadBuffer(@s,n);
 Теперь в s ответ от Аиды.
end;

[sazore]

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

Насколько я понимаю:

const n=3000;
var s:array[1..n] of char;
begin
 ExtApp_SharedMem_ReadBuffer(@s,n);
 Теперь в s ответ от Аиды.
end;

Вот что в переменной....