廣告

2024 年 3 月
 123
45678910
11121314151617
18192021222324
25262728293031

彙整

在 Delphi 中獲得 GUID(獨一無二的識別碼)

GUID原本還看不懂,後來翻譯字面意思才知道它有獨一無二的意思,所以在程式裡面啥時候需要獨一無二碼的時候就很有用處啦!!!!

 

文章來源:http://blog.bestlong.idv.tw/2009/07/25/655

 

七月.25, 2009 in Delphi

GUID (Globally Unique IDentifier) 是一個 128-bit Integer (16 bytes) 的數值。

在 Delphi IDE 中可以按下 Ctrl + Shift + G 快捷鍵會出現類似下列的 GUID 值:

1

[‘{2F45BDFE-1BE4-404D-9C5B-4B481D6A7482}’]

每次按下快捷鍵都會產生不同的 GUID 值。

 

 

而程式中產生 GUID 值的方式如下列程式碼:

procedure TForm1.FormCreate(Sender: TObject);
var
  s_GUID: string;
  t_GUID: TGUID;
begin
if CoCreateGUID(t_GUID) = S_OK then
begin
    s_GUID := GUIDToString(t_GUID);
    ShowMessage(s_GUID);
end else begin
    ShowMessage(‘Create GUID ERROR.’);
end;
end;

 

In Delphi 5 need uses ComObj, ActiveX.

也可以當作 UUID 來應用。

讀者也會看的其它文章:

    Comments are closed.