delphi访问饿了么接口所需的UUID4编码

2017-08-15 19:20:41来源:CSDN作者:bettyzhang1996人点击

分享
function getUUID4 :string;
var
  Uid: TGuid;
  Res: HResult;
  Nres:string;
begin
  Res := CreateGuid(Uid);
  if res=S_Ok then
    begin
      Nres:=GuidToString(Uid);
      Nres:=copy(Nres,2,length(Nres)-2);
      result:=Nres;
    end
    else
      begin
        showmessage('UUID4创建失败');
      end;

最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台