Google Maps über COM (Component Object Model)

[bwilms]

Hallo,

ich versuche gerade gmAPI und die Demos unter Delphi 6 zum laufen zu bringen.
Aber bei jedem Demo kommt die Fehlermeldung "Unbekannter Name". Es sieht so aus, also ob die Funktion "AddProp" jedes Mal fehl schlägt. Bei "supports(..)" kommt immer false zurück und das Prop wird nicht angelegt.

Muss dazu noch irgendwas beachtet werden?
Ist die IE-Version relevant?

Vielen Dank im voraus.

[Thom]

Hallo bwilms,

das Framework wurde von mir unter anderem auch mit Delphi 5, Windows XP und dem IE 8 getestet. Delphi 6 sollte also eigentlich keine Probleme verursachen.

Welche Windows- und Browser-Version verwendest Du?

Wie sehen die Fehlermeldungen konkret aus? Also in welcher Unit und für welche Zeilennummer wird der Fehler angezeigt?

P.S.:
Jetzt habe ich's verstanden: Die Fehlermeldung kommt nicht während der Compilierung, sondern zur Laufzeit des Programms!?

[bwilms]

Hallo,

schon mal danke für die schnelle Antwort.

Wie gesagt, der Fehler lautet "Unbekannter Name" beim Aufruf der Funktion SetProp in der unit BrowserTools Zeile 665.

OS: Windows XP Pro SP 3
Browser: IE 8.0.6001.18702

Die kompilierte Exe zum Thema OpenMap konnte ich starten.

Schönen Gruß,

Benjamin

[Thom]

Ok. Dann sollte es auch nicht am Browser-ActiveX - sprich: der IE-Version - liegen.

Könntest Du bitte mal mit Hilfe des Debuggers feststellen, bei welchem (Google Maps) Objekt und bei welcher Eigenschaft die Fehlermeldung auftritt? Am besten bei einer einfachen Demo, wie Simple Demo.

Da könnte der Fehler auftreten beim Anlegen des Objektes TScript (eher unwahrscheinlich), beim Anlegen des Objektes TMapOptions (auch unwahrscheinlich), beim Hinzufügen der Eigenschaften Zoom (ist meine Vermutung), der Erzeugung des Objektes TLatLng, der Hinzufügung des TLatLng-Objektes zum Options-Objekt, der Hinzufügung der Eigenschaft MapTypeID oder der Erzeugung der Karte selbst (Google.Maps.Map(...)).

P.S.:
Ich habe einmal die compilierte Version von Simple Map angehangen. Funktioniert die bei Dir oder gibt es damit auch eine Fehlermeldung?

P.S.:
Ach, ich sehe gerade: In diesem Beitrag ist sie auch schon enthalten. Na gut, nicht so schlimm...

[bwilms]

Hallo,

die Demo-Exe funktioniert.

Der Fehler tritt beim SimpleDemo bei dem Attribut Zoom auf.

Gruß,

Benjamin

[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.

[bwilms]

Hallo Thomas,

nun funktioniert es. habe wie von dir beschrieben die BrowserTools.pas angepasst und nun kann ich die Demos auch mit D6 kompilieren.

Vielen Dank für die Hilfe und noch ein riesen Lob für die Umsetzung.

Gruß,Benjamin