[GUID] Comment créer un GUID ?

Version imprimable

29/08/2006, 15h02
Pascal Jankowski

[GUID] Comment créer un GUID ?

Tout est dit dans le titre

Comment créer un GUID lors du runtime ?
29/08/2006, 15h08
anapurna

salut

as tu regarde de ce coté

Code:

CreateGUID(out Guid: TGUID): HResult;

@+ Phil

Oui effectivement je viens de trouver mon bonheur.

Code:

1
2
3
4
5
6
7
8
9
10
11
 
uses comObj, ActiveX;
 
function CreateGuid: string;
var
  GUID: TGUID;
begin
  Result := '';
  if CoCreateGuid(GUID) = S_OK then
    Result := GUIDToString(GUID);
end;

Merci ;)

29/08/2006, 18h58
sjrd

Si tu dois créer un GUID pour une de tes interfaces, utilise Ctrl+Alt+G dans le code :)
29/08/2006, 19h47
Pascal Jankowski

Citation:

Envoyé par sjrd

Si tu dois créer un GUID pour une de tes interfaces, utilise Ctrl+Alt+G dans le code :)

Merci Sébastien, je connais bien ce raccourci clavier très utile lors de l'utilisation des interfaces objet. ;)

Actuellement, je suis sur une partie de code où je gère la persistence et pour être sûr de retrouver mes petits il me fallait pouvoir leur attibuer lors de leur instanciation une clé unique. De plus ces objets peuvent correspondre avec un enregistrement d'une table d'une base de données. Je détourne l'utilisation première des GUID pour répondre à mon problème. C'est pour cela que j'avais besoin de créer un GUID au runtime.