ObjectiveC -> XE4 Nachhilfe gesucht...

[Mavarik]

Hallo Zusammen!

Ich beschäftige mich gerade mit dem MapKit...

Hier ist die Definition:

Delphi-Quellcode:

function TMyDelegate.mapView(mapView: MKMapView;viewForAnnotation: MKAnnotation): MKAnnotationView;

Dieser Delegate function wird von iOS aber mit zwei verschiedene Typen übergeben...

einmal

Delphi-Quellcode:

MKUserLocation = interface(NSObject)

und

Delphi-Quellcode:

MKAnnotation = interface(IObjectiveC)

Innerhalb der o.g. Function muss nun abgetestet werden, nach welchem der beiden Interfaceobjecten gefragt ist...

Leider läßt sich

Delphi-Quellcode:

  if viewForAnnotation is MKUserLocation then // <- Compilerfehler
    begin
      result := NIL;
      exit;
    end;

nicht kompilieren...

Wie muss man das schreiben?

Grüsse Mavarik

[TiGü]

Was kommt denn für ein Compilerfehler?

Geht folgendes?

Delphi-Quellcode:

  if Supports(viewForAnnotation, MKUserLocation) then 
    begin
      result := NIL;
      exit;
    end;

[Mavarik]

Zitat:

Zitat von TiGü (Beitrag 1225694)

Was kommt denn für ein Compilerfehler?

Geht folgendes?

Delphi-Quellcode:

  if Supports(viewForAnnotation, MKUserLocation) then 
    begin
      result := NIL;
      exit;
    end;

Supports kennt "er" nicht...

[Daniel]

Dann bring es ihm doch bei. ;-)

http://docwiki.embarcadero.com/Libra...Utils.Supports

[mkinzler]

Supports überprüft, ob ein Objekt ein Interface implementiert, man müsste also die Instanz noch mit angeben.

Delphi-Quellcode:

if Supports( <Instanz>, viewForAnnotation, MKUserLocation) then

[jensw_2000]

Ich bin gerade noch unterwegs und kann nicht nachschauen.

Ins Blaue getippt würde ich sagen, dass es eine Instanzmethode Names "performsToSelector" geben müsste.

Diese Methode gibt True (YES) zurück, wenn das Objekt eine bestimmte Methode unterstützt.

Sorry, geht gerade nicht genauer.
Ich schaue nochmal nach, wenn ich zurück bin.

[TiGü]

Zitat:

Zitat von mkinzler (Beitrag 1225699)

Supports überprüft, ob ein Objekt ein Interface implementiert, man müsste also die Instanz noch mit angeben.

Delphi-Quellcode:

if Supports( <Instanz>, viewForAnnotation, MKUserLocation) then

Nö, gibt es auch so:

Delphi-Quellcode:

function Supports(const Instance: IInterface; const IID: TGUID): Boolean;
function Supports(const Instance: TObject; const IID: TGUID): Boolean;
function Supports(const AClass: TClass; const IID: TGUID): Boolean;

Siehe emba wiki link von Daniel!
viewForAnnotation scheint ja schon die Instanzvariable zu sein?!

[mkinzler]

Ich kannte nur die Versionen mit Klasse oder Instanz.
Daniels Antwort wurde bei mir unterschlagen, sonst hätte ich es (vielleicht) selber gesehen ;)

[Mavarik]

Danke... Drecks Hilfe, hat Supports nicht gefunden...

Compilieren läßt es sich, funktioniert aber nicht...

Noch ne Idee?

Mavarik

[jensw_2000]

Die Klasse "MKAnnotation" hat eine Methode namens "setCoordinate".

Die Klasse "MKUserLocation" ist eine Subclass von "MKAnnotation".
Sie kann die Methode "setCoordinate" der Basisklasse nutzen, hat aber selbst keine Methode "setCoordinate" deklariert.

Die NSObject Klassenmethode "respondsToSelector" prüft, ob eine Klasse eine bestimmte Methode unterstützt (ohne dabei durch die Vererbung zu wandern).

Dein "viewForAnnotation" ist von NSObject abgeleitet, kennt also die Methode "respondsToSelector".

Du brauchst also einfach nur zu prüfen, ob

Code:

viewForAnnotation.respondsToSelector(selector(setCoordinate:))

True oder False zurückgibt.

Die Funktion Selector() liegt im Cocoa Foundation Framework.

Wenn True, dann "MKAnnotation" sonst "MKUserLocation".

[Mavarik]

Muss ich testen...

Aber nicht ganz, den

MKAnnotation = interface(IObjectiveC)

Nicht NSObject...

Mavarik

PS LOL ich habe von 2 unterschiedlichen Autoren 2 unterschiedliche Definitionen...

MKAnnotation = interface( NSObject )

Was ist den richtig?

[jensw_2000]

MKAnnotation ist ein Protokoll - also für uns "Pascal Menschen" ein Interface.
MKUserLocation ist eine Klasse. Wenigstens da haben sich die ObjC'ler mal an die Wort-Definition gehalten.


Also könntest Du auch auf "conformsToProtocol" prüfen.

MKUserLocation Class Reference
NSObject respondsToSelector:

MKAnnotation Protocol Reference
NSObject conformsToProtocol:

BTW..
Klickst Du dir gerade alles an Hand der Delphi Doku zusammen oder hast Du einen vorhandenen ObjC Beispiel Code, an dem Du dich lang hangelst?
Falls Du irgendwas passendes in ObjC da hast, dann poste das mal.
Wenn das ein kurzer Code ist, dann baue ich mir schnell in Oxygene ein Pascal Ponton und poste die .pas hier.
Der Übersetzungsschritt von Oxygene zu FireMonkey dürfte dann nicht mehr so schwer sein.

[Mavarik]

Zitat:

Zitat von jensw_2000 (Beitrag 1225755)

MKAnnotation ist ein Protokoll - also für uns "Pascal Menschen" ein Interface.
MKUserLocation ist eine Klasse. Wenigstens da haben sich die ObjC'ler mal an die Wort-Definition gehalten.


Also könntest Du auch auf "conformsToProtocol" prüfen.

MKUserLocation Class Reference
NSObject respondsToSelector:

MKAnnotation Protocol Reference
NSObject conformsToProtocol:

Ok was auch immer conformstoprotocol bedeutet...

Also ist mein Interface mit iobjectivC falsch?

[jensw_2000]

Zitat:

Zitat von Mavarik (Beitrag 1225756)

Ok was auch immer conformstoprotocol bedeutet...

Wie gesagt: ObjC "protocol" = pascal "interface".
Die Funktion ist also ähnlich supports().
Klick selbst auf den Apple Link! :wink:

Zitat:

Zitat von Mavarik (Beitrag 1225756)

Also ist mein Interface mit iobjectivC falsch?

Keine Ahnung wie die FMX ObjC Wrapper richtig ticken.
Da bin ich drüber hinweg ...


PS:
Was hast Du eigentlich genau vor?
Bzw. bist Du sicher, dass nicht schon irgendwo vorher ein Knoten drin ist?

MKMapViewDelegate mapView:viewForAnnotation:


Cocoa will von Dir in dieser Funktion wissen, in welcher Form eine gewisse Annotation in der Karte dargestellt werden soll. Die Annotations musst Du vorher also irgendwo schon mal erstellt haben. Vergib dort, wo du Herr über die erstellten Objekte bist, doch einfach jeder Annotation einen Tag...

Dann kannst Du mit Case ganz simpel drauf reagieren..

Delphi-Quellcode:

case viewForAnnotation.tag of
  0:  exit(neue View für MKUserLocation);
  1:  exit(neue View für MKAnnotation);
  else exit(nil);  // wird eine Standard PIN Nadel
end;

Schau Dir mal in einer ruhigen Minute Frank Jüstel's "GeoCoder" Video dazu an.
Ist Xcode und ObjC, aber Frank erklärt immer sehr detailliert alle Zusammenhänge.
Das ist sehr guter Stoff, um zu verstehen, was man wie und wo machen muss, um ans Ziel zu kommen.

[arnof]

Hi, ich kann mir ja nur denken, was Du am Ende in deinem Projekt machen willst (Die nächsten Anfahrtspunkte anzeigen). Aber zu Betazeiten von XE4 gab es folgenden Blogeintrag den ich auch mal nachgebaut hatte:

http://www.danielmagin.de/blog/index...s-application/

Vielleicht hilft es ja

[mkinzler]

Besziehungsweise in den nativen Controls gibt es diverse Demos hierfür
http://sourceforge.net/projects/dpfdelphiios/

[Mavarik]

Zitat:

Zitat von mkinzler (Beitrag 1225795)

Besziehungsweise in den nativen Controls gibt es diverse Demos hierfür
http://sourceforge.net/projects/dpfdelphiios/

Ja und er hat die Header Datei anders umgesetzt als Lars...

und leider:

Delphi-Quellcode:

function TMKMapViewDelegate.mapView( mapView: MKMapView; viewForAnnotation: MKAnnotation ): MKAnnotationView;
{ const
  AnnotationIdent = 'Annotation';
  var
  pinView: MKPinAnnotationView;
  P      : Pointer;
  an     : MKAnnotation; }
begin
  (* Complete in the next version

fehlt genau noch diese Function

Mavarik

[arnof]

Frage den doch einfach mal, der ist bei emba im Forum recht aktiv .....