Codigo fuente para GUID

[dec]

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]

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]

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]

Hola elrayo76.

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

Saludos

[[nlsgarcia]]

elrayo76,

Empezado por elrayo76

...Codigo fuente para GUID...

Revisa esta información:

1- The Quick Guide to GUIDs

2- A Universally Unique IDentifier (UUID) URN Namespace

3- Universally unique identifier

Espero sea útil

Nelson.

[Ñuño Martínez]

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