Google Maps über COM (Component Object Model)

[Thom]

Aha - also liegt's doch an Deinem Delphi 6. Da müssen offensichtlich noch ein paar Compilerschalter angepaßt werden.
Ich stelle mal eine Checkliste zusammen.

Teste mal bitte mit dem Debugger den folgenden Ablauf:

Delphi-Quellcode:

->Unit1: Zoom:=13;

->gmMap:
procedure TMapOptions.SetZoom(Value: Integer);
begin
  SetProp(MapOptionsProp_Zoom{'zoom'},Value{13},true);     //siehe nächste Methode
end;

->DispObject
procedure TDispObject.SetProp(const Name: String; const Value: OleVariant; CreateIfNotExists: Boolean = false);
begin
  if CreateIfNotExists and not PropertyExists(Name)        //PropertyExists('zoom') liefert false
    then AddProp(Name);                                    //siehe nächste Funktion
  BrowserTools.SetProp(FDisp,Name{'zoom'},Value{13},{false}true);
end;

->DispObject
function TDispObject.AddProp(const Name: String): Boolean;
var
  DispatchEx: IDispatchEx;
  PName: PWideChar;
  DispID: Integer;
begin
  Result:=false;
  if Supports(FDisp,IDispatchEx,DispatchEx) then           //->muß true liefern
  begin
    PName:=SysAllocString(PWideChar(WideString(Name)));    //PName muß 'zoom' als WideString enthalten
    try
      if Succeeded(DispatchEx.GetDispID(PName,fdexNameCaseSensitive or fdexNameEnsure,DispID)) then  //<- tritt hier der Fehler auf?
      begin                                                //DispID sollte einen kleinen Integerwert enthalten (z.B. 1)
        SetProp(DispID,varEmpty);
        Result:=true;
      end;
    finally
      SysFreeString(PName);
    end;
  end;
end;

Ich habe noch eine Idee:

Delphi 6 enthält doch in der Unit ActiveX die Deklaration von IDispatchEx!? Wie ist das dort definiert? Wie sind die Konstanten fdexNamexxx definiert? Ich vermute dort einen Bug (evtl. WideString).
In Delphi 5 ist das nämlich noch nicht enthalten. Deshalb habe ich die Definition in die Unit BrowserTools integriert - allerdings per Compilerschalter nur bis Delphi 5. Ab Delphi 6 wird die Deklaration aus der Unit ActiveX verwendet. Mit Delphi 7 funktioniert das - nur Du hast mit Delphi 6 Probleme. Also könnte die Ursache in einer fehlerhaften Implementation des Interfaces unter Delphi 6 liegen.
Versuche mal bitte, die Compilerschalter {$IFNDEF DELPHI6_UP} in der Unit BrowserTools in {$IFNDEF DELPHI7_UP} zu ändern und poste mal die Deklaration von IDispatchEx aus der Unit ActiveX von Delphi 6.