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

[Stilet]

Наверное нужен ansichar а не char...
И лучше результат смотреть в отладчике, а не выводить в окно.

[sazore]

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

Наверное нужен ansichar а не char...

Вообще пусто.

[sazore]

Что не кто не знает?

[Dmitry33RU]

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

Что не кто не знает?

А что у вас собственно не работает? Сейчас проверил, все получает.

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;

procedure TForm1.Button1Click(Sender: TObject);
const
  n = 3000;
var
  s: array [1 .. n] of ansichar;
begin
  ExtApp_SharedMem_ReadBuffer(@s, n);
  showmessage(s);
end;

Вы в настройках аиды поставили "Использовать совместную память"?

[sazore]

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

А что у вас собственно не работает? Сейчас проверил, все получает.

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;

procedure TForm1.Button1Click(Sender: TObject);
const
  n = 3000;
var
  s: array [1 .. n] of ansichar;
begin
  ExtApp_SharedMem_ReadBuffer(@s, n);
  showmessage(s);
end;

Вы в настройках аиды поставили "Использовать совместную память"?

Спасибо! Я разобрался в чем проблема, у меня в sharedmem_name было прописано EVEREST_SensorValues вместо AIDA64_SensorValues.