Problems with Google API

[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