Google Maps über COM (Component Object Model)

[Jumpy]

Das hier?

Delphi-Quellcode:

type
  {$EXTERNALSYM IDispatchEx}
  IDispatchEx = interface(IDispatch)
    ['{A6EF9860-C720-11D0-9337-00AC090DCAA9}']
    function GetDispID(const bstrName: TBSTR; const grfdex: DWORD;
       out id: TDispID): HResult; stdcall;
    function InvokeEx(const id: TDispID; const lcid: LCID; const wflags:
       WORD; const pdp: PDispParams; out varRes: OleVariant; out pei:
       TExcepInfo; const pspCaller: PServiceProvider): HResult; stdcall;
    function DeleteMemberByName(const bstr: TBSTR; 
       const grfdex: DWORD): HResult; stdcall;
    function DeleteMemberByDispID(const id: TDispID): HResult; stdcall;
    function GetMemberProperties(const id: TDispID; const grfdexFetch:
       DWORD; out grfdex: DWORD): HResult; stdcall;
    function GetMemberName(const id: TDispID; out bstrName: TBSTR):
       HResult; stdcall;
    function GetNextDispID(const grfdex: DWORD; const id: TDispID;
       out nid: TDispID): HResult; stdcall;
    function GetNameSpaceParent(out unk: IUnknown): HResult; stdcall;
  end;

[Thom]

Hallo Jumpy,

genau das! Vielen Dank!

Allerdings konnte ich hier keinen Fehler entdecken. Gut für Borland & Co., schlecht für meine Fehlersuche...

Lauten die Konstanten

Delphi-Quellcode:

  fdexNameCaseSensitive   = $1;
  fdexNameEnsure          = $2;
  fdexNameImplicit        = $4;
  fdexNameCaseInsensitive = $8;

?
Ist der Typ TBSTR

Delphi-Quellcode:

  TBStr = POleStr;
  POleStr = PWideChar;

?

[Jumpy]

Zitat von Thom:

Lauten die Konstanten

Delphi-Quellcode:

  fdexNameCaseSensitive   = $1;
  fdexNameEnsure          = $2;
  fdexNameImplicit        = $4;
  fdexNameCaseInsensitive = $8;

Ja!

Delphi-Quellcode:

const
  { Input flags for GetDispID }
  {$EXTERNALSYM fdexNameCaseSensitive}
  fdexNameCaseSensitive       = $1;
  {$EXTERNALSYM fdexNameEnsure}
  fdexNameEnsure              = $2;
  {$EXTERNALSYM fdexNameImplicit}
  fdexNameImplicit            = $4;
  {$EXTERNALSYM fdexNameCaseInsensitive}
  fdexNameCaseInsensitive     = $8;

Zitat von Thom:

Ist der Typ TBSTR

Delphi-Quellcode:

  TBStr = POleStr;
  POleStr = PWideChar;

Ja!

Delphi-Quellcode:

{ Automation types }

  PBStr = ^TBStr;
  TBStr = POleStr;

Delphi-Quellcode:

{ OLE character and string types }

  TOleChar = WideChar;
  POleStr = PWideChar;
  PPOleStr = ^POleStr;

  POleStrList = ^TOleStrList;
  TOleStrList = array[0..65535] of POleStr;

[Thom]

Vielen Dank!

Da bin ich an dieser Stelle erst einmal ratlos und muß mir bei Gelegeneheit mal eine Delphi 6 - Version besorgen, um das Problem im Debugger nachvollziehen zu können.