Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Probleme mit ActiveX-Controls

**OlafSt**

Hallo Freunde,

ich stehe noch immer auf Kriegsfuß mit Interfaces und all dem Brimborium, der dranhängt. Ich habe schon ein paar dutzend Tutorials gelesen, die aber allesamt beim "jetzt weißt du, wie man ein Interface deklariert" enden. Mein Problem geht aber ein paar Generationen weiter.

Ich habe hier ein ActiveX-Control, das ich mit Delphi importiert habe (Komponente importieren, ActiveX-Steuerelement importieren, Control auswählen, Komponentenwrappe generieren AN, Unit erstellen, Fertig). Delphi produziert dabei folgendes (das kein einziges Tutorial bisher auch nur erwähnt hat):

zusammenfalten · markieren

Delphi-Quellcode:

			// *********************************************************************//

// DispIntf:  _DiwMapViewCtrl

// Flags:     (4112) Hidden Dispatchable

// GUID:      {357CEE48-2FD4-4311-9E92-1050A4429D8C}

// *********************************************************************//

  _DiwMapViewCtrl = dispinterface

    ['{357CEE48-2FD4-4311-9E92-1050A4429D8C}']

    property MapDescriptionFilename: WideString dispid 1;

    property FullExtent: IiwGeoRect dispid 2;

    property Extent: IiwGeoRect dispid 3;

    property Appearance: Smallint dispid -520;

    property BackColor: OLE_COLOR dispid 4;

    property BorderStyle: Smallint dispid 5;

    property ZoomFactor: Double dispid 6;

    property Scale: Integer dispid 7;

    property MouseMode: Smallint dispid 8;

    property MapLimits: IiwGeoRect dispid 9;

    property MapLimitMode: Smallint dispid 10;

    property IdentifyRadius: Double dispid 11;

    property IdentifyRadiusUnit: Smallint dispid 12;

    property IdentifyLayerNames: WideString dispid 13;

    property IdentifyGetBorderPolygons: Smallint dispid 14;

    property RefreshCount: Integer dispid 15;

    property Enabled: Shortint dispid -514;

    property BorderStyleCE: Smallint dispid -504;

    function ZoomIn: Integer; dispid 101;

    function ZoomOut: Integer; dispid 102;

    function ZoomToPoints(const geopoints: IiwGeoPoints; xMarginPercent: Integer; 

                          yMarginPercent: Integer; minWidth: Double; minHeight: Double): Integer; dispid 103;

    function ZoomByFactor(factor: Double): Integer; dispid 104;

    function Pan(const geopoint: IiwGeoPoint): Integer; dispid 105;

    function ToMapPoint(xval: Integer; yval: Integer; const geopoint: IiwGeoPoint): Integer; dispid 106;

    function FromMapPoint(const geopoint: IiwGeoPoint; var xval: Integer; var yval: Integer): Integer; dispid 107;

    function SetFullExtent: Integer; dispid 108;

    function ActivateDynamicLayer(const key: WideString; const keyvalue: WideString): Integer; dispid 109;

    function DeactivateDynamicLayer(const key: WideString): Integer; dispid 110;

    function PrintMap(hdc: OLE_HANDLE; x: Integer; y: Integer; width: Integer; height: Integer): Integer; dispid 111;

    function RefreshMap: Integer; dispid 112;

    function GetErrorDesc(error: Integer; var description: WideString): Integer; dispid 113;

    function IdentifyVisibleObjects(identifyX: Smallint; identifyY: Smallint; 

                                    radiusInPixel: Integer; const IdentifyLayerNames: WideString; 

                                    getBorderPolygons: Smallint; var xmlResult: WideString): Integer; dispid 114;

    function IdentifyVisibleObjects1(const maprect: IiwGeoRect; viewWidth: Smallint; 

                                     viewHeight: Smallint; identifyX: Smallint; 

                                     identifyY: Smallint; radiusInPixel: Integer; 

                                     const IdentifyLayerNames: WideString; 

                                     getBorderPolygons: Smallint; var xmlResult: WideString): Integer; dispid 115;

    function GetDataProjectionName(var name: WideString): Integer; dispid 116;

    function OutputMap(hdc: OLE_HANDLE; x: Integer; y: Integer; width: Integer; height: Integer): Integer; dispid 117;

    function EventHandled: Integer; dispid 118;

    function GetMapDC(var hdc: OLE_HANDLE): Integer; dispid 119;

    function ReleaseMapDC(hdc: OLE_HANDLE): Integer; dispid 120;

    function SetNextDrawMode(mode: Integer): Integer; dispid 121;

    function SetSecurityKey(const filename: WideString; const key: WideString): Integer; dispid 10000;

    function SetRotationCenterAndAngle(x: Double; y: Double; angle: Double): Integer; dispid 10100;

    function SetLayerVisibility(const layername: WideString; value: Integer): Integer; dispid 10300;

    function SetWaitCursorMode(value: Integer): Integer; dispid 10301;

    function SetErrorHandlingMode(mode: Integer): Integer; dispid 10304;

    function SetLayerGroupVisibility(const groupvalue: WideString; value: Integer): Integer; dispid 10305;

    function SetImageQuality(mode: Integer): Integer; dispid 10306;

    function CreateMap(hdc: OLE_HANDLE; dpi: Integer; const Extent: IiwGeoRect; width: Integer; 

                       height: Integer): Integer; dispid 10500;

    procedure AboutBox; dispid -552;

  end;

  //[... Es folgen ein paar Events...]

  TiwMapViewCtrl = class(TOleControl)

  private

    FOnAfterAllLayerDraw: TiwMapViewCtrlAfterAllLayerDraw;

    FOnPopupMenu: TiwMapViewCtrlPopupMenu;

    FOnCustomMenuCommand: TiwMapViewCtrlCustomMenuCommand;

    FOnMapViewError: TiwMapViewCtrlMapViewError;

    FOnFireIdentifyResult: TiwMapViewCtrlFireIdentifyResult;

    FOnSetCursor: TNotifyEvent;

    FOnMeasureDistance: TiwMapViewCtrlMeasureDistance;

    FOnAfterUserDraw: TiwMapViewCtrlAfterUserDraw;

    FOnProgress: TiwMapViewCtrlProgress;

    FIntf: _DiwMapViewCtrl;

    function  GetControlInterface: _DiwMapViewCtrl;

  protected

    procedure CreateControl;

    procedure InitControlData; override;

    function Get_FullExtent: IiwGeoRect;

    procedure Set_FullExtent(const Value: IiwGeoRect);

    function Get_Extent: IiwGeoRect;

    procedure Set_Extent(const Value: IiwGeoRect);

    function Get_MapLimits: IiwGeoRect;

    procedure Set_MapLimits(const Value: IiwGeoRect);

  public

    function ZoomIn: Integer;

    function ZoomOut: Integer;

    function ZoomToPoints(const geopoints: IiwGeoPoints; xMarginPercent: Integer; 

                          yMarginPercent: Integer; minWidth: Double; minHeight: Double): Integer;

    function ZoomByFactor(factor: Double): Integer;

    function Pan(const geopoint: IiwGeoPoint): Integer;

    function ToMapPoint(xval: Integer; yval: Integer; const geopoint: IiwGeoPoint): Integer;

    function FromMapPoint(const geopoint: IiwGeoPoint; var xval: Integer; var yval: Integer): Integer;

    function SetFullExtent: Integer;

    function ActivateDynamicLayer(const key: WideString; const keyvalue: WideString): Integer;

    function DeactivateDynamicLayer(const key: WideString): Integer;

    function PrintMap(hdc: OLE_HANDLE; x: Integer; y: Integer; width: Integer; height: Integer): Integer;

    function RefreshMap: Integer;

    function GetErrorDesc(error: Integer; var description: WideString): Integer;

    function IdentifyVisibleObjects(identifyX: Smallint; identifyY: Smallint; 

                                    radiusInPixel: Integer; const IdentifyLayerNames: WideString; 

                                    getBorderPolygons: Smallint; var xmlResult: WideString): Integer;

    function IdentifyVisibleObjects1(const maprect: IiwGeoRect; viewWidth: Smallint; 

                                     viewHeight: Smallint; identifyX: Smallint; 

                                     identifyY: Smallint; radiusInPixel: Integer; 

                                     const IdentifyLayerNames: WideString; 

                                     getBorderPolygons: Smallint; var xmlResult: WideString): Integer;

    function GetDataProjectionName(var name: WideString): Integer;

    function OutputMap(hdc: OLE_HANDLE; x: Integer; y: Integer; width: Integer; height: Integer): Integer;

    function EventHandled: Integer;

    function GetMapDC(var hdc: OLE_HANDLE): Integer;

    function ReleaseMapDC(hdc: OLE_HANDLE): Integer;

    function SetNextDrawMode(mode: Integer): Integer;

    function SetSecurityKey(const filename: WideString; const key: WideString): Integer;

    function SetRotationCenterAndAngle(x: Double; y: Double; angle: Double): Integer;

    function SetLayerVisibility(const layername: WideString; value: Integer): Integer;

    function SetWaitCursorMode(value: Integer): Integer;

    function SetErrorHandlingMode(mode: Integer): Integer;

    function SetLayerGroupVisibility(const groupvalue: WideString; value: Integer): Integer;

    function SetImageQuality(mode: Integer): Integer;

    function CreateMap(hdc: OLE_HANDLE; dpi: Integer; const Extent: IiwGeoRect; width: Integer; 

                       height: Integer): Integer;

    procedure AboutBox;

    property  ControlInterface: _DiwMapViewCtrl read GetControlInterface;

    property  DefaultInterface: _DiwMapViewCtrl read GetControlInterface;

  published

    property Anchors;

    property  TabStop;

    property  Align;

    property  DragCursor;

    property  DragMode;

    property  ParentShowHint;

    property  PopupMenu;

    property  ShowHint;

    property  TabOrder;

    property  Visible;

    property  OnDragDrop;

    property  OnDragOver;

    property  OnEndDrag;

    property  OnEnter;

    property  OnExit;

    property  OnStartDrag;

    property  OnMouseUp;

    property  OnMouseMove;

    property  OnMouseDown;

    property MapDescriptionFilename: WideString index 1 read GetWideStringProp write SetWideStringProp stored False;

  public

    property FullExtent: IiwGeoRect read Get_FullExtent write Set_FullExtent stored False;

  published

  public

    property Extent: IiwGeoRect read Get_Extent write Set_Extent stored False;

  published

    property Appearance: Smallint index -520 read GetSmallintProp write SetSmallintProp stored False;

    property BackColor: TColor index 4 read GetTColorProp write SetTColorProp stored False;

    property BorderStyle: Smallint index 5 read GetSmallintProp write SetSmallintProp stored False;

    property ZoomFactor: Double index 6 read GetDoubleProp write SetDoubleProp stored False;

    property Scale: Integer index 7 read GetIntegerProp write SetIntegerProp stored False;

    property MouseMode: Smallint index 8 read GetSmallintProp write SetSmallintProp stored False;

  public

    property MapLimits: IiwGeoRect read Get_MapLimits write Set_MapLimits stored False;

  published

    property MapLimitMode: Smallint index 10 read GetSmallintProp write SetSmallintProp stored False;

    property IdentifyRadius: Double index 11 read GetDoubleProp write SetDoubleProp stored False;

    property IdentifyRadiusUnit: Smallint index 12 read GetSmallintProp write SetSmallintProp stored False;

    property IdentifyLayerNames: WideString index 13 read GetWideStringProp write SetWideStringProp stored False;

    property IdentifyGetBorderPolygons: Smallint index 14 read GetSmallintProp write SetSmallintProp stored False;

    property RefreshCount: Integer index 15 read GetIntegerProp write SetIntegerProp stored False;

    property Enabled: Shortint index -514 read GetShortintProp write SetShortintProp stored False;

    property BorderStyleCE: Smallint index -504 read GetSmallintProp write SetSmallintProp stored False;

    property OnAfterAllLayerDraw: TiwMapViewCtrlAfterAllLayerDraw read FOnAfterAllLayerDraw write FOnAfterAllLayerDraw;

    property OnPopupMenu: TiwMapViewCtrlPopupMenu read FOnPopupMenu write FOnPopupMenu;

    property OnCustomMenuCommand: TiwMapViewCtrlCustomMenuCommand read FOnCustomMenuCommand write FOnCustomMenuCommand;

    property OnMapViewError: TiwMapViewCtrlMapViewError read FOnMapViewError write FOnMapViewError;

    property OnFireIdentifyResult: TiwMapViewCtrlFireIdentifyResult read FOnFireIdentifyResult write FOnFireIdentifyResult;

    property OnSetCursor: TNotifyEvent read FOnSetCursor write FOnSetCursor;

    property OnMeasureDistance: TiwMapViewCtrlMeasureDistance read FOnMeasureDistance write FOnMeasureDistance;

    property OnAfterUserDraw: TiwMapViewCtrlAfterUserDraw read FOnAfterUserDraw write FOnAfterUserDraw;

    property OnProgress: TiwMapViewCtrlProgress read FOnProgress write FOnProgress;

  end;

Zu diesem Steuerelement gibt es einen Berg Hilfsklassen, die ich als Typbibliothek importiert habe. Diese Hilfsklassen treiben mich in den Wahnsinn, denn egal, was ich auch anstelle, der Compiler meckert oder das Programm crasht:

zusammenfalten · markieren

Delphi-Quellcode:

			// *********************************************************************//

// Interface: IiwGeoRect

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {2DFE1A47-4E0F-4639-9CA7-E63C760CAC63}

// *********************************************************************//

  IiwGeoRect = interface(IDispatch)

    ['{2DFE1A47-4E0F-4639-9CA7-E63C760CAC63}']

    function Get_TopLeft: IiwGeoPoint; safecall;

    procedure Set_TopLeft(const pVal: IiwGeoPoint); safecall;

    function Get_BottomRight: IiwGeoPoint; safecall;

    procedure Set_BottomRight(const pVal: IiwGeoPoint); safecall;

    property TopLeft: IiwGeoPoint read Get_TopLeft write Set_TopLeft;

    property BottomRight: IiwGeoPoint read Get_BottomRight write Set_BottomRight;

  end;

// *********************************************************************//

// DispIntf:  IiwGeoRectDisp

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {2DFE1A47-4E0F-4639-9CA7-E63C760CAC63}

// *********************************************************************//

  IiwGeoRectDisp = dispinterface

    ['{2DFE1A47-4E0F-4639-9CA7-E63C760CAC63}']

    property TopLeft: IiwGeoPoint dispid 1;

    property BottomRight: IiwGeoPoint dispid 2;

  end;

//[...Tonnen anderer Klassen...]

// *********************************************************************//

// Die Klasse CoiwGeoRect stellt die Methoden Create und CreateRemote zur

// Verfügung, um Instanzen des Standard-Interface IiwGeoRect, dargestellt

// von CoClass iwGeoRect, zu erzeugen. Diese Funktionen können

// von einem Client verwendet werden, der die CoClasses automatisieren

// will, die von dieser Typbibliothek dargestellt werden.                                           

// *********************************************************************//

  CoiwGeoRect = class

    class function Create: IiwGeoRect;

    class function CreateRemote(const MachineName: string): IiwGeoRect;

  end;

//[...Tonnen anderer Co-Dinger...]

class function CoiwGeoRect.Create: IiwGeoRect;

begin

  Result := CreateComObject(CLASS_iwGeoRect) as IiwGeoRect;

end;

class function CoiwGeoRect.CreateRemote(const MachineName: string): IiwGeoRect;

begin

  Result := CreateRemoteComObject(MachineName, CLASS_iwGeoRect) as IiwGeoRect;

end;

Meine Software initialisiert nun so ein TiwMapViewCtrl, alles mit Wasser gekocht:

markieren

Delphi-Quellcode:

			     CoInitializeEx(nil, COINIT_APARTMENTTHREADED);

     FMap:=TIwMapViewCtrl.Create(FTargetView); //FTargetView ist ein normales TPanel

     FMap.Align:=alClient;

     FMap.MapLimitMode:=0;

     FMap.Name:='iwMapViewCtrl1';

     FMap.RefreshCount:=-1;

     FMap.Scale:=50000000;

     FMap.ZoomFactor:=2;

     SetBounds(0,0,TargetView.ClientWidth,TargetView.ClientHeight);

     FTargetView.InsertControl(FMap);

Klappt alles, Karte wird angezeigt, ist Zoombar, bewegbar etcpp. Nun möchte ich einen selbsterstellten Punkt anzeigen. Der Punkt wird also in die Karte eingefügt und wir verschieben dann die Karte zu diesem Punkt hin:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TMapInfoMap.MoveToPosition(Bounds: TRect; GP: GPSPosition; const WithZoom: boolean);

var

   Pts: IiwGeoPoints;

   pt, cpt: IIwGeoPoint;

   x,y: Double;

   Ctr: IiwGeoRect;

begin

     //Compiler meckert hier, das CoInitialize nicht aufgerufen wurde, obwohl das DREIMAL im

     //Code passiert, wenn auch als CoInitializeEx 

     CoInitializeEx(nil, COINIT_APARTMENTTHREADED);

     GPToFloat(GP,x,y); //x,y enthalten nun GPS-Koordinaten im Dezimalkomma-Format

     pt:=CoIwGeoPoint.Create; //Funktioniert

     pt.SetPoint(y,x,'WGS84'); //Funktioniert

     //Mittelpunkt des Kartenausschnitts ermitteln

     cpt:=CoIwGeoPoint.Create; //Funktioniert

     //FMap.Extent ist ein IiwGeoRect

     Ctr:=FMap.Extent; 

     //Funktioniert, Ctr wird mir als Pointer ($irgendwo) as IiwGeoRect angezeigt, was mich so schon

     //stutzig macht

     x:=(Ctr.BottomRight.x - Ctr.TopLeft.x) / 2; //Schutzverletzung, BottomRight existiert nicht

     y:=(Ctr.TopLeft.y - Ctr.BottomRight.y) / 2; //TopLeft auch nicht

     //Zum rest kommen wir natürlich nicht mehr

     //Und Karte hinschubsen

     FMap.Pan(pt);

     Ctr:=nil;

     pt:=nil;

end;

Ich verstehe beim besten Willen nicht, wieso da NOCH EINMAL CoInitialize aufgerufen werden muß. Ich kapiere außerdem nicht, wie ich einen definitiv existierenden IiwGeoRect (FMap.Extent) einer lokalen Variable (Ctr) desselben Typs zuweisen kann, vom dem Ding aber nur die Hälfte überhaupt "existiert".

Habe ich beim Import schon was falsch gemacht ? Wenn nein, wo ist mein Fehler, wie behebe ich den und wieso muß man das so machen ?

Ich weiß, viele Fragen... Aber ich hoffe, an diesem konkreten Beispiel endlich das Kriegsbeil mit Interfaces unter die Erde bringen zu können

Danke schon jetzt für eure Mühen und eure Geduld.