AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

GUID Format wandeln

Ein Thema von TomyN · begonnen am 15. Apr 2021 · letzter Beitrag vom 16. Apr 2021
Antwort Antwort
TomyN

Registriert seit: 8. Nov 2006
Ort: Bayreuth
108 Beiträge
 
Delphi 10.3 Rio
 
#1

GUID Format wandeln

  Alt 15. Apr 2021, 22:15
Hallo,

Ich versuche gerade etwas Code von C nach Delphi zu portieren. Dabei bin ich über eine seltsame GUID Deklaration gestolpert, bei der ich irgendwie nicht weiterkomme:

Code:
GUID IID_OF_INTERFACE = { 0xA26078C5L, 0x2840, 0x4726, 0xB4, 0x27, 0xE6, 0x0F, 0xC8, 0xFE, 0xE4, 0x03 };
Ich würde das gerne in die 'String-Form' wandlen..

Tomy
Thomas Neumann
Meine Projekte
www.satlive.audio
www.levelcheck.de
  Mit Zitat antworten Zitat
Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
3.834 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#2

AW: GUID Format wandeln

  Alt 15. Apr 2021, 22:29
Delphi-Quellcode:
uses
  System.SysUtils;
const
  guid: TGuid = (D1: $A26078C5; D2: $2840; D3: $4726; D4: ($B4, $27, $E6, $0F, $C8, $FE, $E4, $03));
begin
  Writeln(guid.ToString);
end.
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.061 Beiträge
 
Delphi 10.3 Rio
 
#3

AW: GUID Format wandeln

  Alt 15. Apr 2021, 22:45
Delphi-Quellcode:
uses
  System.SysUtils;
const
  guid: TGuid = (D1: $A26078C5; D2: $2840; D3: $4726; D4: ($B4, $27, $E6, $0F, $C8, $FE, $E4, $03));
begin
  Writeln(guid.ToString);
end.
Kannte ich so auch noch nicht, ist ja viel kürzer als meins hier:
Delphi-Quellcode:
program Project15;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, System.Win.ComObj;

var
  vGUID: TGUID;
begin
  try
    vGUID.D1 := LongWord($A26078C5);
    vGUID.D2 := Word($2840);
    vGUID.D3 := Word($4726);
    vGUID.D4[0] := Byte($B4);
    vGUID.D4[1] := Byte($27);
    vGUID.D4[2] := Byte($E6);
    vGUID.D4[3] := Byte($0F);
    vGUID.D4[4] := Byte($C8);
    vGUID.D4[5] := Byte($FE);
    vGUID.D4[6] := Byte($E4);
    vGUID.D4[7] := Byte($03);
    WriteLn(GUIDToString(vGUID));
    ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.
Gruß vom KodeZwerg

Geändert von KodeZwerg (15. Apr 2021 um 22:51 Uhr) Grund: bug
  Mit Zitat antworten Zitat
TomyN

Registriert seit: 8. Nov 2006
Ort: Bayreuth
108 Beiträge
 
Delphi 10.3 Rio
 
#4

AW: GUID Format wandeln

  Alt 16. Apr 2021, 08:53
Hi,

Danke für's auf die Sprünge helfen.

Tomy
Thomas Neumann
Meine Projekte
www.satlive.audio
www.levelcheck.de
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 20:46 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf