//PasScript
begin
  UgLabel01.Cantion := UGMM.ApplicationVersion;
End;

//PasScript
var
 vGuid:string;
begin
  vGuid := UGMM.CreateGuid;
End;

//PasScript
var
 vStrings:TStringList;
begin
 vStrings:=UGMM.CreateStringList('UTF-8');
end;

//PasScript
begin
  ShowMessage(UGMM.DecodeString('NW9pUjVwaXY1TGl0NVp1OTVMcTY3N3lCUkdWc2NHaHA='));
End;

//PasScript
begin
  ShowMessage(UGMM.EncodeString('Hi,Hello'));
End;

//PasScript
  UGMM.ExpExcel(gridFrames,UGMM.LT('模块列表(WEB)'),UGMM.LT('模块列表(WEB)'));

//PasScript
procedure UgButton01OnClick(sender: TObject);
begin
  //通过与uploadfinished绑定，获取上传的文件名称
  UGMM.UpLoadFile(self,'ABC','12123',1000000,@uploadfinished);
end;

procedure uploadfinished(Const aUpLoadList:String);
Begin
  showmessage(aUpLoadList);
end;

//PasScript
var
 obj:TObject;
begin
  obj := UGMM.GetObject('ObjectName');
End;

//PasScript
Var
  F:TUniForm;
  i:String;
begin
  //打开任务登记
  F := UGMM.GetWebSubForm('WebSubForm');
  TUgWebForm(F).Caption := 'SubForm'; 
  ...
  if F.ShowModal = mrOK then 
  Begin
     TUgWebForm(F).Close;
  End;
end;

//PasScript
Var
  F:TUnimForm;
  i:String;
begin
  //打开任务登记
  F := UGMM.GetAppSubForm('AppSubForm');
  TUgAppForm(F).Caption := 'SubForm'; 
  ...
  if F.ShowModal = mrOK then 
  Begin
     TUgAppForm(F).Close;
  End;
end;

//PasScript
UGMM.GetBeanCode('8F62424E-FD72-422B-8C2F-0A25A4F9FEAC');

//PasScript
Var  
  FDConn:TFDConnection;
begin
  //获取 FastERP 节点数据库
  FDConn := UGMM.GetNodeDataLink('FastERP');
  UgFDQuery01 := TUgFDQuery01.Create;
  UgFDQuery01.Connection := FDConn;
  try
     //打开数据
    UgFDQuery01.SQL.Text := 'Select * from Basic_Unit';
    UgFDQuery01.Open();
  Finally
    UgFDQuery01.free;
  end;
end;

//PasScript
var
  M : TMemoryStream;
  R : IUGRunScript;
  C : TComponent;
begin
  C := UGMM.GetRunFrame(Self,H,iif(pos('.',H) > 0,gsFile,gsData));
  if C <> nil then
  begin
    TControl(C).Parent := Self;
    C.Name:='WebHomePages';
    TUGWebRunFrame(C).Align := TAlign.alClient;
    if C.GetInterface(IUGRunScript,R) Then
    R.Run(nil);
  end;
end;

//PasScript
Var
  p:TUniTabSheet;
  f:TUGDesignFrame;
  g:String;
Begin
  if cdsFrames.IsEmpty then
    RaiseException(UGMM.LT('Can''t design without record'));
  if UGMM.Informations.Values['UserGuid'] <> cdsFrames.FieldbyName('Developer').asString then
    RaiseException(UGMM.LT('You do not have permission to design this module')); 
  if Self.IsDesignMode then 
    RaiseException(UGMM.LT('The module list is in IDE development mode. Design modules are prohibited'));

  g := cdsFrames.FieldbyName('Guid').AsString;
  p := TUniTabSheet(Self.Parent.Owner.FindComponent('PDesign' + ReplaceText(ReplaceText(g,'-','_'),'.','_')));
  //showmessage(Self.Parent.Owner.name);
  if Not Assigned(p) then
  Begin
    p := TUniTabSheet.Create(Self.Parent.Owner);
    p.Name := 'PDesign' + ReplaceText(ReplaceText(g,'-','_'),'.','_');
    p.Caption :=cdsFrames.FieldbyName('Caption').AsString + '.Web';
    p.PageControl := TUniTabSheet(Self.Parent).PageControl;
    p.Closable := True;

    f := TUGDesignFrame(UGMM.GetDesignFrame(p,g));
    f.Align := alClient;
    f.Parent := p;
  End;
  p.PageControl.ActivePage := p;
End;

//PasScript
Var
  f:TUniForm;
  g:String;
Begin
  if cdsFrames.IsEmpty then
    RaiseException(UGMM.LT('Can''t design without record'));
  if UGMM.Informations.Values['UserGuid'] <> cdsFrames.FieldbyName('Developer').asString then
    RaiseException(UGMM.LT('You do not have permission to design this module')); 
  if Self.IsDesignMode then 
    RaiseException(UGMM.LT('The module list is in IDE development mode. Design modules are prohibited'));
  g := cdsFrames.FieldbyName('Guid').AsString;
  f := TUniForm(UGMM.GetDesignFormatEditing(g));
  f.ShowModal;
End;

//PasScript
Var
  g:String;
  f:TUniFrame;
  p:TUniTabSheet;
begin
  if cdsRestAPIs.IsEmpty then
    RaiseException(UGMM.LT('Can''t design without record'));
  if UGMM.Informations.Values['UserGuid'] <> cdsRestAPIs.FieldbyName('Developer').asString then
    RaiseException(UGMM.LT('You do not have permission to design this module')); 
  if Self.IsDesignMode then 
    RaiseException(UGMM.LT('The module list is in IDE development mode. Design modules are prohibited'));

  g := cdsRestAPIs.FieldbyName('Guid').AsString;

  p := TUniTabSheet(Self.Parent.Owner.FindComponent('PDesign' + ReplaceText(ReplaceText(g,'-','_'),'.','_')));

  if Not Assigned(p) then
  Begin
    p := TUniTabSheet.Create(Self.Parent.Owner);
    p.Name := 'PDesign' + ReplaceText(ReplaceText(g,'-','_'),'.','_');
    p.Caption :=cdsRestAPIs.FieldbyName('APIName').AsString + '.Pas';
    p.PageControl := TUniTabSheet(Self.Parent).PageControl;
    p.Closable := True;

    f := TUniFrame(UGMM.GetDesignRestAPI(p,g));
    f.Align := alClient;
    f.Parent := p;
  End;
  p.PageControl.ActivePage := p;
end;

//PasScript
var
 vCaption:String;
begin
  //获取模块标题
  vCaption := UGMM.GetFrameCaption('29B1B867-2CC6-413C-9058-FB332D3D0EDD');
end;

//PasScript
Strings := UGMM.GetSQLCommandNodeName('SQL001');

//PasScript
Strings := UGMM.GetSQLCommandText('SQL001');

//PasScript
var
  F: TUgWebForm;
begin
  F := UGMM.GetWebSubForm('W-EQ-MOD-2120-2');
  if F.ShowModal = mrOK then
  begin
  
  end;
  //释放打开的窗口W-EQ-MOD-2120-2
  UGMM.DelWebSubForm('W-EQ-MOD-2120-2');
end;

//PasScript
procedure UgButton05OnClick(sender: tobject);
begin
    if UGMM.ImpExcel(UgDBGrid01,'Import Excel','') then
    begin
      UgRFDataSet01.ApplyUpdates(-1);
    End;
end;

Begin
  UgRFDataSet01.Connection := GETRFWeb;
  UgRFDataSet01.SQL.Text := 'SELECT TOP 0 * FROM Pass_Cust';
  UgRFDataSet01.Open;
End.

//PasScript
begin
  UgLabel01.Cantion := UGMM.LT('Cust Name');
End;

//PasScript
begin
  //验证用户密码
  if UGMM.LogInChecking(GetSignInType(FSignInType),edUserName.Text,edPassWord.Text,edLanguage.Text,'WEB') then
  begin//密码正确时登陆
   ...
  end;
end;

//PasScript
var 
  l: TStringList;
begin
  l := TStringList.Create();
  l.Values['text'] := 'Hello WebSocket Test';
  if (UGMM.SendWsMsg('demo','callback','bean-001','updatememo','0',l))  then
  begin
    ShowMessage('Send Success!');  
  end;
  l.Free;
end;

//PasScript
  UGMM.SendWsMsgBySId('esp32_001','Off');

//PasScript
  msg = '{' +
    '"username": "demo",' +              					 		//WebSocket消息发送的目标用户
    '"action": "callback",' +            					 		//WebSocket消息告知IsoBean执行的动作
    '"tag": "0",' + 
    '"data": {' +
        '"callbackcomponent": "wb-das-0001_dashboard-demo1",' +   	//执行动作的目标组件名称
        '"callbackeventname": "update",' +  			//执行触发OnAjaxEvent事件的 eventname(事件名称)
    	'"callbackparams": [' +             						 //传输的键值，可以有一对或者多对
      	'{' +
            '"paramname": "type",' +
        	'"paramvalue": "header"' +
      	'},' +
      	'{' +
        	'"paramname": "dataMonthOrder",' +
        	'"paramvalue": "' + Q.FieldByName('dataMonthOrder').asString + '"' +
      	'},' +
      	'{' +
            '"paramname": "dataNewMember",' +
        	'"paramvalue": "' + Q.FieldByName('dataNewMeber').asString + '"' +
      	'},' +
      	'{' +
        	'"paramname": "dataOnceConsume",' +
        	'"paramvalue": "' + Q.FieldByName('dataOnceConsume').asString + '"' +
      	'}' +
    	']' +
     '}' +
  '}';
  UGMM.SendWsMsgByStr(msg);

//PasScript
   //下载文件到本地，并通过UgPDFFrame控件打开预览
   if UGMM.URLDownloadToFile('File URL','temp\report.pdf') =0 then 
     UgPDFFrame01.PdfURL := 'temp\report.pdf';

//PasScript
begin
   if UGMM.VerifyRunFramePermType(TUgWebRunFrame(Self),'New','admin') Then
   Begin
     ShowMessage('permissions available');
   end;
end;

//PasScript
begin
   if UGMM.VerifyPermGuid('Guid') Then
   Begin
     ShowMessage('permissions available');
   end;
end;

//PasScript
Var 
  Amount:double;
begin
  Amount := 123456.78;
  Showmessage(UGCM.AmountToChinese(Amount));
end;

//PasScript
procedure UgFileUploadButton01OnCompleted(sender: tobject;astream: tfilestream);
var
  DestName : string;
  DestFolder : string;
begin
    //远程文件路径
    DestFolder:=UGSM.StartPath+'temp\';
    DestName:=DestFolder+UgFileUploadButton01.FileName;
    //上传文件
    CopyFile(UGCM.GetFileStreamFileName(AStream), DestName, False);
    ugedit04.Text := DestName;
end;

//PasScript
Var 
  Time:String;
begin
  Time := '2020-12-01 12:12:12';
  Showmessage(UGCM.Gettamptime(Time,13));
end;

//PasScript
Var 
  Timetamp:String;
begin
  Timetamp := '1606795932000';
  Showmessage(UGCM.GettampTotime(Timetamp));
end;

//PasScript
Var 
  Hex:String;
begin
  Hex := '0A';
  Showmessage(IntToStr(UGCM.HexToInt(Hex)));
end;

//PasScript
//保留一位小数
Var 
  d:double;
begin
  d:=12345.56;
  Showmessage(FloatToStr(UGCM.RoundToCH(d,1)));
end;

//PasScript
//ZoneMinder API用于获取监视器列表
//curl http://server/zm/api/monitors.json
begin
  s := UGCM.NetHttpGet(edtURL.Text + '/monitors.json?token=' + token,'');
  mmLog.Lines.Clear;
  mmLog.Lines.Add(DateTimeToStr(now()) + '： ' + s);
end;

//PasScript
//ZoneMinder 使用API来修改监视器功能
//curl -XPOST http://server/zm/api/monitors/1.json -d "Monitor[Function]=Modect&Monitor[Enabled]=1"
Var
  s: string;
  postString: string;
begin
    postString := 'Monitor[Function]=' + cbFunction.Items.Strings[cbFunction.ItemIndex] + '&Monitor[Enabled]=1';
    s := UGCM.NetHttpPost(edtURL.Text + '/monitors/1.json?token=' + token,postString,'','application/x-www-form-urlencoded');
    mmLog.Lines.Clear;
    mmLog.Lines.Add(DateTimeToStr(now()) + '： ' + s);
end;

//PasScript
//ZoneMinder使用API来编辑监视器
//此命令会将监视器 1 的“名称”字段更改为“test1”
//curl -XPUT http://server/zm/api/monitors/1.json -d "Monitor[Name]=test1"
//修改检视器名称
Var
  s: string;
begin
  s := UGCM.NetHttpPut(edtURL.Text + '/monitors/1.json?token=' + token,'Monitor[Name]=' + 
  edtMonitorName.Text,'','application/x-www-form-urlencoded');
  mmLog.Lines.Clear;
  mmLog.Lines.Add(DateTimeToStr(now()) + '： ' + s);
end;

//PasScript
//ZoneMinder使用API来删除监视器
//curl -XDELETE http://server/zm/api/monitors/1.json
//删除监视器
var
  s: string;
begin
  s := UGCM.NetHttpDelete(edtURL.Text + '/monitors/4.json?token=' + token,'');
  mmLog.Lines.Clear;
  mmLog.Lines.Add(DateTimeToStr(now()) + '： ' + s);
end;

//PasScript
Var 
  J:TJSONObject;
  s: String;
begin
  J:=TJSONObject.Create;
  s:= '{"status": "OK","Language":{"DefaultLanguage": 1}}';
  Try
     j := TJSONObject(j.ParseJSONValue(s,false,false));
     j :=UGCM.GetJSONObject(j,'Language');
     ShowMessage(UGCM.GetJSONNumber(j,'DefaultLanguage'));
     //上述两句程序也可改写为
     //ShowMessage(UGCM.GetJSONNumber(j,'Language.DefaultLanguage'));
  Finally
    j.Free;
  end;
end;

//PasScript
Var 
  J:TJSONObject;
  A:TJSONArray;
  s: String;
begin
  J:=TJSONObject.Create;
  A:= TJSONArray.Create;
  s:= '{"status": "OK","Language":{"DefaultLanguage": 1,"options":[{"options":1},{"options":2}]}}';
  Try
     j := TJSONObject(j.ParseJSONValue(s,false,false));
     A := UGCM.GetJSONArray(j,'Language.options');
     J := TJSONObject(A.Items[1]);
     ShowMessage(UGCM.GetJSONNumber(j,'options'));
  Finally
    j.Free;
    A.Free;
  end;
end;

//PasScript
Var 
  J:TJSONObject;
  s: String;
begin
  J:=TJSONObject.Create;
  s:= '{"status": "OK","Language":{"DefaultLanguage": 1}}';
  Try
     j := TJSONObject(j.ParseJSONValue(s,false,false));
     ShowMessage(UGCM.GetJSONString(j,'status'));
  Finally
    j.Free;
  end;
end;

//PasScript
Var 
  J:TJSONObject;
  s: String;
begin
  J:=TJSONObject.Create;
  s:= '{"status": "OK","Language":{"DefaultLanguage": 1}}';
  Try
     j := TJSONObject(j.ParseJSONValue(s,false,false));
     j :=UGCM.GetJSONObject(j,'Language');
     ShowMessage(UGCM.GetJSONNumber(j,'DefaultLanguage'));
     //上述两句程序也可改写为
     //ShowMessage(UGCM.GetJSONNumber(j,'Language.DefaultLanguage'));
  Finally
    j.Free;
  end;
end;