Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Codigo fuente para GUID (https://www.clubdelphi.com/foros/showthread.php?t=88894)

elrayo76 21-08-2015 19:58:00

Codigo fuente para GUID
 
Hablando con los compañeros del trabajo nos preguntabamos como es el código que genera los números GUID.

Si alguien sabe como se hace para obtenerlos me gustaria poder conocer ese código, solo por curiosidad.

A caso es algo que solo conocen unos pocos y lo tienen bien oculto para que solo usemos las clases para generar ese número?

Saludos,
El Rayo

dec 21-08-2015 20:02:13

Hola,

Si lo que quieres es crear una o más GUID en tiempo de ejecución puedes usar algo así:

Código Delphi [-]
uses ActiveX, ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  G: TGUID;
begin
  OleCheck(CoCreateGuid(G));
  ShowMessage(SysUtils.GUIDToString(G));
end;

Visto en la misma wiki de Embarcadero.

elrayo76 21-08-2015 20:18:01

No es esactamente lo que quiero.... Lo que pretendo es conocer el código que hace posible obtener ese número.

Si lo vemos asi me interesa abrir la caja de pandora.

Saludos,
El Rayo

mamcx 21-08-2015 20:25:04

Mira esta respuesta (es python pero la idea es generica):

http://stackoverflow.com/questions/1...rl-with-python

Basicamente? Es un tema de encoding en base36,64, etc

Osea: Un GUID es un integral de 16 bytes. Entonces se hace encodign para volverlo una cadena de ancho fijo, con 32 hexs:

https://en.wikipedia.org/wiki/Global...que_identifier

ecfisa 22-08-2015 08:05:10

Hola elrayo76.

Seguramente también te resultará interesante este documento: A Universally Unique IDentifier (UUID) URN Namespace

Saludos :)

nlsgarcia 23-08-2015 00:02:20

elrayo76,

Cita:

Empezado por elrayo76
...Codigo fuente para GUID...

:rolleyes:

Revisa esta información:
Espero sea útil :)

Nelson.

Ñuño Martínez 25-08-2015 11:03:38

También puedes revisar el código fuente de Free Pascal. ;)


La franja horaria es GMT +2. Ahora son las 14:30:02.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi