GetIDsOfNames. DISP_E_UNKNOWNNAME. Правильное использование.

[Stilet]

Всем доброго. Продолжая изучать интерфейсы добрался до получения идентификатора метода с помошью. GetIDsOfNames.
Пробую так:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  comobj,
  activex,
  Windows,
  System.SysUtils;

var d:IDispatch;
  a:PWideChar;
  DispatchId: Longint;
  res:Integer;
begin
 CoInitialize(0);
 d:=CreateOleObject('MSScriptControl.ScriptControl');
 a:=StringToOleStr('Reset');
 res:=d.GetIDsOfNames(GUID_NULL,&a,1,LOCALE_SYSTEM_DEFAULT,@DispatchId);
 case res of
  S_OK:Writeln(DispatchId);
  E_OUTOFMEMORY:Writeln('E_OUTOFMEMORY');
  DISP_E_UNKNOWNNAME:Writeln('DISP_E_UNKNOWNNAME');
  DISP_E_UNKNOWNLCID:Writeln('DISP_E_UNKNOWNLCID');
  else Writeln(res);
 end;
 readln;
end.

В результате получаю DISP_E_UNKNOWNNAME.
Однако я точно знаю что такой метод есть, ибо использую его в своей программе так:

...
  Error:='';
  if VarIsClear(iVBS) then begin
    try
     CoInitialize(nil);
     iVBS:=CreateOleObject('MSScriptControl.ScriptControl');
     iVBS.Language:='VBScript';
     iVBS.UseSafeSubset := False;
     iVBS.AllowUI := true;
     iVBS.TimeOut := -1;
     iVBS.Reset;
    except
     on e:Exception do begin
      Error:='Error on created MSScriptControl: '+e.Message;
      iVBS:=Unassigned;
     end;
    end;
  end;
...

Отсюда у меня вопрос: А правильно ли я вообще делаю чтоб получить идентификатор?

[Vapaamies]

А почему PWideChar, а не WideString? Ведь WideString -- обертка над API COM-строк (BSTR), а интерфейсы -- это тоже COM. Всё это было введено в Delphi 4.

[Stilet]

Этот код я выдрал из генофонда, там именно PWideChar используется. Думаю нет смысла не доверять генофонду.
Тем паче что этот параметр ведь указатель на указатели, если я правильно понял.

[waleri]

У меня на С все работает...
явно или конвертация имени или передача &a в качестве аргумента выдает что-то не то.

[Vapaamies]

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

Этот код я выдрал из генофонда, там именно PWideChar используется. Думаю нет смысла не доверять генофонду.

Быдлокод -- он быдлокод и есть, где бы ни находился. StringToOleStr -- наследие Delphi 3 и ниже. С Delphi 4 нужно использовать WideString.

const
  a: WideString = 'Reset';
var
  d:System.IDispatch;
  DispatchId: Integer;
  res:Integer;
begin
 d:=CreateOleObject('MSScriptControl.ScriptControl');
 res:=d.GetIDsOfNames(GUID_NULL, @A, 1, LOCALE_SYSTEM_DEFAULT,@DispatchId);
 case res of
  E_OUTOFMEMORY:ShowMessage('E_OUTOFMEMORY');
  DISP_E_UNKNOWNNAME:ShowMessage('DISP_E_UNKNOWNNAME');
  DISP_E_UNKNOWNLCID:ShowMessage('DISP_E_UNKNOWNLCID');
  else
    ShowMessage(IntToStr(res));
 end;

Проверял на VCL-приложении, поэтому переделал на ShowMessage. Показывает 0.

[Stilet]

Хм... Впервые усомнился в генофонде...
Сколько времени на него ровнялся, и вот тебе на...
Надеюсь таких несуразностей все же меньше в Делфи, спасибо за поправку. Плюсую.

[Vapaamies]

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

Хм... Впервые усомнился в генофонде...

К слову сказать, бесконтрольный вызов StringToOleStr приводит к утечке памяти. Полученный указатель нужно освобождать. WideString же делает это всё прозрачно.

Пишу для тех, кто найдет эту тему через поисковик.

[Stilet]

Пишу для тех, кто найдет эту тему через поисковик.

Я когда полностью освою вызов СОМ и ОЛЕ опишу в этой теме (связав ее со своей предидущей) чтоб действительно было другим что искать. Лично я примеров нормальных в инете не нашел. Под Делфи имеется ввиду.

[waleri]

А в чем разница между &a и @a

[Stilet]

Ой, это очепятка О_о
Конечно же @. Писал код с виртуальной машины, у которой еще не настроил буфер обмена, вот и пропустил символ. Не тот поставил.