Geolocation Windows API

[Mantrid]

Zitat von dtpfl:

Ich melde mich mal die Tage.

Muss nicht sein.

Im Moment interessieren uns nur ERP Programme, die wir bei unseren Kunden verwenden könnten. Für alles andere wird derzeit kein Auftrag angenommen.

[TiGü]

Bitte sehr:

Delphi-Quellcode:

type
    TAccessStatusCompletedHandler = class(TInspectableObject,
        AsyncOperationCompletedHandler_1__GeolocationAccessStatus_Delegate_Base,
        AsyncOperationCompletedHandler_1__GeolocationAccessStatus)
    private
        FEvent: TAccessStatusCompletedHandlerCompleted;
    public
        procedure Invoke(asyncInfo: IAsyncOperation_1__GeolocationAccessStatus; asyncStatus: AsyncStatus); safecall;
        constructor Create(AEvent: TAccessStatusCompletedHandlerCompleted);
    end;

Beim Debuggen der Zuweisung AsyncOperation.Completed := CompletedHandler; kommt man in TInterfacedObject.QueryInterface raus:

Code:

System.TInterfacedObject.QueryInterface((4082257043, 58823, 23432, (190, 219, 211, 230, 55, 207, 242, 113)),(no value))
:76d2de72 combase.RoGetAgileReference + 0x62
:77b6272b ; C:\Windows\SysWOW64\Geolocation.dll
:77b742e1 ; C:\Windows\SysWOW64\Geolocation.dll
:77b7637d ; C:\Windows\SysWOW64\Geolocation.dll
Unit9.TForm9.Button3Click($43A6380)

Hier wird nach der IID = (4082257043, 58823, 23432, (190, 219, 211, 230, 55, 207, 242, 113)) gefragt, was als bekannte Hex(-String) Darstellung dem hier entspricht: '{F3524C93-E5C7-5B88-BEDB-D3E637CFF271}' .
Das wiederrum ist in Winapi.Devices.Geolocation das Interface AsyncOperationCompletedHandler_1__GeolocationAccessStatus_Delegate_Base .

Lessons Learned:
1. Debug-DCU einschalten.
2. Trace into (F7) Debugging nutzen.
3. Bei (COM-)Interface-Geschichten im Zweifelsfall ruhig auch das Eltern-Interface mit in die Klasse ziehen, auch wenn keine Methoden darin definiert sind.

[dtpfl]

Zitat von TiGü:

Bitte sehr:

Delphi-Quellcode:

type
    TAccessStatusCompletedHandler = class(TInspectableObject,
        AsyncOperationCompletedHandler_1__GeolocationAccessStatus_Delegate_Base,
        AsyncOperationCompletedHandler_1__GeolocationAccessStatus)
    private
        FEvent: TAccessStatusCompletedHandlerCompleted;
    public
        procedure Invoke(asyncInfo: IAsyncOperation_1__GeolocationAccessStatus; asyncStatus: AsyncStatus); safecall;
        constructor Create(AEvent: TAccessStatusCompletedHandlerCompleted);
    end;

Beim Debuggen der Zuweisung AsyncOperation.Completed := CompletedHandler; kommt man in TInterfacedObject.QueryInterface raus:

Code:

System.TInterfacedObject.QueryInterface((4082257043, 58823, 23432, (190, 219, 211, 230, 55, 207, 242, 113)),(no value))
:76d2de72 combase.RoGetAgileReference + 0x62
:77b6272b ; C:\Windows\SysWOW64\Geolocation.dll
:77b742e1 ; C:\Windows\SysWOW64\Geolocation.dll
:77b7637d ; C:\Windows\SysWOW64\Geolocation.dll
Unit9.TForm9.Button3Click($43A6380)

Hier wird nach der IID = (4082257043, 58823, 23432, (190, 219, 211, 230, 55, 207, 242, 113)) gefragt, was als bekannte Hex(-String) Darstellung dem hier entspricht: '{F3524C93-E5C7-5B88-BEDB-D3E637CFF271}' .
Das wiederrum ist in Winapi.Devices.Geolocation das Interface AsyncOperationCompletedHandler_1__GeolocationAccessStatus_Delegate_Base .

Lessons Learned:
1. Debug-DCU einschalten.
2. Trace into (F7) Debugging nutzen.
3. Bei (COM-)Interface-Geschichten im Zweifelsfall ruhig auch das Eltern-Interface mit in die Klasse ziehen, auch wenn keine Methoden darin definiert sind.

Oh wow vielen Dank! So tief war ich noch nie im Debuggen.
Ich krieg zwar keinen Dialog wo man nach der Erlaubnis gefragt wird, aber das denke ich liegt daran dass VCL keine WINUI oder UWP ist.
Ich schau mal was ich hier machen kann.

Btw. wo enable ich Debug-DCU?

[TurboMagic]

Debug DCUs: Projekt/Optionen/Erzeugen/Delphi-Compiler/Compilieren/Mit Debug DCUs

[dtpfl]

Zitat:

IID = (4082257043, 58823, 23432, (190, 219, 211, 230, 55, 207, 242, 113)) gefragt, was als bekannte Hex(-String)

Wie kommst du von diesem Wert zu diesem Hex(-String)? Was wäre hier die einfachste Möglichkeit?

[KodeZwerg]

Zitat von dtpfl:

Zitat:

IID = (4082257043, 58823, 23432, (190, 219, 211, 230, 55, 207, 242, 113)) gefragt, was als bekannte Hex(-String)

Wie kommst du von diesem Wert zu diesem Hex(-String)? Was wäre hier die einfachste Möglichkeit?

Vielleicht so?

Delphi-Quellcode:

  function ToIID(A: Cardinal; B, C: Word; D, E, F, G, H, I, J, K: Byte): string;
  begin
    Result := '{' + IntToHex(A) + '-' + IntToHex(B) + '-' + IntToHex(C) + '-' +
              IntToHex(D) + IntToHex(E) + '-' + IntToHex(F) + IntToHex(G) +
              IntToHex(H) + IntToHex(I) + IntToHex(J) + IntToHex(K) + '}';
  end;
var
  s: string;
begin
  s := ToIID(4082257043, 58823, 23432, 190, 219, 211, 230, 55, 207, 242, 113);
  ShowMessage(s);
end;

[TiGü]

Zitat von dtpfl:

Zitat:

IID = (4082257043, 58823, 23432, (190, 219, 211, 230, 55, 207, 242, 113)) gefragt, was als bekannte Hex(-String)

Wie kommst du von diesem Wert zu diesem Hex(-String)? Was wäre hier die einfachste Möglichkeit?

Kopfrechnen?

Nur Spaß, mit ein-zwei Zeilen bist du dabei (siehe auch vorige Antworten):

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
    IID: TGUID;

begin
  try
    IID :=  TGUID.Create(4082257043, 58823, 23432, 190, 219, 211, 230, 55, 207, 242, 113);
    Writeln(IID.ToString)
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.

Das verwendet dann den TGUIDHelper aus System.SysUtils (nein, ich weiß nicht seit wann das drin ist, bitte fragt nicht):

Delphi-Quellcode:

class function TGUIDHelper.Create(A: Cardinal; B, C: Word; D, E, F, G, H, I, J, K: Byte): TGUID;
begin
  Result.D1 := UInt32(A);
  Result.D2 := Word(B);
  Result.D3 := Word(C);
  Result.D4[0] := D;
  Result.D4[1] := E;
  Result.D4[2] := F;
  Result.D4[3] := G;
  Result.D4[4] := H;
  Result.D4[5] := I;
  Result.D4[6] := J;
  Result.D4[7] := K;
end;

[himitsu]

Delphi-Quellcode:

procedure guidtest(guid: TGUID);
begin
end;

const
  myguid: TGUID = '{F3524C93-E5C7-5B88-BEDB-D3E637CFF271}';  // hier geht es, unten nicht :(

procedure TForm21.FormCreate(Sender: TObject);
var
  guid: TGUID;
  bytes: TBytes;
begin
  guid := TGUID.Create('{F3524C93-E5C7-5B88-BEDB-D3E637CFF271}');
  //guid := '{F3524C93-E5C7-5B88-BEDB-D3E637CFF271}';
  guid := myguid;  // komisch da geht es, warum nicht auch das davor?
  //guidtest('{F3524C93-E5C7-5B88-BEDB-D3E637CFF271}'); geht auch nicht
  guidtest(TGUID.Create('{F3524C93-E5C7-5B88-BEDB-D3E637CFF271}'));

  // den hatte ich auf die Schnelle übersehn .. dachte ihn gibt es (noch) nicht
  guid := TGUID.Create(4082257043, 58823, 23432, 190, 219, 211, 230, 55, 207, 242, 113);

  // mit der ByteOrder bin ich mir grade nicht sicher ... kann sein (wird aber bestimmt so sein), das man die ersten LongWord/Word umdrehen muß.
  bytes := [243, 82, 76, 147, {} 229, 199, {} 91, 136, {} 190, 219, 211, 230, 55, 207, 242, 113];
  guid := TGUID.Create(bytes);  // als Array
  guid := TGUID.Create(bytes[0]);  // als "irgendwelche" binäre Daten (Zeiger) -> TGUIDHelper.Create(const Data; DataEndian: TEndian=TEndian.Little)
end;

[himitsu]

ID.ToString TGuidHelper.ToString

Zitat von dtpfl:

aber das denke ich liegt daran dass VCL keine WINUI oder UWP ist.

Das kann man so nicht mehr so einfach sagen.

Ich weiß jetzt nicht, wie es bei dieser Komponente aussieht, aber viele neue Komponenten, im Delphi, greifen intern auf die API der UWP zu, auch wenn du für Win32 (32 oder 64 Bit) kompiliert hast.
Wenn ich mich recht erinnere, z.B. bei den Bluetooth-Komponenten.

Zitat von dtpfl:

Btw. wo enable ich Debug-DCU?

Projekt-Optionen > Delphi-Compiler -> Compilieren

[KodeZwerg]

Zitat von himitsu:

ID.ToString TGuidHelper.ToString

Wie wendet man das an um aus "IID = (4082257043, 58823, 23432, (190, 219, 211, 230, 55, 207, 242, 113))" das zu machen "{F3524C93-E5C7-5B88-BEDB-D3E637CFF271}" ?