Из функции вернуть данные через входящие параметры. Не возвращает, хоть тресни.

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

Доброго времмени суток!

Имеем функцию:

{Нужен psapi}
function ProcessExists(aName:string; var aFullPath: string; aPID: Cardinal): boolean;
var
  aProcess: array [0 .. 1024] of DWORD;
  BytesNum: DWORD;
  i, iCount: integer;
  sPath: string;
  dPath:string;
  dID:DWORD;
begin
  Result := False;
  if EnumProcesses(@aProcess, SizeOf(aProcess), BytesNum) then
  begin
    iCount := BytesNum div SizeOf(DWORD);

    for i := 0 to iCount do
    begin
      sPath := GetProcessPath(aProcess[i]);
      if not(aProcess[i] = 0) then
      begin
        if (CompareStr(Trim(LowerCase(aName)),
          Trim(LowerCase(ExtractFileName(sPath)))) = 0) then
        begin
          Result := True;
          dID := aProcess[i];
          dPath:= sPath;
          Break;
        end;

      end;
    end;
  end;
  {
 Думал из-за цикла, вынес передачу данных сюды
 Танцы с бубном.
  }
  aFullPath:=dPath; //в AfullPath передается строка
  aPID:=dID;// Сюда передается идентификатор
end;

А вот и код:

var
  sPath: string;
  iPID: DWORD;
begin
  iPID:=0;
...
    if ProcessExists(name, sPath, iPID) then
    begin
   //в sPath и iPID не возвращается значение
...
    end;
    ..
  end;
..

end;

Не могу понять, где глюк. Раньше работало, а сейчас перестало

Дайте пожалуйста, правильный бубен

[spamer]

1)

function ProcessExists(aName:string; var aFullPath: string; var aPID: Cardinal): boolean;

В твоем случае, там копия параметра создается...
2) Лучше возвращать через out параметр, а не через var
3) А в клиентский код не приходят значения, т.к. вероятнее всего либо функция возвращает False, либо не выполняется какое-то из условий, что приводит к невозможности назначить данные в параметры...Вобщем под отладкой стоит посмотреть...(думал глянуть, но нету функции GetProcessPath())

[Stilet]

В твоем случае, там копия параметра создается...

Чего это так?

правильный бубен

А тарссировка что показывает?

[Serge_Bliznykov]

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

Чего это так?

потому как пропущен параметер var в описании функции для параметра aPid!
Поэтому что-то присваивать aPid в теле функции можно, но это не выйдет за пределы функции...

[spamer]

Вот Serge_Bliznykov ответил вобщем-то уже...Добавлю только, что для объектов это не действует - т.е. там все же ссылка будет передаваться...

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

А тарссировка что показывает?

показывает что перед выходом из функции передаются в нужные параметры нужные значения, однако далее по коду в переданные в функцию переменные ничего не вернулось.

spamer,
функция отрабатывает как надо. Не возвращает значения через бубен.

Вот полный вариант функции:

uses
  Winapi.Windows,
  System.StrUtils,
  System.SysUtils,
  Winapi.PsAPI,

function GetProcessPath(aPID: Cardinal): string;
function DevicePathToWin32Path(path: string): string;

function GetProcessImageFileName(hProcess: DWORD; lpImageFileName: LPTSTR;
  nSize: DWORD): DWORD; stdcall;
  external 'PSAPI.dll' name 'GetProcessImageFileNameW';

implementation

function ProcessExists(aName:string; var aFullPath: string; aPID: Cardinal): boolean;
var
  aProcess: array [0 .. 1024] of DWORD;
  BytesNum: DWORD;
  i, iCount: integer;
  sPath: string;
  dPath:string;
  dID:DWORD;
begin
  Result := False;
  if EnumProcesses(@aProcess, SizeOf(aProcess), BytesNum) then
  begin
    iCount := BytesNum div SizeOf(DWORD);

    for i := 0 to iCount do
    begin
      sPath := GetProcessPath(aProcess[i]);
      if not(aProcess[i] = 0) then
      begin
        if (CompareStr(Trim(LowerCase(aName)),
          Trim(LowerCase(ExtractFileName(sPath)))) = 0) then
        begin
          Result := True;
          dID := aProcess[i];
          dPath:= sPath;
          Break;
        end;

      end;
    end;
  end;
  aFullPath:=dPath;
  aPID:=dID;
end;

function GetProcessPath(aPID: Cardinal): string;
var
  cPath: array [0 .. MAX_PATH] of Char;
  hProcess: THandle;
begin
  Result := '';
  hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
    False, aPID);
  try
    if (hProcess > 0) then
    begin
      if GetProcessImageFileName(hProcess, @cPath, SizeOf(cPath)) <> 0 then
        Result := DevicePathToWin32Path(cPath);
    end;
  finally
    CloseHandle(hProcess)
  end;
end;

function DevicePathToWin32Path(path: string): string;
var
  c: Char;
  s: string;
  i: integer;
  _path: string;
begin
  _path := path;
  i := posex('\', path, 2);
  i := posex('\', path, i + 1);
  Result := copy(path, i, Length(path));
  delete(path, i, Length(path));
  for c := 'A' to 'Z' do
  begin
    SetLength(s, 1000);
    if querydosdevice(PChar(string(c) + ':'), PChar(s), 1000) <> 0 then
    begin
      s := PChar(s);
      if sametext(path, s) then
      begin
        Result := c + ':' + Result;
        Exit;
      end;
    end;
  end;
  Result := _path;
end;

Добавил

Serge_Bliznykov, в данном случае через var ничего не вернулось ни в одну из переменных. Сделал через out и заработало.

function ProcessExists(aName:string; out aFullPath: string; out aPID: Cardinal): boolean;

Гм, чуть не повился когда узнал что константы можно делать записываемыми...
{$WRITEABLECONST ON}

[spamer]

Странно как-то у тебя оно работает - через var не возвращает, но через out возвращает...
Вот только, что попробовал вернуть через var - все работает...

Сделал через out и заработало.

Только учти, что out параметры могут быть не инициализированы перед передачей в функцию(т.е. об этом заботится сама функция), в то время как var параметры принято инициализировать до передачи в функцию...

{$WRITEABLECONST ON}

Полезно при реализации Singleton'а...