Hello Rob,
> No, I mean, show us the declaration of Location -- what have you told
> the compiler a Location is?
> The error message you got usually means that the interface type on the
> right does not have a GUID.
Thank you for your concern. This is some copy of the type library:
// GUIDS declared in the TypeLibrary. Following prefixes are used:
IID_Location: TGUID = '{7AFBA6C4-6B6E-4124-B350-85EED3450023}';
// *********************************************************************//
// Interface: Location
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {7AFBA6C4-6B6E-4124-B350-85EED3450023}
// *********************************************************************//
Location = interface(IDispatch)
['{7AFBA6C4-6B6E-4124-B350-85EED3450023}']
function Get_Application: _Application; safecall;
function Get_Parent: _Map; safecall;
function Get_Name: WideString; safecall;
procedure GoTo_; safecall;
function Get_Location_: Location; safecall;
function Get_PlaceCategory: PlaceCategory; safecall;
function FindNearby(Distance: Double): FindResults; safecall;
function Get_Highlight: WordBool; safecall;
procedure Set_Highlight(pVal: WordBool); safecall;
function Get_IsHighlightable: WordBool; safecall;
function DistanceTo(const From: Location): Double; safecall;
procedure Select; safecall;
procedure Copy; safecall;
function Get_StreetAddress: StreetAddress; safecall;
function Get_type_: GeoShowDataBy; safecall;
function Get_Latitude: Double; safecall;
function Get_Longitude: Double; safecall;
property Application: _Application read Get_Application;
property Parent: _Map read Get_Parent;
property Name: WideString read Get_Name;
property Location_: Location read Get_Location_;
property PlaceCategory: PlaceCategory read Get_PlaceCategory;
property Highlight: WordBool read Get_Highlight write Set_Highlight;
property IsHighlightable: WordBool read Get_IsHighlightable;
property StreetAddress: StreetAddress read Get_StreetAddress;
property type_: GeoShowDataBy read Get_type_;
property Latitude: Double read Get_Latitude;
property Longitude: Double read Get_Longitude;
end;
And this is the Shape declaration where I get the Vertices from:
// *********************************************************************//
// Interface: Shape
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {EF3817E9-A8F6-4EA6-8CFD-3F2D97A35644}
// *********************************************************************//
Shape = interface(IDispatch)
['{EF3817E9-A8F6-4EA6-8CFD-3F2D97A35644}']
function Get_Vertices: OleVariant; safecall;
property Vertices: OleVariant read Get_Vertices write Set_Vertices;
---
Rgds, Wilfried
http://www.mestdagh.biz
__________________________________________________
Delphi-Talk mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi-talk
