Google Maps über COM (Component Object Model)

[Borni]

das ganze Projekt wird schwierig......

Delphi-Quellcode:

...
 icKunde := New(Script.Google.Maps.MarkerImage(Encode64(TPNGObject(Image1.Picture.Graphic))));
 icLieferant := New(Script.Google.Maps.MarkerImage(Encode64(TPNGObject(Image2.Picture.Graphic))));
 icAdresse := New(Script.Google.Maps.MarkerImage(Encode64(TPNGObject(Image5.Picture.Graphic))));
...


procedure TDialogGeoCache.AddMarker(Map: TMap; fGeoPosition: TLatLng; fd: TData;
  Typ, funr: string);
var
  MarkerOptions: TMarkerOptions;

begin
  if fd.Name1 = '' then exit;
  MarkerOptions := TMarkerOptions.Create;
  try
    MarkerOptions.Map := Map;
    MarkerOptions.Position := fGEoPosition;
    if Typ = 'K' then // Image definieren
      MarkerOptions.IconImage := icKunde
    else
      if Typ = 'L' then
        MarkerOptions.IconImage := icLieferant
      else
        MarkerOptions.IconImage := icAdresse;

    MarkerOptions.Title := fd.Name1; // Hint für die Marke

    with New(Script.Google.Maps.Marker(MarkerOptions)) do begin
      OwnsData := false;
      Data := fd;
      Properties['unr'] := funr;
      OnClick := MarkerClick;
    end;

    fd.Markergesetzt := true;
  finally
    MarkerOptions.Free;
  end;

end;

wie gesagt unter Win7 kein Problem und XP sind die DAten zwar da, aber die Symbole sind nicht zu sehen (XP IE8)

Gruß Borni