Problems with Google API

[BlueLiquidCell]

Hey Guys,

Ich hab ein Programm geschrieben das die Goole-API benutzt und die folgenden uses benötigt:

DocHostUIHandler, BrowserTools, gmAPI, gmBase, gmMap, gmPolylinePolygon, gmEvents

In dem Programm funktioniert alles wunderbar. Dann wollte ich das Programm in ein anderes integrieren das auf verschiedenen tabs, verschiedene dinge anzeigt. Doch wenn ich die uses einbinde crashed es sofort am anfang ohne das jegliche funktion eingebaut ist.

Das Problem ist die "gmAPI". Solange die nicht dabei ist, geht zumindest das initialisieren. Doch wenn die "gmAPI" mit drin ist (so wie oben) dann crashed es in der "DispObject" in Zeile 314 (Zeile mit BrowserTools... hier) und es kommt eine Exeption Notification (error.png).

Delphi-Quellcode:

procedure TDispObject.SetProp(const Name: String; const Value: OleVariant; CreateIfNotExists: Boolean = false);
begin
  if CreateIfNotExists and not PropertyExists(Name)
    then AddProp(Name);
  BrowserTools.SetProp(FDisp,Name,Value,{false}true);
end;

Irgendjemand ne idee?

Würd mich echt freuen.

Christoph

[Thom]

Hallo Christoph,

das sieht nach meinem Framework aus...

Poste mal bitte Deinen Quelltext - ohne diesem kann ich da leider keine Diagnose erstellen...

[BlueLiquidCell]

Hallo Thomas

Das ist gut möglich
Dann erstmal vielen dann für das Framework und deine Hilfe!

Hier die einbindung die Funktioniert:

Delphi-Quellcode:

program MapControls;

{$INCLUDE google/gmConfig.inc}

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},

  // Google JScripts
  DocHostUIHandler in 'google\DocHostUIHandler.pas',
  BrowserTools in 'google\BrowserTools.pas',
  DispObject in 'google\DispObject.pas',
  JScriptObjects in 'google\JScriptObjects.pas',
  HTMLObjects in 'google\HTMLObjects.pas',

  // Google APIs
  gmAPI in 'google\gmAPI.pas',
  gmBase in 'google\gmBase.pas',
  gmDirectionsRenderer in 'google\gmDirectionsRenderer.pas',
  gmMVC in 'google\gmMVC.pas',
  gmEvents in 'google\gmEvents.pas',
  gmDirectionsService in 'google\gmDirectionsService.pas',
  gmMap in 'google\gmMap.pas',
  gmStreetView in 'google\gmStreetView.pas',
  gmMarker in 'google\gmMarker.pas',
  gmPolylinePolygon in 'google\gmPolylinePolygon.pas',
  gmElevationService in 'google\gmElevationService.pas',
  gmGeocoder in 'google\gmGeocoder.pas',
  gmLayers in 'google\gmLayers.pas',
  gmOverlays in 'google\gmOverlays.pas',
  gmInfoWindow in 'google\gmInfoWindow.pas';

{$R *.res}

begin
  Application.Initialize;
{$IFDEF DELPHI2007_UP}
  Application.MainFormOnTaskbar := True;
{$ENDIF}
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

Delphi-Quellcode:

unit Unit1;

interface

{$INCLUDE google/gmConfig.inc}

uses
  Windows, Messages, SysUtils, Variants, Classes,
  Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, ExtCtrls, DocHostUIHandler,
  BrowserTools, gmAPI, gmBase, gmMap, StdCtrls, RotImg, gmPolylinePolygon, gmEvents,Unit2, math;

Die die nicht funktioniert schauts so aus:

Delphi-Quellcode:

program FSXControl;

uses
  FastShareMem,
  Forms,
  UnitMain in 'UnitMain.pas' {FormMain},
  UnitSplashScreen in 'UnitSplashScreen.pas' {FormSplashScreen},
  dllheaders in 'dllheaders.pas',
  UnitAirplaneOverlay in 'UnitAirplaneOverlay.pas' {FormAirplaneOverlay},


  // Google JScripts
  DocHostUIHandler in 'google\DocHostUIHandler.pas',
  BrowserTools in 'google\BrowserTools.pas',
  DispObject in 'google\DispObject.pas',
  JScriptObjects in 'google\JScriptObjects.pas',
  HTMLObjects in 'google\HTMLObjects.pas',

  // Google APIs
  gmAPI in 'google\gmAPI.pas',
  gmBase in 'google\gmBase.pas',
  gmDirectionsRenderer in 'google\gmDirectionsRenderer.pas',
  gmMVC in 'google\gmMVC.pas',
  gmEvents in 'google\gmEvents.pas',
  gmDirectionsService in 'google\gmDirectionsService.pas',
  gmMap in 'google\gmMap.pas',
  gmStreetView in 'google\gmStreetView.pas',
  gmMarker in 'google\gmMarker.pas',
  gmPolylinePolygon in 'google\gmPolylinePolygon.pas',
  gmElevationService in 'google\gmElevationService.pas',
  gmGeocoder in 'google\gmGeocoder.pas',
  gmLayers in 'google\gmLayers.pas',
  gmOverlays in 'google\gmOverlays.pas',
  gmInfoWindow in 'google\gmInfoWindow.pas';


{$R *.res}

begin
  Application.Initialize;
{$IFDEF DELPHI2007_UP}
  Application.MainFormOnTaskbar := True;
{$ENDIF}  
  Application.CreateForm(TFormSplashScreen, FormSplashScreen);
  Application.CreateForm(TFormMain, FormMain);
  Application.Run;
end.

Delphi-Quellcode:

unit UnitMain;

interface

{$INCLUDE google/gmConfig.inc}

uses
  FastShareMem, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, jpeg, Menus, math, OleCtrls, DBCtrls,
  FPCUser, dllheaders, ColorGrd, clipbrd, mmSystem, SHDocVw,
  DocHostUIHandler, BrowserTools, gmAPI, gmBase, gmMap, RotImg, gmPolylinePolygon, gmEvents;

Hoffe das bringt dir etwas, wenn nicht sag bescheid was du noch brauchst,
oder wir treffen uns ma bei Skype dann kann ich dirs direkt zeigen?
Christoph

[Thom]

Hallo Christoph,

keine Ursache!

Tja - die von Dir geposteten Programmteile sind leider wenig aussagekräftig, da daraus nicht hervorgeht, wie Du Google Maps verwendest.

Benutzt Du mehrere TWebBrowser-Komponenten? Falls Ja, mußt Du auf die korrekte Verwendung der Script-Objekte achten, da jede Browser-Komponente ein eigenes besitzt (siehe Demo 9 - Multi Maps). Dann kann bzw. darf keinesfalls die globale Variable Script verwendet werden!

Du kannst - wenn Du möchtest - den kompletten Quelltext als Anhang posten. Dann könnte ich ihn bei mir durch den Debugger jagen. Falls Du nicht möchtest, daß jeder den Quelltext herunterladen kann, könntest Du ihn mir auch als Email-Anhang schicken. Meine Email-Adresse ist im Profil ersichtlich (vCard). Skype besitze ich nicht...

[BlueLiquidCell]

Hallo Thomas

Ja das hab ich fast befürchtet das das nicht reicht

Ich schau mir das mit den mehrern Webbrowser Komponenten mal an und schreib dir sonst morgen mal ne mail!

Vielen Dank
Christoph

[Thom]

Ok.

[nuclearping]

[OT]

Wird das was für den MS Flight Simulator X? Wenn ja, was?

[/OT]