├── DTEvolutionAPI.pas ├── EvolutionAPI.dpk ├── EvolutionAPI.dproj ├── EvolutionAPI.dproj.local ├── EvolutionAPI.identcache ├── EvolutionAPI.res ├── EvolutionAPI.skincfg ├── ProjectGroup1.groupproj ├── ProjectGroup1.groupproj.local ├── QrCode ├── UqrCodeEvo.dfm ├── UqrCodeEvo.pas └── __history │ ├── UqrCodeEvo.dfm.~10~ │ ├── UqrCodeEvo.dfm.~11~ │ ├── UqrCodeEvo.dfm.~12~ │ ├── UqrCodeEvo.dfm.~13~ │ ├── UqrCodeEvo.dfm.~14~ │ ├── UqrCodeEvo.dfm.~15~ │ ├── UqrCodeEvo.dfm.~6~ │ ├── UqrCodeEvo.dfm.~7~ │ ├── UqrCodeEvo.dfm.~8~ │ ├── UqrCodeEvo.dfm.~9~ │ ├── UqrCodeEvo.pas.~11~ │ ├── UqrCodeEvo.pas.~12~ │ ├── UqrCodeEvo.pas.~13~ │ ├── UqrCodeEvo.pas.~14~ │ ├── UqrCodeEvo.pas.~15~ │ ├── UqrCodeEvo.pas.~16~ │ ├── UqrCodeEvo.pas.~17~ │ ├── UqrCodeEvo.pas.~18~ │ ├── UqrCodeEvo.pas.~19~ │ └── UqrCodeEvo.pas.~20~ ├── TDTEvolutionAPI.dcr ├── demo ├── Demo.dpr ├── Demo.dproj ├── Demo.dproj.local ├── Demo.identcache ├── Demo.res ├── Demo.skincfg ├── RDa08808 ├── Unit3.dfm ├── Unit3.pas ├── Win32 │ └── Debug │ │ ├── ConnectionState.dcu │ │ ├── Contacts.dcu │ │ ├── CreateInstance.dcu │ │ ├── DTEvolutionAPI.dcu │ │ ├── Demo.exe │ │ ├── InstanceConnect.dcu │ │ ├── RespConnectionState.dcu │ │ ├── RespContacts.dcu │ │ ├── RespCreateInstance.dcu │ │ ├── RespInstanceConnect.dcu │ │ ├── RespSendText.dcu │ │ ├── RespfetchInstances.dcu │ │ ├── SendText.dcu │ │ ├── UEmojisEvo.dcu │ │ ├── Unit3.dcu │ │ ├── UntToken.dcu │ │ ├── UqrCodeEvo.dcu │ │ └── fetchInstances.dcu └── __history │ ├── Unit3.dfm.~135~ │ ├── Unit3.dfm.~136~ │ ├── Unit3.dfm.~137~ │ ├── Unit3.dfm.~138~ │ ├── Unit3.dfm.~139~ │ ├── Unit3.dfm.~140~ │ ├── Unit3.dfm.~141~ │ ├── Unit3.dfm.~142~ │ ├── Unit3.dfm.~143~ │ ├── Unit3.dfm.~144~ │ ├── Unit3.pas.~100~ │ ├── Unit3.pas.~101~ │ ├── Unit3.pas.~102~ │ ├── Unit3.pas.~103~ │ ├── Unit3.pas.~104~ │ ├── Unit3.pas.~105~ │ ├── Unit3.pas.~106~ │ ├── Unit3.pas.~107~ │ ├── Unit3.pas.~108~ │ └── Unit3.pas.~99~ ├── dto ├── UntToken.pas ├── __history │ ├── CreateInstance.pas.~27~ │ ├── CreateInstance.pas.~28~ │ ├── CreateInstance.pas.~29~ │ ├── CreateInstance.pas.~30~ │ ├── CreateInstance.pas.~31~ │ ├── CreateInstance.pas.~32~ │ ├── CreateInstance.pas.~33~ │ ├── CreateInstance.pas.~34~ │ ├── CreateInstance.pas.~35~ │ ├── CreateInstance.pas.~36~ │ ├── InstanceConnect.pas.~1~ │ ├── UntToken.pas.~1~ │ ├── UntToken.pas.~2~ │ ├── fetchInstances.pas.~1~ │ ├── fetchInstances.pas.~2~ │ ├── fetchInstances.pas.~3~ │ ├── fetchInstances.pas.~4~ │ └── fetchInstances.pas.~5~ ├── contacts │ ├── Contacts.pas │ ├── RespContacts.pas │ └── __history │ │ ├── Contacts.pas.~10~ │ │ ├── Contacts.pas.~11~ │ │ ├── Contacts.pas.~2~ │ │ ├── Contacts.pas.~3~ │ │ ├── Contacts.pas.~4~ │ │ ├── Contacts.pas.~5~ │ │ ├── Contacts.pas.~6~ │ │ ├── Contacts.pas.~7~ │ │ ├── Contacts.pas.~8~ │ │ ├── Contacts.pas.~9~ │ │ └── RespContacts.pas.~1~ ├── emojis │ ├── UEmojisEvo.pas │ └── __history │ │ ├── UEmojis.pas.~1~ │ │ ├── UEmojisEvo.pas.~1~ │ │ └── UEmojisEvo.pas.~2~ ├── instance │ ├── ConnectionState.pas │ ├── CreateInstance.pas │ ├── InstanceConnect.pas │ ├── RespConnectionState.pas │ ├── RespCreateInstance.pas │ ├── RespInstanceConnect.pas │ ├── RespfetchInstances.pas │ ├── __history │ │ ├── ConnectionState.pas.~1~ │ │ ├── ConnectionState.pas.~2~ │ │ ├── ConnectionState.pas.~3~ │ │ ├── ConnectionState.pas.~4~ │ │ ├── ConnectionState.pas.~5~ │ │ ├── ConnectionState.pas.~6~ │ │ ├── ConnectionState.pas.~7~ │ │ ├── ConnectionState.pas.~8~ │ │ ├── ConnectionState.pas.~9~ │ │ ├── CreateInstance.pas.~1~ │ │ ├── CreateInstance.pas.~2~ │ │ ├── CreateInstance.pas.~3~ │ │ ├── CreateInstance.pas.~4~ │ │ ├── CreateInstance.pas.~5~ │ │ ├── InstanceConnect.pas.~1~ │ │ ├── InstanceConnect.pas.~2~ │ │ ├── InstanceConnect.pas.~3~ │ │ ├── InstanceConnect.pas.~4~ │ │ ├── InstanceConnect.pas.~5~ │ │ ├── InstanceConnect.pas.~6~ │ │ ├── RespConnectionState.pas.~1~ │ │ ├── RespConnectionState.pas.~2~ │ │ ├── RespCreateInstance.pas.~1~ │ │ ├── RespCreateInstance.pas.~2~ │ │ ├── RespInstanceConnect.pas.~1~ │ │ ├── RespfetchInstances.pas.~1~ │ │ ├── fetchInstances.pas.~1~ │ │ ├── fetchInstances.pas.~2~ │ │ └── fetchInstances.pas.~3~ │ └── fetchInstances.pas └── mensagem │ ├── RespSendText.pas │ ├── SendText.pas │ └── __history │ ├── SendText.pas.~27~ │ ├── SendText.pas.~28~ │ ├── SendText.pas.~29~ │ ├── SendText.pas.~30~ │ ├── SendText.pas.~31~ │ ├── SendText.pas.~32~ │ ├── SendText.pas.~33~ │ ├── SendText.pas.~34~ │ ├── SendText.pas.~35~ │ └── SendText.pas.~36~ └── logotipo.png /DTEvolutionAPI.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/DTEvolutionAPI.pas -------------------------------------------------------------------------------- /EvolutionAPI.dpk: -------------------------------------------------------------------------------- 1 | package EvolutionAPI; 2 | 3 | {$R *.res} 4 | {$R 'TDTEvolutionAPI.dcr'} 5 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 6 | {$ALIGN 8} 7 | {$ASSERTIONS ON} 8 | {$BOOLEVAL OFF} 9 | {$DEBUGINFO OFF} 10 | {$EXTENDEDSYNTAX ON} 11 | {$IMPORTEDDATA ON} 12 | {$IOCHECKS ON} 13 | {$LOCALSYMBOLS ON} 14 | {$LONGSTRINGS ON} 15 | {$OPENSTRINGS ON} 16 | {$OPTIMIZATION OFF} 17 | {$OVERFLOWCHECKS ON} 18 | {$RANGECHECKS ON} 19 | {$REFERENCEINFO ON} 20 | {$SAFEDIVIDE OFF} 21 | {$STACKFRAMES ON} 22 | {$TYPEDADDRESS OFF} 23 | {$VARSTRINGCHECKS ON} 24 | {$WRITEABLECONST OFF} 25 | {$MINENUMSIZE 1} 26 | {$IMAGEBASE $400000} 27 | {$DEFINE DEBUG} 28 | {$ENDIF IMPLICITBUILDING} 29 | {$IMPLICITBUILD ON} 30 | 31 | requires 32 | rtl, 33 | RESTComponents, 34 | vcl, 35 | vclimg, 36 | soaprtl; 37 | 38 | contains 39 | DTEvolutionAPI in 'DTEvolutionAPI.pas', 40 | CreateInstance in 'dto\instance\CreateInstance.pas', 41 | RespCreateInstance in 'dto\instance\RespCreateInstance.pas', 42 | UntToken in 'dto\UntToken.pas', 43 | fetchInstances in 'dto\instance\fetchInstances.pas', 44 | RespfetchInstances in 'dto\instance\RespfetchInstances.pas', 45 | InstanceConnect in 'dto\instance\InstanceConnect.pas', 46 | RespInstanceConnect in 'dto\instance\RespInstanceConnect.pas', 47 | ConnectionState in 'dto\instance\ConnectionState.pas', 48 | RespConnectionState in 'dto\instance\RespConnectionState.pas', 49 | RespSendText in 'dto\mensagem\RespSendText.pas', 50 | SendText in 'dto\mensagem\SendText.pas', 51 | UEmojisEvo in 'dto\emojis\UEmojisEvo.pas', 52 | UqrCodeEvo in 'QrCode\UqrCodeEvo.pas' {FrmqrCodeEvo}, 53 | Contacts in 'dto\contacts\Contacts.pas', 54 | RespContacts in 'dto\contacts\RespContacts.pas'; 55 | 56 | end. 57 | -------------------------------------------------------------------------------- /EvolutionAPI.identcache: -------------------------------------------------------------------------------- 1 | ?D:\Dropbox\Componentes\DTEvolutionAPI\dto\emojis\UEmojisEvo.pasFD:\Dropbox\Componentes\DTEvolutionAPI\dto\instance\InstanceConnect.pas?D:\Dropbox\Componentes\DTEvolutionAPI\dto\mensagem\SendText.pas6D:\Dropbox\Componentes\DTEvolutionAPI\dto\UntToken.pasID:\Dropbox\Componentes\DTEvolutionAPI\dto\instance\RespCreateInstance.pasJD:\Dropbox\Componentes\DTEvolutionAPI\dto\instance\RespConnectionState.pas?D:\Dropbox\Componentes\DTEvolutionAPI\dto\contacts\Contacts.pasCD:\Dropbox\Componentes\DTEvolutionAPI\dto\contacts\RespContacts.pasCD:\Dropbox\Componentes\DTEvolutionAPI\dto\mensagem\RespSendText.pas8D:\Dropbox\Componentes\DTEvolutionAPI\DTEvolutionAPI.pas;D:\Dropbox\Componentes\DTEvolutionAPI\QrCode\UqrCodeEvo.pasJD:\Dropbox\Componentes\DTEvolutionAPI\dto\instance\RespInstanceConnect.pasED:\Dropbox\Componentes\DTEvolutionAPI\dto\instance\fetchInstances.pasFD:\Dropbox\Componentes\DTEvolutionAPI\dto\instance\ConnectionState.pasED:\Dropbox\Componentes\DTEvolutionAPI\dto\instance\CreateInstance.pasID:\Dropbox\Componentes\DTEvolutionAPI\dto\instance\RespfetchInstances.pas -------------------------------------------------------------------------------- /EvolutionAPI.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/EvolutionAPI.res -------------------------------------------------------------------------------- /EvolutionAPI.skincfg: -------------------------------------------------------------------------------- 1 | [ExpressSkins] 2 | Default=1 3 | ShowNotifications=0 4 | Enabled=0 5 | dxSkinBasic=1 6 | dxSkinBlack=1 7 | dxSkinBlue=1 8 | dxSkinBlueprint=1 9 | dxSkinCaramel=1 10 | dxSkinCoffee=1 11 | dxSkinDarkroom=1 12 | dxSkinDarkSide=1 13 | dxSkinDevExpressDarkStyle=1 14 | dxSkinDevExpressStyle=1 15 | dxSkinFoggy=1 16 | dxSkinGlassOceans=1 17 | dxSkinHighContrast=1 18 | dxSkiniMaginary=1 19 | dxSkinLilian=1 20 | dxSkinLiquidSky=1 21 | dxSkinLondonLiquidSky=1 22 | dxSkinMcSkin=1 23 | dxSkinMetropolis=1 24 | dxSkinMetropolisDark=1 25 | dxSkinMoneyTwins=1 26 | dxSkinOffice2007Black=1 27 | dxSkinOffice2007Blue=1 28 | dxSkinOffice2007Green=1 29 | dxSkinOffice2007Pink=1 30 | dxSkinOffice2007Silver=1 31 | dxSkinOffice2010Black=1 32 | dxSkinOffice2010Blue=1 33 | dxSkinOffice2010Silver=1 34 | dxSkinOffice2013DarkGray=1 35 | dxSkinOffice2013LightGray=1 36 | dxSkinOffice2013White=1 37 | dxSkinOffice2016Colorful=1 38 | dxSkinOffice2016Dark=1 39 | dxSkinOffice2019Black=1 40 | dxSkinOffice2019Colorful=1 41 | dxSkinOffice2019DarkGray=1 42 | dxSkinOffice2019White=1 43 | dxSkinPumpkin=1 44 | dxSkinSeven=1 45 | dxSkinSevenClassic=1 46 | dxSkinSharp=1 47 | dxSkinSharpPlus=1 48 | dxSkinSilver=1 49 | dxSkinSpringtime=1 50 | dxSkinStardust=1 51 | dxSkinSummer2008=1 52 | dxSkinTheAsphaltWorld=1 53 | dxSkinTheBezier=1 54 | dxSkinsDefaultPainters=1 55 | dxSkinValentine=1 56 | dxSkinVisualStudio2013Blue=1 57 | dxSkinVisualStudio2013Dark=1 58 | dxSkinVisualStudio2013Light=1 59 | dxSkinVS2010=1 60 | dxSkinWhiteprint=1 61 | dxSkinXmas2008Blue=1 62 | dxSkinWXI=1 63 | -------------------------------------------------------------------------------- /ProjectGroup1.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {56E5D185-25BE-4776-9F5D-754813401866} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /ProjectGroup1.groupproj.local: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 2024/04/08 14:46:59.000.922,D:\Dropbox\Componentes\DTEvolutionAPI\ProjectGroup1.groupproj=C:\Users\tiago\OneDrive\Documentos\Embarcadero\Studio\Projects\ProjectGroup1.groupproj 5 | 6 | 7 | 8 | 9 | 10 | -------------------------------------------------------------------------------- /QrCode/UqrCodeEvo.dfm: -------------------------------------------------------------------------------- 1 | object FrmqrCodeEvo: TFrmqrCodeEvo 2 | Left = 0 3 | Top = 0 4 | BorderIcons = [biSystemMenu] 5 | BorderStyle = bsSingle 6 | Caption = 'Conectar dispositivo' 7 | ClientHeight = 302 8 | ClientWidth = 289 9 | Color = clBtnFace 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -11 13 | Font.Name = 'Tahoma' 14 | Font.Style = [] 15 | Position = poScreenCenter 16 | OnClose = FormClose 17 | TextHeight = 13 18 | object Image1: TImage 19 | Left = 8 20 | Top = 8 21 | Width = 273 22 | Height = 253 23 | Center = True 24 | Proportional = True 25 | end 26 | object Button2: TButton 27 | Left = 208 28 | Top = 218 29 | Width = 41 30 | Height = 25 31 | Cursor = crHandPoint 32 | Caption = 'Status da sess'#227'o' 33 | TabOrder = 0 34 | Visible = False 35 | OnClick = Button2Click 36 | end 37 | object pnStatus: TPanel 38 | Left = 0 39 | Top = 288 40 | Width = 289 41 | Height = 14 42 | Align = alBottom 43 | BevelOuter = bvNone 44 | TabOrder = 1 45 | end 46 | object pbPIX: TProgressBar 47 | Left = 8 48 | Top = 267 49 | Width = 273 50 | Height = 16 51 | Cursor = crHandPoint 52 | Style = pbstMarquee 53 | BarColor = clGreen 54 | TabOrder = 2 55 | StyleElements = [] 56 | end 57 | object Timer1: TTimer 58 | Interval = 3000 59 | OnTimer = Timer1Timer 60 | Left = 136 61 | Top = 160 62 | end 63 | end 64 | -------------------------------------------------------------------------------- /QrCode/UqrCodeEvo.pas: -------------------------------------------------------------------------------- 1 | unit UqrCodeEvo; 2 | 3 | interface 4 | 5 | uses 6 | Winapi.Windows, 7 | Winapi.Messages, 8 | System.SysUtils, 9 | System.Variants, 10 | System.Classes, 11 | Vcl.Graphics, 12 | Vcl.Controls, 13 | Vcl.Forms, 14 | Vcl.Dialogs, 15 | Vcl.ExtCtrls, 16 | Vcl.StdCtrls, 17 | System.IOUtils, RespConnectionState, Vcl.ComCtrls; 18 | 19 | type 20 | TFrmqrCodeEvo = class(TForm) 21 | Image1: TImage; 22 | Button2: TButton; 23 | pnStatus: TPanel; 24 | pbPIX: TProgressBar; 25 | Timer1: TTimer; 26 | procedure Button2Click(Sender: TObject); 27 | procedure Timer1Timer(Sender: TObject); 28 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 29 | private 30 | FRespConnectionState: TRespConnectionState; 31 | FKey: string; 32 | FBaseURL: string; 33 | FInstancia: string; 34 | 35 | public 36 | 37 | published 38 | property RespConnectionState : TRespConnectionState read FRespConnectionState write FRespConnectionState; 39 | property BaseURL : string read FBaseURL write FBaseURL; 40 | property Key : string read FKey write FKey; 41 | property Instancia : string read FInstancia write FInstancia; 42 | 43 | 44 | end; 45 | 46 | var 47 | FrmqrCodeEvo: TFrmqrCodeEvo; 48 | 49 | implementation 50 | 51 | uses 52 | ConnectionState; 53 | 54 | {$R *.dfm} 55 | 56 | procedure TFrmqrCodeEvo.Button2Click(Sender: TObject); 57 | Var 58 | Req : TConnectionState; 59 | Begin 60 | 61 | Req := TConnectionState.Create; 62 | Req.APIExecute(FBaseURL,FKey,FInstancia); 63 | 64 | FRespConnectionState := Req.RespConnectionState; 65 | 66 | FreeAndNil(Req); 67 | 68 | pnStatus.Caption := FRespConnectionState.instance.state; 69 | 70 | 71 | if UpperCase(FRespConnectionState.instance.state) = 'OPEN' then 72 | CLOSE; 73 | end; 74 | 75 | procedure TFrmqrCodeEvo.FormClose(Sender: TObject; var Action: TCloseAction); 76 | begin 77 | Action := TCloseAction.caFree; 78 | FrmqrCodeEvo := nil; 79 | end; 80 | 81 | procedure TFrmqrCodeEvo.Timer1Timer(Sender: TObject); 82 | begin 83 | pnStatus.Caption := 'Verificando'; 84 | Button2Click(Sender); 85 | end; 86 | 87 | end. 88 | -------------------------------------------------------------------------------- /QrCode/__history/UqrCodeEvo.dfm.~10~: -------------------------------------------------------------------------------- 1 | object FrmqrCodeEvo: TFrmqrCodeEvo 2 | Left = 0 3 | Top = 0 4 | BorderIcons = [biSystemMenu] 5 | BorderStyle = bsSingle 6 | Caption = 'Conectar dispositivo' 7 | ClientHeight = 302 8 | ClientWidth = 289 9 | Color = clBtnFace 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -11 13 | Font.Name = 'Tahoma' 14 | Font.Style = [] 15 | Position = poScreenCenter 16 | OnClose = FormClose 17 | TextHeight = 13 18 | object Image1: TImage 19 | Left = 8 20 | Top = 8 21 | Width = 273 22 | Height = 253 23 | Center = True 24 | Proportional = True 25 | end 26 | object Button2: TButton 27 | Left = 208 28 | Top = 218 29 | Width = 41 30 | Height = 25 31 | Cursor = crHandPoint 32 | Caption = 'Status da sess'#227'o' 33 | TabOrder = 0 34 | Visible = False 35 | OnClick = Button2Click 36 | end 37 | object pnStatus: TPanel 38 | Left = 0 39 | Top = 288 40 | Width = 289 41 | Height = 14 42 | Align = alBottom 43 | BevelOuter = bvNone 44 | TabOrder = 1 45 | ExplicitTop = 296 46 | ExplicitWidth = 285 47 | end 48 | object pbPIX: TProgressBar 49 | Left = 8 50 | Top = 267 51 | Width = 273 52 | Height = 16 53 | BarColor = clGreen 54 | TabOrder = 2 55 | Visible = False 56 | StyleElements = [] 57 | end 58 | end 59 | -------------------------------------------------------------------------------- /QrCode/__history/UqrCodeEvo.dfm.~11~: -------------------------------------------------------------------------------- 1 | object FrmqrCodeEvo: TFrmqrCodeEvo 2 | Left = 0 3 | Top = 0 4 | BorderIcons = [biSystemMenu] 5 | BorderStyle = bsSingle 6 | Caption = 'Conectar dispositivo' 7 | ClientHeight = 302 8 | ClientWidth = 289 9 | Color = clBtnFace 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -11 13 | Font.Name = 'Tahoma' 14 | Font.Style = [] 15 | Position = poScreenCenter 16 | OnClose = FormClose 17 | TextHeight = 13 18 | object Image1: TImage 19 | Left = 8 20 | Top = 8 21 | Width = 273 22 | Height = 253 23 | Center = True 24 | Proportional = True 25 | end 26 | object Button2: TButton 27 | Left = 208 28 | Top = 218 29 | Width = 41 30 | Height = 25 31 | Cursor = crHandPoint 32 | Caption = 'Status da sess'#227'o' 33 | TabOrder = 0 34 | Visible = False 35 | OnClick = Button2Click 36 | end 37 | object pnStatus: TPanel 38 | Left = 0 39 | Top = 288 40 | Width = 289 41 | Height = 14 42 | Align = alBottom 43 | BevelOuter = bvNone 44 | TabOrder = 1 45 | ExplicitTop = 296 46 | ExplicitWidth = 285 47 | end 48 | object pbPIX: TProgressBar 49 | Left = 8 50 | Top = 267 51 | Width = 273 52 | Height = 16 53 | BarColor = clGreen 54 | TabOrder = 2 55 | Visible = False 56 | StyleElements = [] 57 | end 58 | object Timer1: TTimer 59 | Interval = 3000 60 | OnTimer = Timer1Timer 61 | Left = 136 62 | Top = 160 63 | end 64 | end 65 | -------------------------------------------------------------------------------- /QrCode/__history/UqrCodeEvo.dfm.~12~: -------------------------------------------------------------------------------- 1 | object FrmqrCodeEvo: TFrmqrCodeEvo 2 | Left = 0 3 | Top = 0 4 | BorderIcons = [biSystemMenu] 5 | BorderStyle = bsSingle 6 | Caption = 'Conectar dispositivo' 7 | ClientHeight = 302 8 | ClientWidth = 289 9 | Color = clBtnFace 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -11 13 | Font.Name = 'Tahoma' 14 | Font.Style = [] 15 | Position = poScreenCenter 16 | OnClose = FormClose 17 | TextHeight = 13 18 | object Image1: TImage 19 | Left = 8 20 | Top = 8 21 | Width = 273 22 | Height = 253 23 | Center = True 24 | Proportional = True 25 | end 26 | object Button2: TButton 27 | Left = 208 28 | Top = 218 29 | Width = 41 30 | Height = 25 31 | Cursor = crHandPoint 32 | Caption = 'Status da sess'#227'o' 33 | TabOrder = 0 34 | Visible = False 35 | OnClick = Button2Click 36 | end 37 | object pnStatus: TPanel 38 | Left = 0 39 | Top = 288 40 | Width = 289 41 | Height = 14 42 | Align = alBottom 43 | BevelOuter = bvNone 44 | TabOrder = 1 45 | ExplicitTop = 287 46 | ExplicitWidth = 285 47 | end 48 | object pbPIX: TProgressBar 49 | Left = 8 50 | Top = 267 51 | Width = 273 52 | Height = 16 53 | BarColor = clGreen 54 | TabOrder = 2 55 | StyleElements = [] 56 | end 57 | object Timer1: TTimer 58 | Interval = 3000 59 | OnTimer = Timer1Timer 60 | Left = 136 61 | Top = 160 62 | end 63 | end 64 | -------------------------------------------------------------------------------- /QrCode/__history/UqrCodeEvo.dfm.~13~: -------------------------------------------------------------------------------- 1 | object FrmqrCodeEvo: TFrmqrCodeEvo 2 | Left = 0 3 | Top = 0 4 | BorderIcons = [biSystemMenu] 5 | BorderStyle = bsSingle 6 | Caption = 'Conectar dispositivo' 7 | ClientHeight = 302 8 | ClientWidth = 289 9 | Color = clBtnFace 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -11 13 | Font.Name = 'Tahoma' 14 | Font.Style = [] 15 | Position = poScreenCenter 16 | OnClose = FormClose 17 | TextHeight = 13 18 | object Image1: TImage 19 | Left = 8 20 | Top = 8 21 | Width = 273 22 | Height = 253 23 | Center = True 24 | Proportional = True 25 | end 26 | object Button2: TButton 27 | Left = 208 28 | Top = 218 29 | Width = 41 30 | Height = 25 31 | Cursor = crHandPoint 32 | Caption = 'Status da sess'#227'o' 33 | TabOrder = 0 34 | Visible = False 35 | OnClick = Button2Click 36 | end 37 | object pnStatus: TPanel 38 | Left = 0 39 | Top = 288 40 | Width = 289 41 | Height = 14 42 | Align = alBottom 43 | BevelOuter = bvNone 44 | TabOrder = 1 45 | ExplicitTop = 287 46 | ExplicitWidth = 285 47 | end 48 | object pbPIX: TProgressBar 49 | Left = 8 50 | Top = 267 51 | Width = 273 52 | Height = 16 53 | Cursor = crHandPoint 54 | Style = pbstMarquee 55 | BarColor = clGreen 56 | TabOrder = 2 57 | StyleElements = [] 58 | end 59 | object Timer1: TTimer 60 | Interval = 3000 61 | OnTimer = Timer1Timer 62 | Left = 136 63 | Top = 160 64 | end 65 | end 66 | -------------------------------------------------------------------------------- /QrCode/__history/UqrCodeEvo.dfm.~14~: -------------------------------------------------------------------------------- 1 | object FrmqrCodeEvo: TFrmqrCodeEvo 2 | Left = 0 3 | Top = 0 4 | BorderIcons = [biSystemMenu] 5 | BorderStyle = bsSingle 6 | Caption = 'Conectar dispositivo' 7 | ClientHeight = 302 8 | ClientWidth = 289 9 | Color = clBtnFace 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -11 13 | Font.Name = 'Tahoma' 14 | Font.Style = [] 15 | Position = poScreenCenter 16 | OnClose = FormClose 17 | TextHeight = 13 18 | object Image1: TImage 19 | Left = 8 20 | Top = 8 21 | Width = 273 22 | Height = 253 23 | Center = True 24 | Proportional = True 25 | end 26 | object Button2: TButton 27 | Left = 208 28 | Top = 218 29 | Width = 41 30 | Height = 25 31 | Cursor = crHandPoint 32 | Caption = 'Status da sess'#227'o' 33 | TabOrder = 0 34 | Visible = False 35 | OnClick = Button2Click 36 | end 37 | object pnStatus: TPanel 38 | Left = 0 39 | Top = 288 40 | Width = 289 41 | Height = 14 42 | Align = alBottom 43 | BevelOuter = bvNone 44 | TabOrder = 1 45 | ExplicitTop = 287 46 | ExplicitWidth = 285 47 | end 48 | object pbPIX: TProgressBar 49 | Left = 8 50 | Top = 267 51 | Width = 273 52 | Height = 16 53 | Cursor = crHandPoint 54 | Style = pbstMarquee 55 | BarColor = clGreen 56 | TabOrder = 2 57 | StyleElements = [] 58 | end 59 | object Timer1: TTimer 60 | Interval = 3000 61 | OnTimer = Timer1Timer 62 | Left = 136 63 | Top = 160 64 | end 65 | end 66 | -------------------------------------------------------------------------------- /QrCode/__history/UqrCodeEvo.dfm.~15~: -------------------------------------------------------------------------------- 1 | object FrmqrCodeEvo: TFrmqrCodeEvo 2 | Left = 0 3 | Top = 0 4 | BorderIcons = [biSystemMenu] 5 | BorderStyle = bsSingle 6 | Caption = 'Conectar dispositivo' 7 | ClientHeight = 302 8 | ClientWidth = 289 9 | Color = clBtnFace 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -11 13 | Font.Name = 'Tahoma' 14 | Font.Style = [] 15 | Position = poScreenCenter 16 | TextHeight = 13 17 | object Image1: TImage 18 | Left = 8 19 | Top = 8 20 | Width = 273 21 | Height = 253 22 | Center = True 23 | Proportional = True 24 | end 25 | object Button2: TButton 26 | Left = 208 27 | Top = 218 28 | Width = 41 29 | Height = 25 30 | Cursor = crHandPoint 31 | Caption = 'Status da sess'#227'o' 32 | TabOrder = 0 33 | Visible = False 34 | OnClick = Button2Click 35 | end 36 | object pnStatus: TPanel 37 | Left = 0 38 | Top = 288 39 | Width = 289 40 | Height = 14 41 | Align = alBottom 42 | BevelOuter = bvNone 43 | TabOrder = 1 44 | end 45 | object pbPIX: TProgressBar 46 | Left = 8 47 | Top = 267 48 | Width = 273 49 | Height = 16 50 | Cursor = crHandPoint 51 | Style = pbstMarquee 52 | BarColor = clGreen 53 | TabOrder = 2 54 | StyleElements = [] 55 | end 56 | object Timer1: TTimer 57 | Interval = 3000 58 | OnTimer = Timer1Timer 59 | Left = 136 60 | Top = 160 61 | end 62 | end 63 | -------------------------------------------------------------------------------- /QrCode/__history/UqrCodeEvo.dfm.~6~: -------------------------------------------------------------------------------- 1 | object FrmqrCodeEvo: TFrmqrCodeEvo 2 | Left = 0 3 | Top = 0 4 | BorderIcons = [biSystemMenu] 5 | BorderStyle = bsSingle 6 | Caption = 'qrCode' 7 | ClientHeight = 311 8 | ClientWidth = 289 9 | Color = clBtnFace 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -11 13 | Font.Name = 'Tahoma' 14 | Font.Style = [] 15 | Position = poScreenCenter 16 | OnClose = FormClose 17 | TextHeight = 13 18 | object Image1: TImage 19 | Left = 8 20 | Top = 8 21 | Width = 273 22 | Height = 253 23 | Center = True 24 | Proportional = True 25 | end 26 | object Button2: TButton 27 | Left = 8 28 | Top = 266 29 | Width = 273 30 | Height = 25 31 | Cursor = crHandPoint 32 | Caption = 'Status da sess'#227'o' 33 | TabOrder = 0 34 | OnClick = Button2Click 35 | end 36 | object pnStatus: TPanel 37 | Left = 0 38 | Top = 297 39 | Width = 289 40 | Height = 14 41 | Align = alBottom 42 | BevelOuter = bvNone 43 | TabOrder = 1 44 | ExplicitTop = 296 45 | ExplicitWidth = 285 46 | end 47 | end 48 | -------------------------------------------------------------------------------- /QrCode/__history/UqrCodeEvo.dfm.~7~: -------------------------------------------------------------------------------- 1 | object FrmqrCodeEvo: TFrmqrCodeEvo 2 | Left = 0 3 | Top = 0 4 | BorderIcons = [biSystemMenu] 5 | BorderStyle = bsSingle 6 | Caption = 'qrCode' 7 | ClientHeight = 311 8 | ClientWidth = 289 9 | Color = clBtnFace 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -11 13 | Font.Name = 'Tahoma' 14 | Font.Style = [] 15 | Position = poScreenCenter 16 | OnClose = FormClose 17 | TextHeight = 13 18 | object Image1: TImage 19 | Left = 8 20 | Top = 8 21 | Width = 273 22 | Height = 253 23 | Center = True 24 | Proportional = True 25 | end 26 | object Button2: TButton 27 | Left = 8 28 | Top = 266 29 | Width = 273 30 | Height = 25 31 | Cursor = crHandPoint 32 | Caption = 'Status da sess'#227'o' 33 | TabOrder = 0 34 | OnClick = Button2Click 35 | end 36 | object pnStatus: TPanel 37 | Left = 0 38 | Top = 297 39 | Width = 289 40 | Height = 14 41 | Align = alBottom 42 | BevelOuter = bvNone 43 | TabOrder = 1 44 | ExplicitTop = 296 45 | ExplicitWidth = 285 46 | end 47 | end 48 | -------------------------------------------------------------------------------- /QrCode/__history/UqrCodeEvo.dfm.~8~: -------------------------------------------------------------------------------- 1 | object FrmqrCodeEvo: TFrmqrCodeEvo 2 | Left = 0 3 | Top = 0 4 | BorderIcons = [biSystemMenu] 5 | BorderStyle = bsSingle 6 | Caption = 'Conectar dispositivo' 7 | ClientHeight = 311 8 | ClientWidth = 289 9 | Color = clBtnFace 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -11 13 | Font.Name = 'Tahoma' 14 | Font.Style = [] 15 | Position = poScreenCenter 16 | OnClose = FormClose 17 | TextHeight = 13 18 | object Image1: TImage 19 | Left = 8 20 | Top = 8 21 | Width = 273 22 | Height = 253 23 | Center = True 24 | Proportional = True 25 | end 26 | object Button2: TButton 27 | Left = 8 28 | Top = 266 29 | Width = 273 30 | Height = 25 31 | Cursor = crHandPoint 32 | Caption = 'Status da sess'#227'o' 33 | TabOrder = 0 34 | OnClick = Button2Click 35 | end 36 | object pnStatus: TPanel 37 | Left = 0 38 | Top = 297 39 | Width = 289 40 | Height = 14 41 | Align = alBottom 42 | BevelOuter = bvNone 43 | TabOrder = 1 44 | ExplicitTop = 296 45 | ExplicitWidth = 285 46 | end 47 | end 48 | -------------------------------------------------------------------------------- /QrCode/__history/UqrCodeEvo.dfm.~9~: -------------------------------------------------------------------------------- 1 | object FrmqrCodeEvo: TFrmqrCodeEvo 2 | Left = 0 3 | Top = 0 4 | BorderIcons = [biSystemMenu] 5 | BorderStyle = bsSingle 6 | Caption = 'Conectar dispositivo' 7 | ClientHeight = 311 8 | ClientWidth = 289 9 | Color = clBtnFace 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -11 13 | Font.Name = 'Tahoma' 14 | Font.Style = [] 15 | Position = poScreenCenter 16 | OnClose = FormClose 17 | TextHeight = 13 18 | object Image1: TImage 19 | Left = 8 20 | Top = 8 21 | Width = 273 22 | Height = 253 23 | Center = True 24 | Proportional = True 25 | end 26 | object Button2: TButton 27 | Left = 8 28 | Top = 266 29 | Width = 273 30 | Height = 25 31 | Cursor = crHandPoint 32 | Caption = 'Status da sess'#227'o' 33 | TabOrder = 0 34 | OnClick = Button2Click 35 | end 36 | object pnStatus: TPanel 37 | Left = 0 38 | Top = 297 39 | Width = 289 40 | Height = 14 41 | Align = alBottom 42 | BevelOuter = bvNone 43 | TabOrder = 1 44 | ExplicitTop = 296 45 | ExplicitWidth = 285 46 | end 47 | end 48 | -------------------------------------------------------------------------------- /QrCode/__history/UqrCodeEvo.pas.~11~: -------------------------------------------------------------------------------- 1 | unit UqrCodeEvo; 2 | 3 | interface 4 | 5 | uses 6 | Winapi.Windows, 7 | Winapi.Messages, 8 | System.SysUtils, 9 | System.Variants, 10 | System.Classes, 11 | Vcl.Graphics, 12 | Vcl.Controls, 13 | Vcl.Forms, 14 | Vcl.Dialogs, 15 | Vcl.ExtCtrls, 16 | Vcl.StdCtrls, 17 | System.IOUtils, RespConnectionState; 18 | 19 | type 20 | TFrmqrCodeEvo = class(TForm) 21 | Image1: TImage; 22 | Button2: TButton; 23 | pnStatus: TPanel; 24 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 25 | procedure Button2Click(Sender: TObject); 26 | procedure FormShow(Sender: TObject); 27 | private 28 | FRespConnectionState: TRespConnectionState; 29 | 30 | public 31 | 32 | published 33 | property RespConnectionState: TRespConnectionState read FRespConnectionState write FRespConnectionState; 34 | 35 | 36 | end; 37 | 38 | var 39 | FrmqrCodeEvo: TFrmqrCodeEvo; 40 | 41 | implementation 42 | 43 | uses 44 | ConnectionState; 45 | 46 | {$R *.dfm} 47 | 48 | procedure TFrmqrCodeEvo.Button2Click(Sender: TObject); 49 | Var 50 | Req : TConnectionState; 51 | Begin 52 | 53 | Req := TConnectionState.Create; 54 | Result := Req.APIExecute(FBaseURL,FKey,FInstancia); 55 | 56 | FRespConnectionState := Req.RespConnectionState; 57 | 58 | FreeAndNil(Req); 59 | 60 | // 61 | // if pnStatus.Caption = 'CONNECTED' then 62 | // CLOSE; 63 | end; 64 | 65 | procedure TFrmqrCodeEvo.FormClose(Sender: TObject; var Action: TCloseAction); 66 | begin 67 | Action := caFree; 68 | FrmqrCodeEvo := nil; 69 | end; 70 | 71 | procedure TFrmqrCodeEvo.FormShow(Sender: TObject); 72 | begin 73 | Button1Click(Sender); 74 | end; 75 | 76 | end. 77 | -------------------------------------------------------------------------------- /QrCode/__history/UqrCodeEvo.pas.~12~: -------------------------------------------------------------------------------- 1 | unit UqrCodeEvo; 2 | 3 | interface 4 | 5 | uses 6 | Winapi.Windows, 7 | Winapi.Messages, 8 | System.SysUtils, 9 | System.Variants, 10 | System.Classes, 11 | Vcl.Graphics, 12 | Vcl.Controls, 13 | Vcl.Forms, 14 | Vcl.Dialogs, 15 | Vcl.ExtCtrls, 16 | Vcl.StdCtrls, 17 | System.IOUtils, RespConnectionState; 18 | 19 | type 20 | TFrmqrCodeEvo = class(TForm) 21 | Image1: TImage; 22 | Button2: TButton; 23 | pnStatus: TPanel; 24 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 25 | procedure Button2Click(Sender: TObject); 26 | procedure FormShow(Sender: TObject); 27 | private 28 | FRespConnectionState: TRespConnectionState; 29 | FKey: string; 30 | FBaseURL: string; 31 | FInstancia: string; 32 | 33 | public 34 | 35 | published 36 | property RespConnectionState : TRespConnectionState read FRespConnectionState write FRespConnectionState; 37 | property BaseURL : string read FBaseURL write FBaseURL; 38 | property Key : string read FKey write FKey; 39 | property Instancia : string read FInstancia write FInstancia; 40 | 41 | 42 | end; 43 | 44 | var 45 | FrmqrCodeEvo: TFrmqrCodeEvo; 46 | 47 | implementation 48 | 49 | uses 50 | ConnectionState; 51 | 52 | {$R *.dfm} 53 | 54 | procedure TFrmqrCodeEvo.Button2Click(Sender: TObject); 55 | Var 56 | Req : TConnectionState; 57 | Begin 58 | 59 | Req := TConnectionState.Create; 60 | Result := Req.APIExecute(FBaseURL,FKey,FInstancia); 61 | 62 | FRespConnectionState := Req.RespConnectionState; 63 | 64 | FreeAndNil(Req); 65 | 66 | // 67 | // if pnStatus.Caption = 'CONNECTED' then 68 | // CLOSE; 69 | end; 70 | 71 | procedure TFrmqrCodeEvo.FormClose(Sender: TObject; var Action: TCloseAction); 72 | begin 73 | Action := caFree; 74 | FrmqrCodeEvo := nil; 75 | end; 76 | 77 | procedure TFrmqrCodeEvo.FormShow(Sender: TObject); 78 | begin 79 | Button1Click(Sender); 80 | end; 81 | 82 | end. 83 | -------------------------------------------------------------------------------- /QrCode/__history/UqrCodeEvo.pas.~13~: -------------------------------------------------------------------------------- 1 | unit UqrCodeEvo; 2 | 3 | interface 4 | 5 | uses 6 | Winapi.Windows, 7 | Winapi.Messages, 8 | System.SysUtils, 9 | System.Variants, 10 | System.Classes, 11 | Vcl.Graphics, 12 | Vcl.Controls, 13 | Vcl.Forms, 14 | Vcl.Dialogs, 15 | Vcl.ExtCtrls, 16 | Vcl.StdCtrls, 17 | System.IOUtils, RespConnectionState; 18 | 19 | type 20 | TFrmqrCodeEvo = class(TForm) 21 | Image1: TImage; 22 | Button2: TButton; 23 | pnStatus: TPanel; 24 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 25 | procedure Button2Click(Sender: TObject); 26 | private 27 | FRespConnectionState: TRespConnectionState; 28 | FKey: string; 29 | FBaseURL: string; 30 | FInstancia: string; 31 | 32 | public 33 | 34 | published 35 | property RespConnectionState : TRespConnectionState read FRespConnectionState write FRespConnectionState; 36 | property BaseURL : string read FBaseURL write FBaseURL; 37 | property Key : string read FKey write FKey; 38 | property Instancia : string read FInstancia write FInstancia; 39 | 40 | 41 | end; 42 | 43 | var 44 | FrmqrCodeEvo: TFrmqrCodeEvo; 45 | 46 | implementation 47 | 48 | uses 49 | ConnectionState; 50 | 51 | {$R *.dfm} 52 | 53 | procedure TFrmqrCodeEvo.Button2Click(Sender: TObject); 54 | Var 55 | Req : TConnectionState; 56 | Begin 57 | 58 | Req := TConnectionState.Create; 59 | Result := Req.APIExecute(FBaseURL,FKey,FInstancia); 60 | 61 | FRespConnectionState := Req.RespConnectionState; 62 | 63 | FreeAndNil(Req); 64 | 65 | // 66 | // if pnStatus.Caption = 'CONNECTED' then 67 | // CLOSE; 68 | end; 69 | 70 | procedure TFrmqrCodeEvo.FormClose(Sender: TObject; var Action: TCloseAction); 71 | begin 72 | Action := caFree; 73 | FrmqrCodeEvo := nil; 74 | end; 75 | 76 | end. 77 | -------------------------------------------------------------------------------- /QrCode/__history/UqrCodeEvo.pas.~14~: -------------------------------------------------------------------------------- 1 | unit UqrCodeEvo; 2 | 3 | interface 4 | 5 | uses 6 | Winapi.Windows, 7 | Winapi.Messages, 8 | System.SysUtils, 9 | System.Variants, 10 | System.Classes, 11 | Vcl.Graphics, 12 | Vcl.Controls, 13 | Vcl.Forms, 14 | Vcl.Dialogs, 15 | Vcl.ExtCtrls, 16 | Vcl.StdCtrls, 17 | System.IOUtils, RespConnectionState; 18 | 19 | type 20 | TFrmqrCodeEvo = class(TForm) 21 | Image1: TImage; 22 | Button2: TButton; 23 | pnStatus: TPanel; 24 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 25 | procedure Button2Click(Sender: TObject); 26 | private 27 | FRespConnectionState: TRespConnectionState; 28 | FKey: string; 29 | FBaseURL: string; 30 | FInstancia: string; 31 | 32 | public 33 | 34 | published 35 | property RespConnectionState : TRespConnectionState read FRespConnectionState write FRespConnectionState; 36 | property BaseURL : string read FBaseURL write FBaseURL; 37 | property Key : string read FKey write FKey; 38 | property Instancia : string read FInstancia write FInstancia; 39 | 40 | 41 | end; 42 | 43 | var 44 | FrmqrCodeEvo: TFrmqrCodeEvo; 45 | 46 | implementation 47 | 48 | uses 49 | ConnectionState; 50 | 51 | {$R *.dfm} 52 | 53 | procedure TFrmqrCodeEvo.Button2Click(Sender: TObject); 54 | Var 55 | Req : TConnectionState; 56 | Begin 57 | 58 | Req := TConnectionState.Create; 59 | Req.APIExecute(FBaseURL,FKey,FInstancia); 60 | 61 | FRespConnectionState := Req.RespConnectionState; 62 | 63 | FreeAndNil(Req); 64 | 65 | 66 | if FRespConnectionState.instance.state = 'OPEN' then 67 | CLOSE; 68 | end; 69 | 70 | procedure TFrmqrCodeEvo.FormClose(Sender: TObject; var Action: TCloseAction); 71 | begin 72 | Action := caFree; 73 | FrmqrCodeEvo := nil; 74 | end; 75 | 76 | end. 77 | -------------------------------------------------------------------------------- /QrCode/__history/UqrCodeEvo.pas.~15~: -------------------------------------------------------------------------------- 1 | unit UqrCodeEvo; 2 | 3 | interface 4 | 5 | uses 6 | Winapi.Windows, 7 | Winapi.Messages, 8 | System.SysUtils, 9 | System.Variants, 10 | System.Classes, 11 | Vcl.Graphics, 12 | Vcl.Controls, 13 | Vcl.Forms, 14 | Vcl.Dialogs, 15 | Vcl.ExtCtrls, 16 | Vcl.StdCtrls, 17 | System.IOUtils, RespConnectionState; 18 | 19 | type 20 | TFrmqrCodeEvo = class(TForm) 21 | Image1: TImage; 22 | Button2: TButton; 23 | pnStatus: TPanel; 24 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 25 | procedure Button2Click(Sender: TObject); 26 | private 27 | FRespConnectionState: TRespConnectionState; 28 | FKey: string; 29 | FBaseURL: string; 30 | FInstancia: string; 31 | 32 | public 33 | 34 | published 35 | property RespConnectionState : TRespConnectionState read FRespConnectionState write FRespConnectionState; 36 | property BaseURL : string read FBaseURL write FBaseURL; 37 | property Key : string read FKey write FKey; 38 | property Instancia : string read FInstancia write FInstancia; 39 | 40 | 41 | end; 42 | 43 | var 44 | FrmqrCodeEvo: TFrmqrCodeEvo; 45 | 46 | implementation 47 | 48 | uses 49 | ConnectionState; 50 | 51 | {$R *.dfm} 52 | 53 | procedure TFrmqrCodeEvo.Button2Click(Sender: TObject); 54 | Var 55 | Req : TConnectionState; 56 | Begin 57 | 58 | Req := TConnectionState.Create; 59 | Req.APIExecute(FBaseURL,FKey,FInstancia); 60 | 61 | FRespConnectionState := Req.RespConnectionState; 62 | 63 | FreeAndNil(Req); 64 | 65 | pnStatus.Caption := FRespConnectionState.instance.state; 66 | 67 | 68 | if FRespConnectionState.instance.state = 'OPEN' then 69 | CLOSE; 70 | end; 71 | 72 | procedure TFrmqrCodeEvo.FormClose(Sender: TObject; var Action: TCloseAction); 73 | begin 74 | Action := caFree; 75 | FrmqrCodeEvo := nil; 76 | end; 77 | 78 | end. 79 | -------------------------------------------------------------------------------- /QrCode/__history/UqrCodeEvo.pas.~16~: -------------------------------------------------------------------------------- 1 | unit UqrCodeEvo; 2 | 3 | interface 4 | 5 | uses 6 | Winapi.Windows, 7 | Winapi.Messages, 8 | System.SysUtils, 9 | System.Variants, 10 | System.Classes, 11 | Vcl.Graphics, 12 | Vcl.Controls, 13 | Vcl.Forms, 14 | Vcl.Dialogs, 15 | Vcl.ExtCtrls, 16 | Vcl.StdCtrls, 17 | System.IOUtils, RespConnectionState; 18 | 19 | type 20 | TFrmqrCodeEvo = class(TForm) 21 | Image1: TImage; 22 | Button2: TButton; 23 | pnStatus: TPanel; 24 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 25 | procedure Button2Click(Sender: TObject); 26 | private 27 | FRespConnectionState: TRespConnectionState; 28 | FKey: string; 29 | FBaseURL: string; 30 | FInstancia: string; 31 | 32 | public 33 | 34 | published 35 | property RespConnectionState : TRespConnectionState read FRespConnectionState write FRespConnectionState; 36 | property BaseURL : string read FBaseURL write FBaseURL; 37 | property Key : string read FKey write FKey; 38 | property Instancia : string read FInstancia write FInstancia; 39 | 40 | 41 | end; 42 | 43 | var 44 | FrmqrCodeEvo: TFrmqrCodeEvo; 45 | 46 | implementation 47 | 48 | uses 49 | ConnectionState; 50 | 51 | {$R *.dfm} 52 | 53 | procedure TFrmqrCodeEvo.Button2Click(Sender: TObject); 54 | Var 55 | Req : TConnectionState; 56 | Begin 57 | 58 | Req := TConnectionState.Create; 59 | Req.APIExecute(FBaseURL,FKey,FInstancia); 60 | 61 | FRespConnectionState := Req.RespConnectionState; 62 | 63 | FreeAndNil(Req); 64 | 65 | pnStatus.Caption := FRespConnectionState.instance.state; 66 | 67 | 68 | if UpperCase(FRespConnectionState.instance.state) = 'OPEN' then 69 | CLOSE; 70 | end; 71 | 72 | procedure TFrmqrCodeEvo.FormClose(Sender: TObject; var Action: TCloseAction); 73 | begin 74 | Action := caFree; 75 | FrmqrCodeEvo := nil; 76 | end; 77 | 78 | end. 79 | -------------------------------------------------------------------------------- /QrCode/__history/UqrCodeEvo.pas.~17~: -------------------------------------------------------------------------------- 1 | unit UqrCodeEvo; 2 | 3 | interface 4 | 5 | uses 6 | Winapi.Windows, 7 | Winapi.Messages, 8 | System.SysUtils, 9 | System.Variants, 10 | System.Classes, 11 | Vcl.Graphics, 12 | Vcl.Controls, 13 | Vcl.Forms, 14 | Vcl.Dialogs, 15 | Vcl.ExtCtrls, 16 | Vcl.StdCtrls, 17 | System.IOUtils, RespConnectionState, Vcl.ComCtrls; 18 | 19 | type 20 | TFrmqrCodeEvo = class(TForm) 21 | Image1: TImage; 22 | Button2: TButton; 23 | pnStatus: TPanel; 24 | pbPIX: TProgressBar; 25 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 26 | procedure Button2Click(Sender: TObject); 27 | private 28 | FRespConnectionState: TRespConnectionState; 29 | FKey: string; 30 | FBaseURL: string; 31 | FInstancia: string; 32 | 33 | public 34 | 35 | published 36 | property RespConnectionState : TRespConnectionState read FRespConnectionState write FRespConnectionState; 37 | property BaseURL : string read FBaseURL write FBaseURL; 38 | property Key : string read FKey write FKey; 39 | property Instancia : string read FInstancia write FInstancia; 40 | 41 | 42 | end; 43 | 44 | var 45 | FrmqrCodeEvo: TFrmqrCodeEvo; 46 | 47 | implementation 48 | 49 | uses 50 | ConnectionState; 51 | 52 | {$R *.dfm} 53 | 54 | procedure TFrmqrCodeEvo.Button2Click(Sender: TObject); 55 | Var 56 | Req : TConnectionState; 57 | Begin 58 | 59 | Req := TConnectionState.Create; 60 | Req.APIExecute(FBaseURL,FKey,FInstancia); 61 | 62 | FRespConnectionState := Req.RespConnectionState; 63 | 64 | FreeAndNil(Req); 65 | 66 | pnStatus.Caption := FRespConnectionState.instance.state; 67 | 68 | 69 | if UpperCase(FRespConnectionState.instance.state) = 'OPEN' then 70 | CLOSE; 71 | end; 72 | 73 | procedure TFrmqrCodeEvo.FormClose(Sender: TObject; var Action: TCloseAction); 74 | begin 75 | Action := caFree; 76 | FrmqrCodeEvo := nil; 77 | end; 78 | 79 | end. 80 | -------------------------------------------------------------------------------- /QrCode/__history/UqrCodeEvo.pas.~18~: -------------------------------------------------------------------------------- 1 | unit UqrCodeEvo; 2 | 3 | interface 4 | 5 | uses 6 | Winapi.Windows, 7 | Winapi.Messages, 8 | System.SysUtils, 9 | System.Variants, 10 | System.Classes, 11 | Vcl.Graphics, 12 | Vcl.Controls, 13 | Vcl.Forms, 14 | Vcl.Dialogs, 15 | Vcl.ExtCtrls, 16 | Vcl.StdCtrls, 17 | System.IOUtils, RespConnectionState, Vcl.ComCtrls; 18 | 19 | type 20 | TFrmqrCodeEvo = class(TForm) 21 | Image1: TImage; 22 | Button2: TButton; 23 | pnStatus: TPanel; 24 | pbPIX: TProgressBar; 25 | Timer1: TTimer; 26 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 27 | procedure Button2Click(Sender: TObject); 28 | procedure Timer1Timer(Sender: TObject); 29 | private 30 | FRespConnectionState: TRespConnectionState; 31 | FKey: string; 32 | FBaseURL: string; 33 | FInstancia: string; 34 | 35 | public 36 | 37 | published 38 | property RespConnectionState : TRespConnectionState read FRespConnectionState write FRespConnectionState; 39 | property BaseURL : string read FBaseURL write FBaseURL; 40 | property Key : string read FKey write FKey; 41 | property Instancia : string read FInstancia write FInstancia; 42 | 43 | 44 | end; 45 | 46 | var 47 | FrmqrCodeEvo: TFrmqrCodeEvo; 48 | 49 | implementation 50 | 51 | uses 52 | ConnectionState; 53 | 54 | {$R *.dfm} 55 | 56 | procedure TFrmqrCodeEvo.Button2Click(Sender: TObject); 57 | Var 58 | Req : TConnectionState; 59 | Begin 60 | 61 | Req := TConnectionState.Create; 62 | Req.APIExecute(FBaseURL,FKey,FInstancia); 63 | 64 | FRespConnectionState := Req.RespConnectionState; 65 | 66 | FreeAndNil(Req); 67 | 68 | pnStatus.Caption := FRespConnectionState.instance.state; 69 | 70 | 71 | if UpperCase(FRespConnectionState.instance.state) = 'OPEN' then 72 | CLOSE; 73 | end; 74 | 75 | procedure TFrmqrCodeEvo.FormClose(Sender: TObject; var Action: TCloseAction); 76 | begin 77 | Action := caFree; 78 | FrmqrCodeEvo := nil; 79 | end; 80 | 81 | procedure TFrmqrCodeEvo.Timer1Timer(Sender: TObject); 82 | begin 83 | Button2Click(Sender); 84 | end; 85 | 86 | end. 87 | -------------------------------------------------------------------------------- /QrCode/__history/UqrCodeEvo.pas.~19~: -------------------------------------------------------------------------------- 1 | unit UqrCodeEvo; 2 | 3 | interface 4 | 5 | uses 6 | Winapi.Windows, 7 | Winapi.Messages, 8 | System.SysUtils, 9 | System.Variants, 10 | System.Classes, 11 | Vcl.Graphics, 12 | Vcl.Controls, 13 | Vcl.Forms, 14 | Vcl.Dialogs, 15 | Vcl.ExtCtrls, 16 | Vcl.StdCtrls, 17 | System.IOUtils, RespConnectionState, Vcl.ComCtrls; 18 | 19 | type 20 | TFrmqrCodeEvo = class(TForm) 21 | Image1: TImage; 22 | Button2: TButton; 23 | pnStatus: TPanel; 24 | pbPIX: TProgressBar; 25 | Timer1: TTimer; 26 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 27 | procedure Button2Click(Sender: TObject); 28 | procedure Timer1Timer(Sender: TObject); 29 | private 30 | FRespConnectionState: TRespConnectionState; 31 | FKey: string; 32 | FBaseURL: string; 33 | FInstancia: string; 34 | 35 | public 36 | 37 | published 38 | property RespConnectionState : TRespConnectionState read FRespConnectionState write FRespConnectionState; 39 | property BaseURL : string read FBaseURL write FBaseURL; 40 | property Key : string read FKey write FKey; 41 | property Instancia : string read FInstancia write FInstancia; 42 | 43 | 44 | end; 45 | 46 | var 47 | FrmqrCodeEvo: TFrmqrCodeEvo; 48 | 49 | implementation 50 | 51 | uses 52 | ConnectionState; 53 | 54 | {$R *.dfm} 55 | 56 | procedure TFrmqrCodeEvo.Button2Click(Sender: TObject); 57 | Var 58 | Req : TConnectionState; 59 | Begin 60 | 61 | Req := TConnectionState.Create; 62 | Req.APIExecute(FBaseURL,FKey,FInstancia); 63 | 64 | FRespConnectionState := Req.RespConnectionState; 65 | 66 | FreeAndNil(Req); 67 | 68 | pnStatus.Caption := FRespConnectionState.instance.state; 69 | 70 | 71 | if UpperCase(FRespConnectionState.instance.state) = 'OPEN' then 72 | CLOSE; 73 | end; 74 | 75 | procedure TFrmqrCodeEvo.FormClose(Sender: TObject; var Action: TCloseAction); 76 | begin 77 | Action := caFree; 78 | FrmqrCodeEvo := nil; 79 | end; 80 | 81 | procedure TFrmqrCodeEvo.Timer1Timer(Sender: TObject); 82 | begin 83 | pnStatus.Caption := 'Verificando'; 84 | Button2Click(Sender); 85 | end; 86 | 87 | end. 88 | -------------------------------------------------------------------------------- /QrCode/__history/UqrCodeEvo.pas.~20~: -------------------------------------------------------------------------------- 1 | unit UqrCodeEvo; 2 | 3 | interface 4 | 5 | uses 6 | Winapi.Windows, 7 | Winapi.Messages, 8 | System.SysUtils, 9 | System.Variants, 10 | System.Classes, 11 | Vcl.Graphics, 12 | Vcl.Controls, 13 | Vcl.Forms, 14 | Vcl.Dialogs, 15 | Vcl.ExtCtrls, 16 | Vcl.StdCtrls, 17 | System.IOUtils, RespConnectionState, Vcl.ComCtrls; 18 | 19 | type 20 | TFrmqrCodeEvo = class(TForm) 21 | Image1: TImage; 22 | Button2: TButton; 23 | pnStatus: TPanel; 24 | pbPIX: TProgressBar; 25 | Timer1: TTimer; 26 | procedure Button2Click(Sender: TObject); 27 | procedure Timer1Timer(Sender: TObject); 28 | private 29 | FRespConnectionState: TRespConnectionState; 30 | FKey: string; 31 | FBaseURL: string; 32 | FInstancia: string; 33 | 34 | public 35 | 36 | published 37 | property RespConnectionState : TRespConnectionState read FRespConnectionState write FRespConnectionState; 38 | property BaseURL : string read FBaseURL write FBaseURL; 39 | property Key : string read FKey write FKey; 40 | property Instancia : string read FInstancia write FInstancia; 41 | 42 | 43 | end; 44 | 45 | var 46 | FrmqrCodeEvo: TFrmqrCodeEvo; 47 | 48 | implementation 49 | 50 | uses 51 | ConnectionState; 52 | 53 | {$R *.dfm} 54 | 55 | procedure TFrmqrCodeEvo.Button2Click(Sender: TObject); 56 | Var 57 | Req : TConnectionState; 58 | Begin 59 | 60 | Req := TConnectionState.Create; 61 | Req.APIExecute(FBaseURL,FKey,FInstancia); 62 | 63 | FRespConnectionState := Req.RespConnectionState; 64 | 65 | FreeAndNil(Req); 66 | 67 | pnStatus.Caption := FRespConnectionState.instance.state; 68 | 69 | 70 | if UpperCase(FRespConnectionState.instance.state) = 'OPEN' then 71 | CLOSE; 72 | end; 73 | 74 | procedure TFrmqrCodeEvo.Timer1Timer(Sender: TObject); 75 | begin 76 | pnStatus.Caption := 'Verificando'; 77 | Button2Click(Sender); 78 | end; 79 | 80 | end. 81 | -------------------------------------------------------------------------------- /TDTEvolutionAPI.dcr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/TDTEvolutionAPI.dcr -------------------------------------------------------------------------------- /demo/Demo.dpr: -------------------------------------------------------------------------------- 1 | program Demo; 2 | 3 | uses 4 | Vcl.Forms, 5 | Unit3 in 'Unit3.pas' {Form3}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.MainFormOnTaskbar := True; 12 | Application.CreateForm(TForm3, Form3); 13 | Application.Run; 14 | end. 15 | -------------------------------------------------------------------------------- /demo/Demo.dproj.local: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 2024/04/08 14:44:01.000.469,=C:\Users\tiago\OneDrive\Documentos\Embarcadero\Studio\Projects\Unit3.pas 5 | 2024/04/08 14:46:53.000.199,C:\Users\tiago\OneDrive\Documentos\Embarcadero\Studio\Projects\Unit3.dfm=D:\Dropbox\Componentes\DTEvolutionAPI\demo\Unit3.dfm 6 | 2024/04/08 14:46:53.000.199,C:\Users\tiago\OneDrive\Documentos\Embarcadero\Studio\Projects\Unit3.pas=D:\Dropbox\Componentes\DTEvolutionAPI\demo\Unit3.pas 7 | 2024/04/08 14:46:57.000.628,C:\Users\tiago\OneDrive\Documentos\Embarcadero\Studio\Projects\Project3.dproj=D:\Dropbox\Componentes\DTEvolutionAPI\demo\Demo.dproj 8 | 9 | 10 | -------------------------------------------------------------------------------- /demo/Demo.identcache: -------------------------------------------------------------------------------- 1 | 3D:\Dropbox\Componentes\DTEvolutionAPI\demo\Demo.dpr4D:\Dropbox\Componentes\DTEvolutionAPI\demo\Unit3.pas -------------------------------------------------------------------------------- /demo/Demo.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/Demo.res -------------------------------------------------------------------------------- /demo/Demo.skincfg: -------------------------------------------------------------------------------- 1 | [ExpressSkins] 2 | Default=1 3 | ShowNotifications=0 4 | Enabled=0 5 | dxSkinBasic=1 6 | dxSkinBlack=1 7 | dxSkinBlue=1 8 | dxSkinBlueprint=1 9 | dxSkinCaramel=1 10 | dxSkinCoffee=1 11 | dxSkinDarkroom=1 12 | dxSkinDarkSide=1 13 | dxSkinDevExpressDarkStyle=1 14 | dxSkinDevExpressStyle=1 15 | dxSkinFoggy=1 16 | dxSkinGlassOceans=1 17 | dxSkinHighContrast=1 18 | dxSkiniMaginary=1 19 | dxSkinLilian=1 20 | dxSkinLiquidSky=1 21 | dxSkinLondonLiquidSky=1 22 | dxSkinMcSkin=1 23 | dxSkinMetropolis=1 24 | dxSkinMetropolisDark=1 25 | dxSkinMoneyTwins=1 26 | dxSkinOffice2007Black=1 27 | dxSkinOffice2007Blue=1 28 | dxSkinOffice2007Green=1 29 | dxSkinOffice2007Pink=1 30 | dxSkinOffice2007Silver=1 31 | dxSkinOffice2010Black=1 32 | dxSkinOffice2010Blue=1 33 | dxSkinOffice2010Silver=1 34 | dxSkinOffice2013DarkGray=1 35 | dxSkinOffice2013LightGray=1 36 | dxSkinOffice2013White=1 37 | dxSkinOffice2016Colorful=1 38 | dxSkinOffice2016Dark=1 39 | dxSkinOffice2019Black=1 40 | dxSkinOffice2019Colorful=1 41 | dxSkinOffice2019DarkGray=1 42 | dxSkinOffice2019White=1 43 | dxSkinPumpkin=1 44 | dxSkinSeven=1 45 | dxSkinSevenClassic=1 46 | dxSkinSharp=1 47 | dxSkinSharpPlus=1 48 | dxSkinSilver=1 49 | dxSkinSpringtime=1 50 | dxSkinStardust=1 51 | dxSkinSummer2008=1 52 | dxSkinTheAsphaltWorld=1 53 | dxSkinTheBezier=1 54 | dxSkinsDefaultPainters=1 55 | dxSkinValentine=1 56 | dxSkinVisualStudio2013Blue=1 57 | dxSkinVisualStudio2013Dark=1 58 | dxSkinVisualStudio2013Light=1 59 | dxSkinVS2010=1 60 | dxSkinWhiteprint=1 61 | dxSkinXmas2008Blue=1 62 | dxSkinWXI=1 63 | -------------------------------------------------------------------------------- /demo/RDa08808: -------------------------------------------------------------------------------- 1 | #line 1 "D:\\Dropbox\\Componentes\\DTEvolutionAPI\\demo\\RCa08808" 2 | #line 1 "D:\\Dropbox\\Componentes\\DTEvolutionAPI\\demo\\tmpD91C.tmp" 3 | #line 1 "D:\\Dropbox\\Componentes\\DTEvolutionAPI\\demo\\tmpD91C.tmp" 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | #line 10 "D:\\Dropbox\\Componentes\\DTEvolutionAPI\\demo\\tmpD91C.tmp" 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | #line 18 "D:\\Dropbox\\Componentes\\DTEvolutionAPI\\demo\\tmpD91C.tmp" 21 | 22 | 23 | 24 | 25 | 26 | #line 24 "D:\\Dropbox\\Componentes\\DTEvolutionAPI\\demo\\tmpD91C.tmp" 27 | 28 | 29 | 30 | 31 | 32 | #line 30 "D:\\Dropbox\\Componentes\\DTEvolutionAPI\\demo\\tmpD91C.tmp" 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | #line 39 "D:\\Dropbox\\Componentes\\DTEvolutionAPI\\demo\\tmpD91C.tmp" 42 | 1 VERSIONINFO 43 | FILEVERSION 1, 0, 0, 0 44 | PRODUCTVERSION 1, 0, 0, 0 45 | FILEFLAGSMASK 0x0000003FL 46 | FILEOS 0x00000004L 47 | FILETYPE 0x00000001L 48 | { 49 | BLOCK "StringFileInfo" 50 | { 51 | BLOCK "040904E4" 52 | { 53 | VALUE "FileDescription", "Demo\000\000" 54 | VALUE "FileVersion", "1.0.0.0\000\000" 55 | VALUE "ProgramID", "com.embarcadero.Demo\000\000" 56 | VALUE "ProductName", "Demo\000\000" 57 | VALUE "ProductVersion", "1.0.0.0\000\000" 58 | } 59 | } 60 | BLOCK "VarFileInfo" 61 | { 62 | VALUE "Translation", 1033, 1252 63 | } 64 | } 65 | #line 63 "D:\\Dropbox\\Componentes\\DTEvolutionAPI\\demo\\tmpD91C.tmp" 66 | MAINICON ICON "c:\\program files (x86)\\embarcadero\\studio\\23.0\\bin\\delphi_PROJECTICON.ico" 67 | 1 24 "Demo.$manifest" 68 | PLATFORMTARGETS RCDATA {0x1L} 69 | -------------------------------------------------------------------------------- /demo/Unit3.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/Unit3.pas -------------------------------------------------------------------------------- /demo/Win32/Debug/ConnectionState.dcu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/Win32/Debug/ConnectionState.dcu -------------------------------------------------------------------------------- /demo/Win32/Debug/Contacts.dcu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/Win32/Debug/Contacts.dcu -------------------------------------------------------------------------------- /demo/Win32/Debug/CreateInstance.dcu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/Win32/Debug/CreateInstance.dcu -------------------------------------------------------------------------------- /demo/Win32/Debug/DTEvolutionAPI.dcu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/Win32/Debug/DTEvolutionAPI.dcu -------------------------------------------------------------------------------- /demo/Win32/Debug/Demo.exe: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/Win32/Debug/Demo.exe -------------------------------------------------------------------------------- /demo/Win32/Debug/InstanceConnect.dcu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/Win32/Debug/InstanceConnect.dcu -------------------------------------------------------------------------------- /demo/Win32/Debug/RespConnectionState.dcu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/Win32/Debug/RespConnectionState.dcu -------------------------------------------------------------------------------- /demo/Win32/Debug/RespContacts.dcu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/Win32/Debug/RespContacts.dcu -------------------------------------------------------------------------------- /demo/Win32/Debug/RespCreateInstance.dcu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/Win32/Debug/RespCreateInstance.dcu -------------------------------------------------------------------------------- /demo/Win32/Debug/RespInstanceConnect.dcu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/Win32/Debug/RespInstanceConnect.dcu -------------------------------------------------------------------------------- /demo/Win32/Debug/RespSendText.dcu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/Win32/Debug/RespSendText.dcu -------------------------------------------------------------------------------- /demo/Win32/Debug/RespfetchInstances.dcu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/Win32/Debug/RespfetchInstances.dcu -------------------------------------------------------------------------------- /demo/Win32/Debug/SendText.dcu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/Win32/Debug/SendText.dcu -------------------------------------------------------------------------------- /demo/Win32/Debug/UEmojisEvo.dcu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/Win32/Debug/UEmojisEvo.dcu -------------------------------------------------------------------------------- /demo/Win32/Debug/Unit3.dcu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/Win32/Debug/Unit3.dcu -------------------------------------------------------------------------------- /demo/Win32/Debug/UntToken.dcu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/Win32/Debug/UntToken.dcu -------------------------------------------------------------------------------- /demo/Win32/Debug/UqrCodeEvo.dcu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/Win32/Debug/UqrCodeEvo.dcu -------------------------------------------------------------------------------- /demo/Win32/Debug/fetchInstances.dcu: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/Win32/Debug/fetchInstances.dcu -------------------------------------------------------------------------------- /demo/__history/Unit3.pas.~100~: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/__history/Unit3.pas.~100~ -------------------------------------------------------------------------------- /demo/__history/Unit3.pas.~101~: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/__history/Unit3.pas.~101~ -------------------------------------------------------------------------------- /demo/__history/Unit3.pas.~102~: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/__history/Unit3.pas.~102~ -------------------------------------------------------------------------------- /demo/__history/Unit3.pas.~103~: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/__history/Unit3.pas.~103~ -------------------------------------------------------------------------------- /demo/__history/Unit3.pas.~104~: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/__history/Unit3.pas.~104~ -------------------------------------------------------------------------------- /demo/__history/Unit3.pas.~105~: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/__history/Unit3.pas.~105~ -------------------------------------------------------------------------------- /demo/__history/Unit3.pas.~106~: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/__history/Unit3.pas.~106~ -------------------------------------------------------------------------------- /demo/__history/Unit3.pas.~107~: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/__history/Unit3.pas.~107~ -------------------------------------------------------------------------------- /demo/__history/Unit3.pas.~108~: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/__history/Unit3.pas.~108~ -------------------------------------------------------------------------------- /demo/__history/Unit3.pas.~99~: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/demo/__history/Unit3.pas.~99~ -------------------------------------------------------------------------------- /dto/UntToken.pas: -------------------------------------------------------------------------------- 1 | unit UntToken; 2 | 3 | interface 4 | 5 | Type TToken = class 6 | public 7 | function GenerateToken: string; 8 | end; 9 | 10 | implementation 11 | 12 | function TToken.GenerateToken: string; 13 | var 14 | i: Integer; 15 | begin 16 | Randomize; 17 | Result := ''; 18 | for i := 1 to 12 do 19 | begin 20 | if Random(2) = 0 then 21 | Result := Result + Chr(Ord('A') + Random(26)) 22 | else 23 | Result := Result + Chr(Ord('a') + Random(26)); 24 | end; 25 | end; 26 | 27 | end. 28 | -------------------------------------------------------------------------------- /dto/__history/CreateInstance.pas.~27~: -------------------------------------------------------------------------------- 1 | unit CreateInstance; 2 | 3 | interface 4 | uses 5 | RespCreateInstance, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json, 10 | UntToken; 11 | 12 | type 13 | 14 | TCreateInstance = class 15 | private 16 | FInstanceName: string; 17 | FQrcode : Boolean; 18 | FToken : string; 19 | // Instance of TRespCreateInstance 20 | [JSONMarshalledAttribute(False)] 21 | FRespCreateInstance: TRespCreateInstance; 22 | // Store Last Response Message from StatusCode 23 | [JSONMarshalledAttribute(False)] 24 | FResponseMessage: string; 25 | public 26 | property instanceName : string read FInstanceName write FInstanceName; 27 | property qrcode : Boolean read FQrcode write FQrcode; 28 | property token : string read FToken write FToken; 29 | // Instance of TRespCreateInstance 30 | property RespCreateInstance: TRespCreateInstance read FRespCreateInstance write FRespCreateInstance; 31 | // Get Last Response Message from StatusCode 32 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 33 | 34 | function ToJsonString: string; 35 | class function FromJsonString(const AJsonString: string): TCreateInstance; 36 | function APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 37 | 38 | end; 39 | 40 | implementation 41 | uses 42 | System.Classes, 43 | System.NetEncoding, 44 | System.NetConsts, 45 | System.Net.URLClient, 46 | System.Net.HttpClient, 47 | System.Net.HttpClientComponent, fetchInstances; 48 | 49 | {TCreateInstance} 50 | function TCreateInstance.ToJsonString: string; 51 | begin 52 | Result := TJson.ObjectToJsonString(Self); 53 | end; 54 | 55 | class function TCreateInstance.FromJsonString(const AJsonString: string): TCreateInstance; 56 | begin 57 | Result := TJson.JsonToObject(AJsonString); 58 | end; 59 | 60 | function TCreateInstance.APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 61 | var 62 | HttpClient : THttpClient; 63 | LResponse : IHttpResponse; 64 | RequestBody : TStringStream; 65 | xURL_EXECUTE : string; 66 | json : String; 67 | tk : TToken; 68 | xInst : TFetchInstances; 69 | begin 70 | xInst := TFetchInstances.Create; 71 | tk := TToken.Create; 72 | xURL_EXECUTE := BaseURL + '/instance/create'; 73 | FResponseMessage := ''; 74 | HttpClient := THTTPClient.Create; 75 | HttpClient.ContentType := 'application/json'; 76 | 77 | 78 | // VERIFICA SE A INSTANCIA EXISTE 79 | 80 | 81 | 82 | json := 83 | ' { ' + 84 | ' "instanceName": "'+Instancia+'", ' + 85 | ' "token": "'+ tk.GenerateToken +'", ' + 86 | ' "qrcode": true ' + 87 | ' }'; 88 | try 89 | {Add Body} 90 | RequestBody := TStringStream.Create(json); 91 | 92 | LResponse := HttpClient.Post( xURL_EXECUTE, 93 | RequestBody,nil, 94 | 95 | TNetHeaders.Create( 96 | {Add Headers} 97 | TNameValuePair.Create('apikey', Key))); 98 | 99 | {Execute method POST and return instance of TRespCreateInstance} 100 | FRespCreateInstance := TRespCreateInstance.FromJsonString(LResponse.ContentAsString); 101 | 102 | Result := LResponse.StatusCode = 200; 103 | 104 | 105 | if not LResponse.StatusCode in [200,201] then 106 | raise Exception.Create( LResponse.ContentAsString ); 107 | except 108 | on E:Exception do 109 | begin 110 | Result := False; 111 | FResponseMessage := E.Message; 112 | raise Exception.Create('Error Method TCreateInstance.APIExecute'+ sLineBreak + E.Message); 113 | end; 114 | end; 115 | if Assigned(tk) then 116 | FreeAndNil(tk); 117 | end; 118 | 119 | end. 120 | -------------------------------------------------------------------------------- /dto/__history/CreateInstance.pas.~28~: -------------------------------------------------------------------------------- 1 | unit CreateInstance; 2 | 3 | interface 4 | uses 5 | RespCreateInstance, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json, 10 | UntToken; 11 | 12 | type 13 | 14 | TCreateInstance = class 15 | private 16 | FInstanceName: string; 17 | FQrcode : Boolean; 18 | FToken : string; 19 | // Instance of TRespCreateInstance 20 | [JSONMarshalledAttribute(False)] 21 | FRespCreateInstance: TRespCreateInstance; 22 | // Store Last Response Message from StatusCode 23 | [JSONMarshalledAttribute(False)] 24 | FResponseMessage: string; 25 | public 26 | property instanceName : string read FInstanceName write FInstanceName; 27 | property qrcode : Boolean read FQrcode write FQrcode; 28 | property token : string read FToken write FToken; 29 | // Instance of TRespCreateInstance 30 | property RespCreateInstance: TRespCreateInstance read FRespCreateInstance write FRespCreateInstance; 31 | // Get Last Response Message from StatusCode 32 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 33 | 34 | function ToJsonString: string; 35 | class function FromJsonString(const AJsonString: string): TCreateInstance; 36 | function APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 37 | 38 | end; 39 | 40 | implementation 41 | uses 42 | System.Classes, 43 | System.NetEncoding, 44 | System.NetConsts, 45 | System.Net.URLClient, 46 | System.Net.HttpClient, 47 | System.Net.HttpClientComponent, fetchInstances; 48 | 49 | {TCreateInstance} 50 | function TCreateInstance.ToJsonString: string; 51 | begin 52 | Result := TJson.ObjectToJsonString(Self); 53 | end; 54 | 55 | class function TCreateInstance.FromJsonString(const AJsonString: string): TCreateInstance; 56 | begin 57 | Result := TJson.JsonToObject(AJsonString); 58 | end; 59 | 60 | function TCreateInstance.APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 61 | var 62 | HttpClient : THttpClient; 63 | LResponse : IHttpResponse; 64 | RequestBody : TStringStream; 65 | xURL_EXECUTE : string; 66 | json : String; 67 | tk : TToken; 68 | xInst : TFetchInstances; 69 | begin 70 | xInst := TFetchInstances.Create; 71 | tk := TToken.Create; 72 | xURL_EXECUTE := BaseURL + '/instance/create'; 73 | FResponseMessage := ''; 74 | HttpClient := THTTPClient.Create; 75 | HttpClient.ContentType := 'application/json'; 76 | 77 | 78 | // VERIFICA SE A INSTANCIA EXISTE 79 | 80 | 81 | json := 82 | ' { ' + 83 | ' "instanceName": "'+Instancia+'", ' + 84 | ' "token": "'+ tk.GenerateToken +'", ' + 85 | ' "qrcode": true ' + 86 | ' }'; 87 | try 88 | {Add Body} 89 | RequestBody := TStringStream.Create(json); 90 | 91 | LResponse := HttpClient.Post( xURL_EXECUTE, 92 | RequestBody,nil, 93 | 94 | TNetHeaders.Create( 95 | {Add Headers} 96 | TNameValuePair.Create('apikey', Key))); 97 | 98 | {Execute method POST and return instance of TRespCreateInstance} 99 | FRespCreateInstance := TRespCreateInstance.FromJsonString(LResponse.ContentAsString); 100 | 101 | Result := LResponse.StatusCode = 200; 102 | 103 | 104 | if not LResponse.StatusCode in [200,201] then 105 | raise Exception.Create( LResponse.ContentAsString ); 106 | except 107 | on E:Exception do 108 | begin 109 | Result := False; 110 | FResponseMessage := E.Message; 111 | raise Exception.Create('Error Method TCreateInstance.APIExecute'+ sLineBreak + E.Message); 112 | end; 113 | end; 114 | if Assigned(tk) then 115 | FreeAndNil(tk); 116 | end; 117 | 118 | end. 119 | -------------------------------------------------------------------------------- /dto/__history/CreateInstance.pas.~29~: -------------------------------------------------------------------------------- 1 | unit CreateInstance; 2 | 3 | interface 4 | uses 5 | RespCreateInstance, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json, 10 | UntToken; 11 | 12 | type 13 | 14 | TCreateInstance = class 15 | private 16 | FInstanceName: string; 17 | FQrcode : Boolean; 18 | FToken : string; 19 | // Instance of TRespCreateInstance 20 | [JSONMarshalledAttribute(False)] 21 | FRespCreateInstance: TRespCreateInstance; 22 | // Store Last Response Message from StatusCode 23 | [JSONMarshalledAttribute(False)] 24 | FResponseMessage: string; 25 | public 26 | property instanceName : string read FInstanceName write FInstanceName; 27 | property qrcode : Boolean read FQrcode write FQrcode; 28 | property token : string read FToken write FToken; 29 | // Instance of TRespCreateInstance 30 | property RespCreateInstance: TRespCreateInstance read FRespCreateInstance write FRespCreateInstance; 31 | // Get Last Response Message from StatusCode 32 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 33 | 34 | function ToJsonString: string; 35 | class function FromJsonString(const AJsonString: string): TCreateInstance; 36 | function APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 37 | 38 | end; 39 | 40 | implementation 41 | uses 42 | System.Classes, 43 | System.NetEncoding, 44 | System.NetConsts, 45 | System.Net.URLClient, 46 | System.Net.HttpClient, 47 | System.Net.HttpClientComponent, fetchInstances; 48 | 49 | {TCreateInstance} 50 | function TCreateInstance.ToJsonString: string; 51 | begin 52 | Result := TJson.ObjectToJsonString(Self); 53 | end; 54 | 55 | class function TCreateInstance.FromJsonString(const AJsonString: string): TCreateInstance; 56 | begin 57 | Result := TJson.JsonToObject(AJsonString); 58 | end; 59 | 60 | function TCreateInstance.APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 61 | var 62 | HttpClient : THttpClient; 63 | LResponse : IHttpResponse; 64 | RequestBody : TStringStream; 65 | xURL_EXECUTE : string; 66 | json : String; 67 | tk : TToken; 68 | xInst : TFetchInstances; 69 | begin 70 | xInst := TFetchInstances.Create; 71 | tk := TToken.Create; 72 | xURL_EXECUTE := BaseURL + '/instance/create'; 73 | FResponseMessage := ''; 74 | HttpClient := THTTPClient.Create; 75 | HttpClient.ContentType := 'application/json'; 76 | 77 | // VERIFICA SE A INSTANCIA EXISTE 78 | 79 | 80 | json := 81 | ' { ' + 82 | ' "instanceName": "'+Instancia+'", ' + 83 | ' "token": "'+ tk.GenerateToken +'", ' + 84 | ' "qrcode": true ' + 85 | ' }'; 86 | try 87 | {Add Body} 88 | RequestBody := TStringStream.Create(json); 89 | 90 | LResponse := HttpClient.Post( xURL_EXECUTE, 91 | RequestBody,nil, 92 | 93 | TNetHeaders.Create( 94 | {Add Headers} 95 | TNameValuePair.Create('apikey', Key))); 96 | 97 | {Execute method POST and return instance of TRespCreateInstance} 98 | FRespCreateInstance := TRespCreateInstance.FromJsonString(LResponse.ContentAsString); 99 | 100 | Result := LResponse.StatusCode = 200; 101 | 102 | 103 | if not LResponse.StatusCode in [200,201] then 104 | raise Exception.Create( LResponse.ContentAsString ); 105 | except 106 | on E:Exception do 107 | begin 108 | Result := False; 109 | FResponseMessage := E.Message; 110 | raise Exception.Create('Error Method TCreateInstance.APIExecute'+ sLineBreak + E.Message); 111 | end; 112 | end; 113 | if Assigned(tk) then 114 | FreeAndNil(tk); 115 | end; 116 | 117 | end. 118 | -------------------------------------------------------------------------------- /dto/__history/CreateInstance.pas.~30~: -------------------------------------------------------------------------------- 1 | unit CreateInstance; 2 | 3 | interface 4 | uses 5 | RespCreateInstance, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json, 10 | UntToken; 11 | 12 | type 13 | 14 | TCreateInstance = class 15 | private 16 | FInstanceName: string; 17 | FQrcode : Boolean; 18 | FToken : string; 19 | // Instance of TRespCreateInstance 20 | [JSONMarshalledAttribute(False)] 21 | FRespCreateInstance: TRespCreateInstance; 22 | // Store Last Response Message from StatusCode 23 | [JSONMarshalledAttribute(False)] 24 | FResponseMessage: string; 25 | public 26 | property instanceName : string read FInstanceName write FInstanceName; 27 | property qrcode : Boolean read FQrcode write FQrcode; 28 | property token : string read FToken write FToken; 29 | // Instance of TRespCreateInstance 30 | property RespCreateInstance: TRespCreateInstance read FRespCreateInstance write FRespCreateInstance; 31 | // Get Last Response Message from StatusCode 32 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 33 | 34 | function ToJsonString: string; 35 | class function FromJsonString(const AJsonString: string): TCreateInstance; 36 | function APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 37 | 38 | end; 39 | 40 | implementation 41 | uses 42 | System.Classes, 43 | System.NetEncoding, 44 | System.NetConsts, 45 | System.Net.URLClient, 46 | System.Net.HttpClient, 47 | System.Net.HttpClientComponent, fetchInstances; 48 | 49 | {TCreateInstance} 50 | function TCreateInstance.ToJsonString: string; 51 | begin 52 | Result := TJson.ObjectToJsonString(Self); 53 | end; 54 | 55 | class function TCreateInstance.FromJsonString(const AJsonString: string): TCreateInstance; 56 | begin 57 | Result := TJson.JsonToObject(AJsonString); 58 | end; 59 | 60 | function TCreateInstance.APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 61 | var 62 | HttpClient : THttpClient; 63 | LResponse : IHttpResponse; 64 | RequestBody : TStringStream; 65 | xURL_EXECUTE : string; 66 | json : String; 67 | tk : TToken; 68 | xInst : TFetchInstances; 69 | begin 70 | // VERIFICA SE A INSTANCIA EXISTE 71 | xInst := TFetchInstances.Create; 72 | xInst.APIExecute(BaseURL,Key,instancia); 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | tk := TToken.Create; 81 | xURL_EXECUTE := BaseURL + '/instance/create'; 82 | FResponseMessage := ''; 83 | HttpClient := THTTPClient.Create; 84 | HttpClient.ContentType := 'application/json'; 85 | json := 86 | ' { ' + 87 | ' "instanceName": "'+Instancia+'", ' + 88 | ' "token": "'+ tk.GenerateToken +'", ' + 89 | ' "qrcode": true ' + 90 | ' }'; 91 | try 92 | {Add Body} 93 | RequestBody := TStringStream.Create(json); 94 | 95 | LResponse := HttpClient.Post( xURL_EXECUTE, 96 | RequestBody,nil, 97 | 98 | TNetHeaders.Create( 99 | {Add Headers} 100 | TNameValuePair.Create('apikey', Key))); 101 | 102 | {Execute method POST and return instance of TRespCreateInstance} 103 | FRespCreateInstance := TRespCreateInstance.FromJsonString(LResponse.ContentAsString); 104 | 105 | Result := LResponse.StatusCode = 200; 106 | 107 | 108 | if not LResponse.StatusCode in [200,201] then 109 | raise Exception.Create( LResponse.ContentAsString ); 110 | except 111 | on E:Exception do 112 | begin 113 | Result := False; 114 | FResponseMessage := E.Message; 115 | raise Exception.Create('Error Method TCreateInstance.APIExecute'+ sLineBreak + E.Message); 116 | end; 117 | end; 118 | if Assigned(tk) then 119 | FreeAndNil(tk); 120 | end; 121 | 122 | end. 123 | -------------------------------------------------------------------------------- /dto/__history/InstanceConnect.pas.~1~: -------------------------------------------------------------------------------- 1 | unit InstanceConnect; 2 | 3 | interface 4 | uses 5 | InstanceConnectMessages, 6 | RespInstanceConnect, 7 | System.SysUtils, 8 | Generics.Collections, 9 | REST.Json.Types, 10 | Rest.Json; 11 | 12 | type 13 | 14 | TInstanceConnect = class 15 | private 16 | FInstanceName: string; 17 | FQrcode : Boolean; 18 | FToken : string; 19 | // Instance of TRespInstanceConnect 20 | [JSONMarshalledAttribute(False)] 21 | FRespInstanceConnect: TRespInstanceConnect; 22 | // Store Last Response Message from StatusCode 23 | [JSONMarshalledAttribute(False)] 24 | FResponseMessage: string; 25 | public 26 | property instanceName : string read FInstanceName write FInstanceName; 27 | property qrcode : Boolean read FQrcode write FQrcode; 28 | property token : string read FToken write FToken; 29 | // Instance of TRespInstanceConnect 30 | property RespInstanceConnect: TRespInstanceConnect read FRespInstanceConnect write FRespInstanceConnect; 31 | // Get Last Response Message from StatusCode 32 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 33 | 34 | function ToJsonString: string; 35 | class function FromJsonString(const AJsonString: string): TInstanceConnect; 36 | function APIExecute: boolean; 37 | 38 | end; 39 | 40 | implementation 41 | uses 42 | System.Classes, 43 | System.NetEncoding, 44 | System.NetConsts, 45 | System.Net.URLClient, 46 | System.Net.HttpClient, 47 | System.Net.HttpClientComponent; 48 | 49 | {TInstanceConnect} 50 | function TInstanceConnect.ToJsonString: string; 51 | begin 52 | Result := TJson.ObjectToJsonString(self); 53 | end; 54 | 55 | class function TInstanceConnect.FromJsonString(const AJsonString: string): TInstanceConnect; 56 | begin 57 | Result := TJson.JsonToObject(AJsonString); 58 | end; 59 | 60 | function TInstanceConnect.APIExecute: boolean; 61 | const 62 | xURL_EXECUTE = 'https://evoapi.dtloja.com.br/instance/connect/dtkey'; 63 | var 64 | HttpClient : THttpClient; 65 | LResponse : IHttpResponse; 66 | RequestBody : TStringStream; 67 | begin 68 | FResponseMessage := ''; 69 | HttpClient := THTTPClient.Create; 70 | try 71 | {Add Body} 72 | RequestBody := TStringStream.Create(Self.ToJsonString); 73 | 74 | LResponse := HttpClient.Get( xURL_EXECUTE, 75 | RequestBody, 76 | 77 | TNetHeaders.Create( 78 | {Add Params} 79 | TNameValuePair.Create('instanceName', 'dtkey'), 80 | 81 | {Add Headers} 82 | TNameValuePair.Create('apikey', 'B6D711FCDE4D4FD5936544120E713976') 83 | )); 84 | 85 | {Execute method GET and return instance of TRespInstanceConnect} 86 | FRespInstanceConnect := TRespInstanceConnect.FromJsonString(LResponse.ContentAsString); 87 | 88 | Result := LResponse.StatusCode = 200; 89 | 90 | 91 | if not LResponse.StatusCode in [200,201] then 92 | raise Exception.Create( LResponse.ContentAsString ); 93 | except 94 | on E:Exception do 95 | begin 96 | Result := False; 97 | FResponseMessage := E.Message; 98 | raise Exception.Create('Error Method TInstanceConnect.APIExecute'+ sLineBreak + E.Message); 99 | end; 100 | end; 101 | end; 102 | 103 | end. 104 | -------------------------------------------------------------------------------- /dto/__history/UntToken.pas.~1~: -------------------------------------------------------------------------------- 1 | unit UntToken; 2 | 3 | interface 4 | 5 | implementation 6 | 7 | function T_frmMain.GenerateToken: string; 8 | var 9 | i: Integer; 10 | begin 11 | Randomize; 12 | Result := ''; 13 | for i := 1 to 12 do 14 | begin 15 | if Random(2) = 0 then 16 | Result := Result + Chr(Ord('A') + Random(26)) 17 | else 18 | Result := Result + Chr(Ord('a') + Random(26)); 19 | end; 20 | end; 21 | 22 | end. 23 | -------------------------------------------------------------------------------- /dto/__history/UntToken.pas.~2~: -------------------------------------------------------------------------------- 1 | unit UntToken; 2 | 3 | interface 4 | 5 | implementation 6 | 7 | function GenerateToken: string; 8 | var 9 | i: Integer; 10 | begin 11 | Randomize; 12 | Result := ''; 13 | for i := 1 to 12 do 14 | begin 15 | if Random(2) = 0 then 16 | Result := Result + Chr(Ord('A') + Random(26)) 17 | else 18 | Result := Result + Chr(Ord('a') + Random(26)); 19 | end; 20 | end; 21 | 22 | end. 23 | -------------------------------------------------------------------------------- /dto/__history/fetchInstances.pas.~1~: -------------------------------------------------------------------------------- 1 | unit fetchInstances; 2 | 3 | interface 4 | uses 5 | fetchInstancesMessages, 6 | RespfetchInstances, 7 | System.SysUtils, 8 | Generics.Collections, 9 | REST.Json.Types, 10 | Rest.Json; 11 | 12 | type 13 | 14 | TFetchInstances = class 15 | private 16 | FInstanceName: string; 17 | FQrcode : Boolean; 18 | FToken : string; 19 | public 20 | property instanceName : string read FInstanceName write FInstanceName; 21 | property qrcode : Boolean read FQrcode write FQrcode; 22 | property token : string read FToken write FToken; 23 | 24 | function ToJsonString: string; 25 | class function FromJsonString(const AJsonString: string): TFetchInstances; 26 | end; 27 | 28 | implementation 29 | uses 30 | System.Classes, 31 | System.NetEncoding, 32 | System.NetConsts, 33 | System.Net.URLClient, 34 | System.Net.HttpClient, 35 | System.Net.HttpClientComponent; 36 | 37 | {TFetchInstances} 38 | function TFetchInstances.ToJsonString: string; 39 | begin 40 | Result := TJson.ObjectToJsonString(self); 41 | end; 42 | 43 | class function TFetchInstances.FromJsonString(const AJsonString: string): TFetchInstances; 44 | begin 45 | Result := TJson.JsonToObject(AJsonString); 46 | end; 47 | 48 | end. 49 | -------------------------------------------------------------------------------- /dto/__history/fetchInstances.pas.~2~: -------------------------------------------------------------------------------- 1 | unit fetchInstances; 2 | 3 | interface 4 | uses 5 | RespfetchInstances, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TFetchInstances = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | public 19 | property instanceName : string read FInstanceName write FInstanceName; 20 | property qrcode : Boolean read FQrcode write FQrcode; 21 | property token : string read FToken write FToken; 22 | 23 | function ToJsonString: string; 24 | class function FromJsonString(const AJsonString: string): TFetchInstances; 25 | end; 26 | 27 | implementation 28 | uses 29 | System.Classes, 30 | System.NetEncoding, 31 | System.NetConsts, 32 | System.Net.URLClient, 33 | System.Net.HttpClient, 34 | System.Net.HttpClientComponent; 35 | 36 | {TFetchInstances} 37 | function TFetchInstances.ToJsonString: string; 38 | begin 39 | Result := TJson.ObjectToJsonString(self); 40 | end; 41 | 42 | class function TFetchInstances.FromJsonString(const AJsonString: string): TFetchInstances; 43 | begin 44 | Result := TJson.JsonToObject(AJsonString); 45 | end; 46 | 47 | end. 48 | -------------------------------------------------------------------------------- /dto/__history/fetchInstances.pas.~3~: -------------------------------------------------------------------------------- 1 | unit fetchInstances; 2 | 3 | interface 4 | uses 5 | RespfetchInstances, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TFetchInstances = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | 19 | public 20 | property instanceName : string read FInstanceName write FInstanceName; 21 | property qrcode : Boolean read FQrcode write FQrcode; 22 | property token : string read FToken write FToken; 23 | 24 | function ToJsonString: string; 25 | class function FromJsonString(const AJsonString: string): TFetchInstances; 26 | function APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 27 | end; 28 | 29 | implementation 30 | uses 31 | System.Classes, 32 | System.NetEncoding, 33 | System.NetConsts, 34 | System.Net.URLClient, 35 | System.Net.HttpClient, 36 | System.Net.HttpClientComponent; 37 | 38 | {TFetchInstances} 39 | function TFetchInstances.ToJsonString: string; 40 | begin 41 | Result := TJson.ObjectToJsonString(self); 42 | end; 43 | 44 | class function TFetchInstances.FromJsonString(const AJsonString: string): TFetchInstances; 45 | begin 46 | Result := TJson.JsonToObject(AJsonString); 47 | end; 48 | 49 | function TFetchInstances.APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 50 | var 51 | HttpClient : THttpClient; 52 | LResponse : IHttpResponse; 53 | RequestBody : TStringStream; 54 | xURL_EXECUTE : string; 55 | json : String; 56 | tk : TToken; 57 | begin 58 | tk := TToken.Create; 59 | xURL_EXECUTE := BaseURL + '/instance/fetchInstances'; 60 | FResponseMessage := ''; 61 | HttpClient := THTTPClient.Create; 62 | HttpClient.ContentType := 'application/json'; 63 | json := 64 | ' { ' + 65 | ' "instanceName": "'+Instancia+'", ' + 66 | ' "token": "'+ tk.GenerateToken +'", ' + 67 | ' "qrcode": true ' + 68 | ' }'; 69 | try 70 | {Add Body} 71 | RequestBody := TStringStream.Create(json); 72 | 73 | LResponse := HttpClient.Post( xURL_EXECUTE, 74 | RequestBody,nil, 75 | 76 | TNetHeaders.Create( 77 | {Add Headers} 78 | TNameValuePair.Create('apikey', Key))); 79 | 80 | {Execute method POST and return instance of TRespCreateInstance} 81 | FRespCreateInstance := TRespCreateInstance.FromJsonString(LResponse.ContentAsString); 82 | 83 | Result := LResponse.StatusCode = 200; 84 | 85 | 86 | if not LResponse.StatusCode in [200,201] then 87 | raise Exception.Create( LResponse.ContentAsString ); 88 | except 89 | on E:Exception do 90 | begin 91 | Result := False; 92 | FResponseMessage := E.Message; 93 | raise Exception.Create('Error Method TCreateInstance.APIExecute'+ sLineBreak + E.Message); 94 | end; 95 | end; 96 | if Assigned(tk) then 97 | FreeAndNil(tk); 98 | end; 99 | 100 | end. 101 | -------------------------------------------------------------------------------- /dto/__history/fetchInstances.pas.~4~: -------------------------------------------------------------------------------- 1 | unit fetchInstances; 2 | 3 | interface 4 | uses 5 | RespfetchInstances, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TFetchInstances = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | 19 | public 20 | property instanceName : string read FInstanceName write FInstanceName; 21 | property qrcode : Boolean read FQrcode write FQrcode; 22 | property token : string read FToken write FToken; 23 | 24 | function ToJsonString: string; 25 | class function FromJsonString(const AJsonString: string): TFetchInstances; 26 | function APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 27 | end; 28 | 29 | implementation 30 | uses 31 | System.Classes, 32 | System.NetEncoding, 33 | System.NetConsts, 34 | System.Net.URLClient, 35 | System.Net.HttpClient, 36 | System.Net.HttpClientComponent; 37 | 38 | {TFetchInstances} 39 | function TFetchInstances.ToJsonString: string; 40 | begin 41 | Result := TJson.ObjectToJsonString(self); 42 | end; 43 | 44 | class function TFetchInstances.FromJsonString(const AJsonString: string): TFetchInstances; 45 | begin 46 | Result := TJson.JsonToObject(AJsonString); 47 | end; 48 | 49 | function TFetchInstances.APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 50 | var 51 | HttpClient : THttpClient; 52 | LResponse : IHttpResponse; 53 | RequestBody : TStringStream; 54 | xURL_EXECUTE : string; 55 | json : String; 56 | begin 57 | xURL_EXECUTE := BaseURL + '/instance/fetchInstances'; 58 | HttpClient := THTTPClient.Create; 59 | HttpClient.ContentType := 'application/json'; 60 | 61 | try 62 | {Add Body} 63 | RequestBody := TStringStream.Create(''); 64 | 65 | LResponse := HttpClient.Get( xURL_EXECUTE, 66 | RequestBody, 67 | 68 | TNetHeaders.Create( 69 | {Add Headers} 70 | TNameValuePair.Create('apikey', Key), 71 | TNameValuePair.Create('instanceName', instancia))); 72 | 73 | 74 | Result := LResponse.StatusCode = 200; 75 | 76 | 77 | if not LResponse.StatusCode in [200,201] then 78 | raise Exception.Create( LResponse.ContentAsString ); 79 | except 80 | on E:Exception do 81 | begin 82 | Result := False; 83 | FResponseMessage := E.Message; 84 | raise Exception.Create('Error Method TCreateInstance.APIExecute'+ sLineBreak + E.Message); 85 | end; 86 | end; 87 | if Assigned(tk) then 88 | FreeAndNil(tk); 89 | end; 90 | 91 | end. 92 | -------------------------------------------------------------------------------- /dto/__history/fetchInstances.pas.~5~: -------------------------------------------------------------------------------- 1 | unit fetchInstances; 2 | 3 | interface 4 | uses 5 | RespfetchInstances, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TFetchInstances = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | 19 | public 20 | property instanceName : string read FInstanceName write FInstanceName; 21 | property qrcode : Boolean read FQrcode write FQrcode; 22 | property token : string read FToken write FToken; 23 | 24 | function ToJsonString: string; 25 | class function FromJsonString(const AJsonString: string): TFetchInstances; 26 | function APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 27 | end; 28 | 29 | implementation 30 | uses 31 | System.Classes, 32 | System.NetEncoding, 33 | System.NetConsts, 34 | System.Net.URLClient, 35 | System.Net.HttpClient, 36 | System.Net.HttpClientComponent; 37 | 38 | {TFetchInstances} 39 | function TFetchInstances.ToJsonString: string; 40 | begin 41 | Result := TJson.ObjectToJsonString(self); 42 | end; 43 | 44 | class function TFetchInstances.FromJsonString(const AJsonString: string): TFetchInstances; 45 | begin 46 | Result := TJson.JsonToObject(AJsonString); 47 | end; 48 | 49 | function TFetchInstances.APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 50 | var 51 | HttpClient : THttpClient; 52 | LResponse : IHttpResponse; 53 | RequestBody : TStringStream; 54 | xURL_EXECUTE : string; 55 | json : String; 56 | begin 57 | xURL_EXECUTE := BaseURL + '/instance/fetchInstances'; 58 | HttpClient := THTTPClient.Create; 59 | HttpClient.ContentType := 'application/json'; 60 | 61 | try 62 | {Add Body} 63 | RequestBody := TStringStream.Create(''); 64 | 65 | LResponse := HttpClient.Get( xURL_EXECUTE, 66 | RequestBody, 67 | 68 | TNetHeaders.Create( 69 | {Add Headers} 70 | TNameValuePair.Create('apikey', Key), 71 | TNameValuePair.Create('instanceName', instancia))); 72 | 73 | 74 | Result := LResponse.StatusCode = 200; 75 | 76 | 77 | if not LResponse.StatusCode in [200,201] then 78 | raise Exception.Create( LResponse.ContentAsString ); 79 | except 80 | on E:Exception do 81 | begin 82 | Result := False; 83 | raise Exception.Create('Error Method TCreateInstance.APIExecute'+ sLineBreak + E.Message); 84 | end; 85 | end; 86 | end; 87 | 88 | end. 89 | -------------------------------------------------------------------------------- /dto/contacts/Contacts.pas: -------------------------------------------------------------------------------- 1 | unit Contacts; 2 | 3 | interface 4 | uses 5 | RespContacts, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TWhere = class 14 | private 15 | public 16 | 17 | function ToJsonString: string; 18 | class function FromJsonString(const AJsonString: string): TWhere; 19 | end; 20 | 21 | TContacts = class 22 | private 23 | FWhere: TWhere; 24 | // Instance of TRespContacts 25 | [JSONMarshalledAttribute(False)] 26 | FRespContacts: TRespContacts; 27 | // Store Last Response Message from StatusCode 28 | [JSONMarshalledAttribute(False)] 29 | FResponseMessage: string; 30 | public 31 | constructor Create; 32 | destructor Destroy; override; 33 | 34 | property where : TWhere read FWhere write FWhere; 35 | // Instance of TRespContacts 36 | property RespContacts: TRespContacts read FRespContacts write FRespContacts; 37 | // Get Last Response Message from StatusCode 38 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 39 | 40 | function ToJsonString: string; 41 | class function FromJsonString(const AJsonString: string): TContacts; 42 | function APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 43 | 44 | end; 45 | 46 | implementation 47 | uses 48 | System.Classes, 49 | System.NetEncoding, 50 | System.NetConsts, 51 | System.Net.URLClient, 52 | System.Net.HttpClient, 53 | System.Net.HttpClientComponent; 54 | 55 | {TWhere} 56 | function TWhere.ToJsonString: string; 57 | begin 58 | Result := TJson.ObjectToJsonString(self); 59 | end; 60 | 61 | class function TWhere.FromJsonString(const AJsonString: string): TWhere; 62 | begin 63 | Result := TJson.JsonToObject(AJsonString); 64 | end; 65 | 66 | {TContacts} 67 | constructor TContacts.Create; 68 | begin 69 | inherited; 70 | 71 | FWhere := TWhere.Create; 72 | end; 73 | 74 | destructor TContacts.Destroy; 75 | begin 76 | if Assigned(FWhere) then 77 | FreeAndNil(FWhere); 78 | 79 | if Assigned(FRespContacts) then 80 | FreeAndNil(FRespContacts); 81 | 82 | inherited; 83 | end; 84 | 85 | function TContacts.ToJsonString: string; 86 | begin 87 | Result := TJson.ObjectToJsonString(self); 88 | end; 89 | 90 | class function TContacts.FromJsonString(const AJsonString: string): TContacts; 91 | begin 92 | Result := TJson.JsonToObject(AJsonString); 93 | end; 94 | 95 | function TContacts.APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 96 | var 97 | HttpClient : THttpClient; 98 | LResponse : IHttpResponse; 99 | RequestBody : TStringStream; 100 | xURL_EXECUTE : string; 101 | begin 102 | FResponseMessage := ''; 103 | xURL_EXECUTE := BaseURL + '/chat/findContacts/' + instancia; 104 | HttpClient := THTTPClient.Create; 105 | try 106 | {Add Body} 107 | RequestBody := TStringStream.Create(Self.ToJsonString); 108 | 109 | LResponse := HttpClient.Post( xURL_EXECUTE, 110 | RequestBody,nil, 111 | 112 | TNetHeaders.Create( 113 | 114 | {Add Headers} 115 | TNameValuePair.Create('apikey', key) 116 | )); 117 | 118 | {Execute method POST and return instance of TRespContacts} 119 | FRespContacts := TRespContacts.FromJsonString( '{"result": {"lista:" ' + LResponse.ContentAsString + '}}'); 120 | 121 | Result := LResponse.StatusCode = 200; 122 | 123 | 124 | if not LResponse.StatusCode in [200,201] then 125 | raise Exception.Create( LResponse.ContentAsString ); 126 | except 127 | on E:Exception do 128 | begin 129 | Result := False; 130 | FResponseMessage := E.Message; 131 | raise Exception.Create('Error Method TContacts.APIExecute'+ sLineBreak + E.Message); 132 | end; 133 | end; 134 | end; 135 | 136 | end. 137 | -------------------------------------------------------------------------------- /dto/contacts/RespContacts.pas: -------------------------------------------------------------------------------- 1 | unit RespContacts; 2 | 3 | interface 4 | uses 5 | System.SysUtils, 6 | Generics.Collections, 7 | REST.Json.Types, 8 | Rest.Json; 9 | 10 | type 11 | 12 | TLista = class 13 | private 14 | FId : string; 15 | FOwner : string; 16 | FProfilePictureUrl: string; 17 | FPushName : string; 18 | public 19 | property id : string read FId write FId; 20 | property owner : string read FOwner write FOwner; 21 | property profilePictureUrl : string read FProfilePictureUrl write FProfilePictureUrl; 22 | property pushName : string read FPushName write FPushName; 23 | 24 | function ToJsonString: string; 25 | class function FromJsonString(const AJsonString: string): TLista; 26 | end; 27 | 28 | TResult = class 29 | private 30 | FLista: TArray; 31 | public 32 | destructor Destroy; override; 33 | 34 | property lista : TArray read FLista write FLista; 35 | 36 | function ToJsonString: string; 37 | class function FromJsonString(const AJsonString: string): TResult; 38 | end; 39 | 40 | TRespContacts = class 41 | private 42 | FResult: TResult; 43 | public 44 | constructor Create; 45 | destructor Destroy; override; 46 | 47 | property result : TResult read FResult write FResult; 48 | 49 | function ToJsonString: string; 50 | class function FromJsonString(const AJsonString: string): TRespContacts; 51 | end; 52 | 53 | implementation 54 | 55 | {TLista} 56 | function TLista.ToJsonString: string; 57 | begin 58 | Result := TJson.ObjectToJsonString(self); 59 | end; 60 | 61 | class function TLista.FromJsonString(const AJsonString: string): TLista; 62 | begin 63 | Result := TJson.JsonToObject(AJsonString); 64 | end; 65 | 66 | {TResult} 67 | 68 | destructor TResult.Destroy; 69 | var 70 | LlistaItem: TLista; 71 | begin 72 | 73 | for LlistaItem in FLista do 74 | LlistaItem.free; 75 | 76 | inherited; 77 | end; 78 | 79 | function TResult.ToJsonString: string; 80 | begin 81 | Result := TJson.ObjectToJsonString(self); 82 | end; 83 | 84 | class function TResult.FromJsonString(const AJsonString: string): TResult; 85 | begin 86 | Result := TJson.JsonToObject(AJsonString); 87 | end; 88 | 89 | {TResp} 90 | constructor TRespContacts.Create; 91 | begin 92 | inherited; 93 | 94 | FResult := TResult.Create; 95 | end; 96 | 97 | destructor TRespContacts.Destroy; 98 | begin 99 | if Assigned(FResult) then 100 | FreeAndNil(FResult); 101 | 102 | inherited; 103 | end; 104 | 105 | function TRespContacts.ToJsonString: string; 106 | begin 107 | Result := TJson.ObjectToJsonString(self); 108 | end; 109 | 110 | class function TRespContacts.FromJsonString(const AJsonString: string): TRespContacts; 111 | begin 112 | Result := TJson.JsonToObject(AJsonString); 113 | end; 114 | 115 | end. 116 | 117 | -------------------------------------------------------------------------------- /dto/contacts/__history/Contacts.pas.~10~: -------------------------------------------------------------------------------- 1 | unit Contacts; 2 | 3 | interface 4 | uses 5 | ContactsMessages, 6 | RespContacts, 7 | System.SysUtils, 8 | Generics.Collections, 9 | REST.Json.Types, 10 | Rest.Json; 11 | 12 | type 13 | 14 | TWhere = class 15 | private 16 | public 17 | 18 | function ToJsonString: string; 19 | class function FromJsonString(const AJsonString: string): TWhere; 20 | end; 21 | 22 | TContacts = class 23 | private 24 | FWhere: TWhere; 25 | // Instance of TRespContacts 26 | [JSONMarshalledAttribute(False)] 27 | FRespContacts: TRespContacts; 28 | // Store Last Response Message from StatusCode 29 | [JSONMarshalledAttribute(False)] 30 | FResponseMessage: string; 31 | public 32 | constructor Create; 33 | destructor Destroy; override; 34 | 35 | property where : TWhere read FWhere write FWhere; 36 | // Instance of TRespContacts 37 | property RespContacts: TRespContacts read FRespContacts write FRespContacts; 38 | // Get Last Response Message from StatusCode 39 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 40 | 41 | function ToJsonString: string; 42 | class function FromJsonString(const AJsonString: string): TContacts; 43 | function APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 44 | 45 | end; 46 | 47 | implementation 48 | uses 49 | System.Classes, 50 | System.NetEncoding, 51 | System.NetConsts, 52 | System.Net.URLClient, 53 | System.Net.HttpClient, 54 | System.Net.HttpClientComponent; 55 | 56 | {TWhere} 57 | function TWhere.ToJsonString: string; 58 | begin 59 | Result := TJson.ObjectToJsonString(self); 60 | end; 61 | 62 | class function TWhere.FromJsonString(const AJsonString: string): TWhere; 63 | begin 64 | Result := TJson.JsonToObject(AJsonString); 65 | end; 66 | 67 | {TContacts} 68 | constructor TContacts.Create; 69 | begin 70 | inherited; 71 | 72 | FWhere := TWhere.Create; 73 | end; 74 | 75 | destructor TContacts.Destroy; 76 | begin 77 | if Assigned(FWhere) then 78 | FreeAndNil(FWhere); 79 | 80 | if Assigned(FRespContacts) then 81 | FreeAndNil(FRespContacts); 82 | 83 | inherited; 84 | end; 85 | 86 | function TContacts.ToJsonString: string; 87 | begin 88 | Result := TJson.ObjectToJsonString(self); 89 | end; 90 | 91 | class function TContacts.FromJsonString(const AJsonString: string): TContacts; 92 | begin 93 | Result := TJson.JsonToObject(AJsonString); 94 | end; 95 | 96 | function TContacts.APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 97 | var 98 | HttpClient : THttpClient; 99 | LResponse : IHttpResponse; 100 | RequestBody : TStringStream; 101 | xURL_EXECUTE : string; 102 | begin 103 | FResponseMessage := ''; 104 | xURL_EXECUTE := BaseURL + '/chat/findContacts/' + instancia; 105 | HttpClient := THTTPClient.Create; 106 | try 107 | {Add Body} 108 | RequestBody := TStringStream.Create(Self.ToJsonString); 109 | 110 | LResponse := HttpClient.Post( xURL_EXECUTE, 111 | RequestBody,nil, 112 | 113 | TNetHeaders.Create( 114 | 115 | {Add Headers} 116 | TNameValuePair.Create('apikey', key) 117 | )); 118 | 119 | {Execute method POST and return instance of TRespContacts} 120 | FRespContacts := TRespContacts.FromJsonString( '{"lista:" ' + LResponse.ContentAsString + '}'); 121 | 122 | Result := LResponse.StatusCode = 200; 123 | 124 | 125 | if not LResponse.StatusCode in [200,201] then 126 | raise Exception.Create( LResponse.ContentAsString ); 127 | except 128 | on E:Exception do 129 | begin 130 | Result := False; 131 | FResponseMessage := E.Message; 132 | raise Exception.Create('Error Method TContacts.APIExecute'+ sLineBreak + E.Message); 133 | end; 134 | end; 135 | end; 136 | 137 | end. 138 | -------------------------------------------------------------------------------- /dto/contacts/__history/Contacts.pas.~11~: -------------------------------------------------------------------------------- 1 | unit Contacts; 2 | 3 | interface 4 | uses 5 | RespContacts, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TWhere = class 14 | private 15 | public 16 | 17 | function ToJsonString: string; 18 | class function FromJsonString(const AJsonString: string): TWhere; 19 | end; 20 | 21 | TContacts = class 22 | private 23 | FWhere: TWhere; 24 | // Instance of TRespContacts 25 | [JSONMarshalledAttribute(False)] 26 | FRespContacts: TRespContacts; 27 | // Store Last Response Message from StatusCode 28 | [JSONMarshalledAttribute(False)] 29 | FResponseMessage: string; 30 | public 31 | constructor Create; 32 | destructor Destroy; override; 33 | 34 | property where : TWhere read FWhere write FWhere; 35 | // Instance of TRespContacts 36 | property RespContacts: TRespContacts read FRespContacts write FRespContacts; 37 | // Get Last Response Message from StatusCode 38 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 39 | 40 | function ToJsonString: string; 41 | class function FromJsonString(const AJsonString: string): TContacts; 42 | function APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 43 | 44 | end; 45 | 46 | implementation 47 | uses 48 | System.Classes, 49 | System.NetEncoding, 50 | System.NetConsts, 51 | System.Net.URLClient, 52 | System.Net.HttpClient, 53 | System.Net.HttpClientComponent; 54 | 55 | {TWhere} 56 | function TWhere.ToJsonString: string; 57 | begin 58 | Result := TJson.ObjectToJsonString(self); 59 | end; 60 | 61 | class function TWhere.FromJsonString(const AJsonString: string): TWhere; 62 | begin 63 | Result := TJson.JsonToObject(AJsonString); 64 | end; 65 | 66 | {TContacts} 67 | constructor TContacts.Create; 68 | begin 69 | inherited; 70 | 71 | FWhere := TWhere.Create; 72 | end; 73 | 74 | destructor TContacts.Destroy; 75 | begin 76 | if Assigned(FWhere) then 77 | FreeAndNil(FWhere); 78 | 79 | if Assigned(FRespContacts) then 80 | FreeAndNil(FRespContacts); 81 | 82 | inherited; 83 | end; 84 | 85 | function TContacts.ToJsonString: string; 86 | begin 87 | Result := TJson.ObjectToJsonString(self); 88 | end; 89 | 90 | class function TContacts.FromJsonString(const AJsonString: string): TContacts; 91 | begin 92 | Result := TJson.JsonToObject(AJsonString); 93 | end; 94 | 95 | function TContacts.APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 96 | var 97 | HttpClient : THttpClient; 98 | LResponse : IHttpResponse; 99 | RequestBody : TStringStream; 100 | xURL_EXECUTE : string; 101 | begin 102 | FResponseMessage := ''; 103 | xURL_EXECUTE := BaseURL + '/chat/findContacts/' + instancia; 104 | HttpClient := THTTPClient.Create; 105 | try 106 | {Add Body} 107 | RequestBody := TStringStream.Create(Self.ToJsonString); 108 | 109 | LResponse := HttpClient.Post( xURL_EXECUTE, 110 | RequestBody,nil, 111 | 112 | TNetHeaders.Create( 113 | 114 | {Add Headers} 115 | TNameValuePair.Create('apikey', key) 116 | )); 117 | 118 | {Execute method POST and return instance of TRespContacts} 119 | FRespContacts := TRespContacts.FromJsonString( '{"lista:" ' + LResponse.ContentAsString + '}'); 120 | 121 | Result := LResponse.StatusCode = 200; 122 | 123 | 124 | if not LResponse.StatusCode in [200,201] then 125 | raise Exception.Create( LResponse.ContentAsString ); 126 | except 127 | on E:Exception do 128 | begin 129 | Result := False; 130 | FResponseMessage := E.Message; 131 | raise Exception.Create('Error Method TContacts.APIExecute'+ sLineBreak + E.Message); 132 | end; 133 | end; 134 | end; 135 | 136 | end. 137 | -------------------------------------------------------------------------------- /dto/contacts/__history/Contacts.pas.~2~: -------------------------------------------------------------------------------- 1 | unit Contacts; 2 | 3 | interface 4 | uses 5 | ContactsMessages, 6 | RespContacts, 7 | System.SysUtils, 8 | Generics.Collections, 9 | REST.Json.Types, 10 | Rest.Json; 11 | 12 | type 13 | 14 | TWhere = class 15 | private 16 | public 17 | 18 | function ToJsonString: string; 19 | class function FromJsonString(const AJsonString: string): TWhere; 20 | end; 21 | 22 | TContacts = class 23 | private 24 | FWhere: TWhere; 25 | // Instance of TRespContacts 26 | [JSONMarshalledAttribute(False)] 27 | FRespContacts: TRespContacts; 28 | // Store Last Response Message from StatusCode 29 | [JSONMarshalledAttribute(False)] 30 | FResponseMessage: string; 31 | public 32 | constructor Create; 33 | destructor Destroy; override; 34 | 35 | property where : TWhere read FWhere write FWhere; 36 | // Instance of TRespContacts 37 | property RespContacts: TRespContacts read FRespContacts write FRespContacts; 38 | // Get Last Response Message from StatusCode 39 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 40 | 41 | function ToJsonString: string; 42 | class function FromJsonString(const AJsonString: string): TContacts; 43 | function APIExecute(BaseURL, Key, instancia: String): boolean; 44 | 45 | end; 46 | 47 | implementation 48 | uses 49 | System.Classes, 50 | System.NetEncoding, 51 | System.NetConsts, 52 | System.Net.URLClient, 53 | System.Net.HttpClient, 54 | System.Net.HttpClientComponent; 55 | 56 | {TWhere} 57 | function TWhere.ToJsonString: string; 58 | begin 59 | Result := TJson.ObjectToJsonString(self); 60 | end; 61 | 62 | class function TWhere.FromJsonString(const AJsonString: string): TWhere; 63 | begin 64 | Result := TJson.JsonToObject(AJsonString); 65 | end; 66 | 67 | {TContacts} 68 | constructor TContacts.Create; 69 | begin 70 | inherited; 71 | 72 | FWhere := TWhere.Create; 73 | end; 74 | 75 | destructor TContacts.Destroy; 76 | begin 77 | if Assigned(FWhere) then 78 | FreeAndNil(FWhere); 79 | 80 | if Assigned(FRespContacts) then 81 | FreeAndNil(FRespContacts); 82 | 83 | inherited; 84 | end; 85 | 86 | function TContacts.ToJsonString: string; 87 | begin 88 | Result := TJson.ObjectToJsonString(self); 89 | end; 90 | 91 | class function TContacts.FromJsonString(const AJsonString: string): TContacts; 92 | begin 93 | Result := TJson.JsonToObject(AJsonString); 94 | end; 95 | 96 | function TContacts.APIExecute(BaseURL, Key, instancia: String): boolean; 97 | var 98 | HttpClient : THttpClient; 99 | LResponse : IHttpResponse; 100 | RequestBody : TStringStream; 101 | xURL_EXECUTE : string; 102 | begin 103 | xURL_EXECUTE := 'HTTPS://evoapi.dtloja.com.br/chat/findContacts/' + instancia; 104 | FResponseMessage := ''; 105 | HttpClient := THTTPClient.Create; 106 | try 107 | {Add Body} 108 | RequestBody := TStringStream.Create(Self.ToJsonString); 109 | 110 | LResponse := HttpClient.Post( xURL_EXECUTE, 111 | RequestBody,nil, 112 | 113 | TNetHeaders.Create( 114 | {Add Params} 115 | TNameValuePair.Create('apikey', 'B6D711FCDE4D4FD5936544120E713976'), 116 | 117 | {Add Headers} 118 | TNameValuePair.Create('apikey', 'B6D711FCDE4D4FD5936544120E713976') 119 | )); 120 | 121 | {Execute method POST and return instance of TRespContacts} 122 | FRespContacts := TRespContacts.FromJsonString(LResponse.ContentAsString); 123 | 124 | Result := LResponse.StatusCode = 200; 125 | 126 | 127 | if not LResponse.StatusCode in [200,201] then 128 | raise Exception.Create( LResponse.ContentAsString ); 129 | except 130 | on E:Exception do 131 | begin 132 | Result := False; 133 | FResponseMessage := E.Message; 134 | raise Exception.Create('Error Method TContacts.APIExecute'+ sLineBreak + E.Message); 135 | end; 136 | end; 137 | end; 138 | 139 | end. 140 | -------------------------------------------------------------------------------- /dto/contacts/__history/Contacts.pas.~3~: -------------------------------------------------------------------------------- 1 | unit Contacts; 2 | 3 | interface 4 | uses 5 | RespContacts, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TWhere = class 14 | private 15 | public 16 | 17 | function ToJsonString: string; 18 | class function FromJsonString(const AJsonString: string): TWhere; 19 | end; 20 | 21 | TContacts = class 22 | private 23 | FWhere: TWhere; 24 | // Instance of TRespContacts 25 | [JSONMarshalledAttribute(False)] 26 | FRespContacts: TRespContacts; 27 | // Store Last Response Message from StatusCode 28 | [JSONMarshalledAttribute(False)] 29 | FResponseMessage: string; 30 | public 31 | constructor Create; 32 | destructor Destroy; override; 33 | 34 | property where : TWhere read FWhere write FWhere; 35 | // Instance of TRespContacts 36 | property RespContacts: TRespContacts read FRespContacts write FRespContacts; 37 | // Get Last Response Message from StatusCode 38 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 39 | 40 | function ToJsonString: string; 41 | class function FromJsonString(const AJsonString: string): TContacts; 42 | function APIExecute(BaseURL, Key, instancia: String): boolean; 43 | 44 | end; 45 | 46 | implementation 47 | uses 48 | System.Classes, 49 | System.NetEncoding, 50 | System.NetConsts, 51 | System.Net.URLClient, 52 | System.Net.HttpClient, 53 | System.Net.HttpClientComponent; 54 | 55 | {TWhere} 56 | function TWhere.ToJsonString: string; 57 | begin 58 | Result := TJson.ObjectToJsonString(self); 59 | end; 60 | 61 | class function TWhere.FromJsonString(const AJsonString: string): TWhere; 62 | begin 63 | Result := TJson.JsonToObject(AJsonString); 64 | end; 65 | 66 | {TContacts} 67 | constructor TContacts.Create; 68 | begin 69 | inherited; 70 | 71 | FWhere := TWhere.Create; 72 | end; 73 | 74 | destructor TContacts.Destroy; 75 | begin 76 | if Assigned(FWhere) then 77 | FreeAndNil(FWhere); 78 | 79 | if Assigned(FRespContacts) then 80 | FreeAndNil(FRespContacts); 81 | 82 | inherited; 83 | end; 84 | 85 | function TContacts.ToJsonString: string; 86 | begin 87 | Result := TJson.ObjectToJsonString(self); 88 | end; 89 | 90 | class function TContacts.FromJsonString(const AJsonString: string): TContacts; 91 | begin 92 | Result := TJson.JsonToObject(AJsonString); 93 | end; 94 | 95 | function TContacts.APIExecute(BaseURL, Key, instancia: String): boolean; 96 | var 97 | HttpClient : THttpClient; 98 | LResponse : IHttpResponse; 99 | RequestBody : TStringStream; 100 | xURL_EXECUTE : string; 101 | begin 102 | xURL_EXECUTE := BaseURL + '/chat/findContacts/' + instancia; 103 | FResponseMessage := ''; 104 | HttpClient := THTTPClient.Create; 105 | try 106 | {Add Body} 107 | RequestBody := TStringStream.Create(Self.ToJsonString); 108 | 109 | LResponse := HttpClient.Post( xURL_EXECUTE, 110 | RequestBody,nil, 111 | 112 | TNetHeaders.Create( 113 | 114 | {Add Headers} 115 | TNameValuePair.Create('apikey', Key) 116 | )); 117 | 118 | {Execute method POST and return instance of TRespContacts} 119 | FRespContacts := TRespContacts.FromJsonString(LResponse.ContentAsString); 120 | 121 | Result := LResponse.StatusCode = 200; 122 | 123 | 124 | if not LResponse.StatusCode in [200,201] then 125 | raise Exception.Create( LResponse.ContentAsString ); 126 | except 127 | on E:Exception do 128 | begin 129 | Result := False; 130 | FResponseMessage := E.Message; 131 | raise Exception.Create('Error Method TContacts.APIExecute'+ sLineBreak + E.Message); 132 | end; 133 | end; 134 | end; 135 | 136 | end. 137 | -------------------------------------------------------------------------------- /dto/contacts/__history/Contacts.pas.~4~: -------------------------------------------------------------------------------- 1 | unit Contacts; 2 | 3 | interface 4 | uses 5 | RespContacts, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TWhere = class 14 | private 15 | public 16 | 17 | function ToJsonString: string; 18 | class function FromJsonString(const AJsonString: string): TWhere; 19 | end; 20 | 21 | TContacts = class 22 | private 23 | FWhere: TWhere; 24 | // Instance of TRespContacts 25 | [JSONMarshalledAttribute(False)] 26 | FRespContacts: TRespContacts; 27 | // Store Last Response Message from StatusCode 28 | [JSONMarshalledAttribute(False)] 29 | FResponseMessage: string; 30 | public 31 | constructor Create; 32 | destructor Destroy; override; 33 | 34 | property where : TWhere read FWhere write FWhere; 35 | // Instance of TRespContacts 36 | property RespContacts: TRespContacts read FRespContacts write FRespContacts; 37 | // Get Last Response Message from StatusCode 38 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 39 | 40 | function ToJsonString: string; 41 | class function FromJsonString(const AJsonString: string): TContacts; 42 | function APIExecute(BaseURL, Key, instancia: String): boolean; 43 | 44 | end; 45 | 46 | implementation 47 | uses 48 | System.Classes, 49 | System.NetEncoding, 50 | System.NetConsts, 51 | System.Net.URLClient, 52 | System.Net.HttpClient, 53 | System.Net.HttpClientComponent; 54 | 55 | {TWhere} 56 | function TWhere.ToJsonString: string; 57 | begin 58 | Result := TJson.ObjectToJsonString(self); 59 | end; 60 | 61 | class function TWhere.FromJsonString(const AJsonString: string): TWhere; 62 | begin 63 | Result := TJson.JsonToObject(AJsonString); 64 | end; 65 | 66 | {TContacts} 67 | constructor TContacts.Create; 68 | begin 69 | inherited; 70 | 71 | FWhere := TWhere.Create; 72 | end; 73 | 74 | destructor TContacts.Destroy; 75 | begin 76 | if Assigned(FWhere) then 77 | FreeAndNil(FWhere); 78 | 79 | if Assigned(FRespContacts) then 80 | FreeAndNil(FRespContacts); 81 | 82 | inherited; 83 | end; 84 | 85 | function TContacts.ToJsonString: string; 86 | begin 87 | Result := TJson.ObjectToJsonString(self); 88 | end; 89 | 90 | class function TContacts.FromJsonString(const AJsonString: string): TContacts; 91 | begin 92 | Result := TJson.JsonToObject(AJsonString); 93 | end; 94 | 95 | function TContacts.APIExecute(BaseURL, Key, instancia: String): boolean; 96 | var 97 | HttpClient : THttpClient; 98 | LResponse : IHttpResponse; 99 | RequestBody : TStringStream; 100 | xURL_EXECUTE : string; 101 | json : String; 102 | begin 103 | xURL_EXECUTE := BaseURL + '/chat/findContacts/' + instancia; 104 | json := ' { ' + 105 | ' "where": { ' + 106 | ' ' + 107 | ' } ' + 108 | ' } '; 109 | 110 | FResponseMessage := ''; 111 | HttpClient := THTTPClient.Create; 112 | try 113 | {Add Body} 114 | RequestBody := TStringStream.Create(json); 115 | 116 | LResponse := HttpClient.Post( xURL_EXECUTE, 117 | RequestBody,nil, 118 | 119 | TNetHeaders.Create( 120 | 121 | {Add Headers} 122 | TNameValuePair.Create('apikey', Key) 123 | )); 124 | 125 | {Execute method POST and return instance of TRespContacts} 126 | FRespContacts := TRespContacts.FromJsonString(LResponse.ContentAsString); 127 | 128 | Result := LResponse.StatusCode = 200; 129 | 130 | 131 | if not LResponse.StatusCode in [200,201] then 132 | raise Exception.Create( LResponse.ContentAsString ); 133 | except 134 | on E:Exception do 135 | begin 136 | Result := False; 137 | FResponseMessage := E.Message; 138 | raise Exception.Create('Error Method TContacts.APIExecute'+ sLineBreak + E.Message); 139 | end; 140 | end; 141 | end; 142 | 143 | end. 144 | -------------------------------------------------------------------------------- /dto/contacts/__history/Contacts.pas.~5~: -------------------------------------------------------------------------------- 1 | unit Contacts; 2 | 3 | interface 4 | uses 5 | RespContacts, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TWhere = class 14 | private 15 | public 16 | 17 | function ToJsonString: string; 18 | class function FromJsonString(const AJsonString: string): TWhere; 19 | end; 20 | 21 | TContacts = class 22 | private 23 | FWhere: TWhere; 24 | // Instance of TRespContacts 25 | [JSONMarshalledAttribute(False)] 26 | FRespContacts: TRespContacts; 27 | // Store Last Response Message from StatusCode 28 | [JSONMarshalledAttribute(False)] 29 | FResponseMessage: string; 30 | public 31 | constructor Create; 32 | destructor Destroy; override; 33 | 34 | property where : TWhere read FWhere write FWhere; 35 | // Instance of TRespContacts 36 | property RespContacts: TRespContacts read FRespContacts write FRespContacts; 37 | // Get Last Response Message from StatusCode 38 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 39 | 40 | function ToJsonString: string; 41 | class function FromJsonString(const AJsonString: string): TContacts; 42 | function APIExecute(BaseURL, Key, instancia: String): boolean; 43 | 44 | end; 45 | 46 | implementation 47 | uses 48 | System.Classes, 49 | System.NetEncoding, 50 | System.NetConsts, 51 | System.Net.URLClient, 52 | System.Net.HttpClient, 53 | System.Net.HttpClientComponent; 54 | 55 | {TWhere} 56 | function TWhere.ToJsonString: string; 57 | begin 58 | Result := TJson.ObjectToJsonString(self); 59 | end; 60 | 61 | class function TWhere.FromJsonString(const AJsonString: string): TWhere; 62 | begin 63 | Result := TJson.JsonToObject(AJsonString); 64 | end; 65 | 66 | {TContacts} 67 | constructor TContacts.Create; 68 | begin 69 | inherited; 70 | 71 | FWhere := TWhere.Create; 72 | end; 73 | 74 | destructor TContacts.Destroy; 75 | begin 76 | if Assigned(FWhere) then 77 | FreeAndNil(FWhere); 78 | 79 | if Assigned(FRespContacts) then 80 | FreeAndNil(FRespContacts); 81 | 82 | inherited; 83 | end; 84 | 85 | function TContacts.ToJsonString: string; 86 | begin 87 | Result := TJson.ObjectToJsonString(self); 88 | end; 89 | 90 | class function TContacts.FromJsonString(const AJsonString: string): TContacts; 91 | begin 92 | Result := TJson.JsonToObject(AJsonString); 93 | end; 94 | 95 | function TContacts.APIExecute(BaseURL, Key, instancia: String): boolean; 96 | var 97 | HttpClient : THttpClient; 98 | LResponse : IHttpResponse; 99 | RequestBody : TStringStream; 100 | xURL_EXECUTE : string; 101 | json : String; 102 | begin 103 | xURL_EXECUTE := BaseURL + '/chat/findContacts/' + instancia; 104 | json := ' { ' + 105 | ' "where": { ' + 106 | ' ' + 107 | ' } ' + 108 | ' } '; 109 | 110 | FResponseMessage := ''; 111 | HttpClient := THTTPClient.Create; 112 | try 113 | {Add Body} 114 | RequestBody := TStringStream.Create(json,TEncoding.UTF8); 115 | 116 | LResponse := HttpClient.Post( xURL_EXECUTE, 117 | RequestBody,nil, 118 | 119 | TNetHeaders.Create( 120 | 121 | {Add Headers} 122 | TNameValuePair.Create('apikey', Key) 123 | )); 124 | 125 | {Execute method POST and return instance of TRespContacts} 126 | FRespContacts := TRespContacts.FromJsonString(LResponse.ContentAsString); 127 | 128 | Result := LResponse.StatusCode = 200; 129 | 130 | 131 | if not LResponse.StatusCode in [200,201] then 132 | raise Exception.Create( LResponse.ContentAsString ); 133 | except 134 | on E:Exception do 135 | begin 136 | Result := False; 137 | FResponseMessage := E.Message; 138 | raise Exception.Create('Error Method TContacts.APIExecute'+ sLineBreak + E.Message); 139 | end; 140 | end; 141 | end; 142 | 143 | end. 144 | -------------------------------------------------------------------------------- /dto/contacts/__history/Contacts.pas.~6~: -------------------------------------------------------------------------------- 1 | unit Contacts; 2 | 3 | interface 4 | uses 5 | RespContacts, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | IdURI, 10 | Rest.Json; 11 | 12 | type 13 | 14 | TWhere = class 15 | private 16 | public 17 | 18 | function ToJsonString: string; 19 | class function FromJsonString(const AJsonString: string): TWhere; 20 | end; 21 | 22 | TContacts = class 23 | private 24 | FWhere: TWhere; 25 | // Instance of TRespContacts 26 | [JSONMarshalledAttribute(False)] 27 | FRespContacts: TRespContacts; 28 | // Store Last Response Message from StatusCode 29 | [JSONMarshalledAttribute(False)] 30 | FResponseMessage: string; 31 | public 32 | constructor Create; 33 | destructor Destroy; override; 34 | 35 | property where : TWhere read FWhere write FWhere; 36 | // Instance of TRespContacts 37 | property RespContacts: TRespContacts read FRespContacts write FRespContacts; 38 | // Get Last Response Message from StatusCode 39 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 40 | 41 | function ToJsonString: string; 42 | class function FromJsonString(const AJsonString: string): TContacts; 43 | function APIExecute(BaseURL, Key, instancia: String): boolean; 44 | 45 | end; 46 | 47 | implementation 48 | uses 49 | System.Classes, 50 | System.NetEncoding, 51 | System.NetConsts, 52 | System.Net.URLClient, 53 | System.Net.HttpClient, 54 | System.Net.HttpClientComponent; 55 | 56 | {TWhere} 57 | function TWhere.ToJsonString: string; 58 | begin 59 | Result := TJson.ObjectToJsonString(self); 60 | end; 61 | 62 | class function TWhere.FromJsonString(const AJsonString: string): TWhere; 63 | begin 64 | Result := TJson.JsonToObject(AJsonString); 65 | end; 66 | 67 | {TContacts} 68 | constructor TContacts.Create; 69 | begin 70 | inherited; 71 | 72 | FWhere := TWhere.Create; 73 | end; 74 | 75 | destructor TContacts.Destroy; 76 | begin 77 | if Assigned(FWhere) then 78 | FreeAndNil(FWhere); 79 | 80 | if Assigned(FRespContacts) then 81 | FreeAndNil(FRespContacts); 82 | 83 | inherited; 84 | end; 85 | 86 | function TContacts.ToJsonString: string; 87 | begin 88 | Result := TJson.ObjectToJsonString(self); 89 | end; 90 | 91 | class function TContacts.FromJsonString(const AJsonString: string): TContacts; 92 | begin 93 | Result := TJson.JsonToObject(AJsonString); 94 | end; 95 | 96 | function TContacts.APIExecute(BaseURL, Key, instancia: String): boolean; 97 | var 98 | HttpClient : THttpClient; 99 | LResponse : IHttpResponse; 100 | RequestBody : TStringStream; 101 | xURL_EXECUTE : string; 102 | json : String; 103 | begin 104 | xURL_EXECUTE := BaseURL + '/chat/findContacts/' + instancia; 105 | json := ' { ' + 106 | ' "where": { ' + 107 | ' ' + 108 | ' } ' + 109 | ' } '; 110 | 111 | FResponseMessage := ''; 112 | HttpClient := THTTPClient.Create; 113 | try 114 | {Add Body} 115 | RequestBody := TStringStream.Create(json,TEncoding.UTF8); 116 | 117 | LResponse := HttpClient.Post( xURL_EXECUTE, 118 | RequestBody,nil, 119 | 120 | TNetHeaders.Create( 121 | 122 | {Add Headers} 123 | TNameValuePair.Create('apikey', Key) 124 | )); 125 | 126 | {Execute method POST and return instance of TRespContacts} 127 | FRespContacts := TRespContacts.FromJsonString( TIdURI.URLDecode( LResponse.ContentAsString )); 128 | 129 | Result := LResponse.StatusCode = 200; 130 | 131 | 132 | if not LResponse.StatusCode in [200,201] then 133 | raise Exception.Create( LResponse.ContentAsString ); 134 | except 135 | on E:Exception do 136 | begin 137 | Result := False; 138 | FResponseMessage := E.Message; 139 | raise Exception.Create('Error Method TContacts.APIExecute'+ sLineBreak + E.Message); 140 | end; 141 | end; 142 | end; 143 | 144 | end. 145 | -------------------------------------------------------------------------------- /dto/contacts/__history/Contacts.pas.~8~: -------------------------------------------------------------------------------- 1 | unit Contacts; 2 | 3 | interface 4 | uses 5 | ContactsMessages, 6 | RespContacts, 7 | System.SysUtils, 8 | Generics.Collections, 9 | REST.Json.Types, 10 | Rest.Json; 11 | 12 | type 13 | 14 | TWhere = class 15 | private 16 | public 17 | 18 | function ToJsonString: string; 19 | class function FromJsonString(const AJsonString: string): TWhere; 20 | end; 21 | 22 | TContacts = class 23 | private 24 | FWhere: TWhere; 25 | // Instance of TRespContacts 26 | [JSONMarshalledAttribute(False)] 27 | FRespContacts: TRespContacts; 28 | // Store Last Response Message from StatusCode 29 | [JSONMarshalledAttribute(False)] 30 | FResponseMessage: string; 31 | public 32 | constructor Create; 33 | destructor Destroy; override; 34 | 35 | property where : TWhere read FWhere write FWhere; 36 | // Instance of TRespContacts 37 | property RespContacts: TRespContacts read FRespContacts write FRespContacts; 38 | // Get Last Response Message from StatusCode 39 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 40 | 41 | function ToJsonString: string; 42 | class function FromJsonString(const AJsonString: string): TContacts; 43 | function APIExecute: boolean; 44 | 45 | end; 46 | 47 | implementation 48 | uses 49 | System.Classes, 50 | System.NetEncoding, 51 | System.NetConsts, 52 | System.Net.URLClient, 53 | System.Net.HttpClient, 54 | System.Net.HttpClientComponent; 55 | 56 | {TWhere} 57 | function TWhere.ToJsonString: string; 58 | begin 59 | Result := TJson.ObjectToJsonString(self); 60 | end; 61 | 62 | class function TWhere.FromJsonString(const AJsonString: string): TWhere; 63 | begin 64 | Result := TJson.JsonToObject(AJsonString); 65 | end; 66 | 67 | {TContacts} 68 | constructor TContacts.Create; 69 | begin 70 | inherited; 71 | 72 | FWhere := TWhere.Create; 73 | end; 74 | 75 | destructor TContacts.Destroy; 76 | begin 77 | if Assigned(FWhere) then 78 | FreeAndNil(FWhere); 79 | 80 | if Assigned(FRespContacts) then 81 | FreeAndNil(FRespContacts); 82 | 83 | inherited; 84 | end; 85 | 86 | function TContacts.ToJsonString: string; 87 | begin 88 | Result := TJson.ObjectToJsonString(self); 89 | end; 90 | 91 | class function TContacts.FromJsonString(const AJsonString: string): TContacts; 92 | begin 93 | Result := TJson.JsonToObject(AJsonString); 94 | end; 95 | 96 | function TContacts.APIExecute: boolean; 97 | const 98 | xURL_EXECUTE = 'HTTPS://evoapi.dtloja.com.br/chat/findContacts/11914502000144'; 99 | var 100 | HttpClient : THttpClient; 101 | LResponse : IHttpResponse; 102 | RequestBody : TStringStream; 103 | begin 104 | FResponseMessage := ''; 105 | HttpClient := THTTPClient.Create; 106 | try 107 | {Add Body} 108 | RequestBody := TStringStream.Create(Self.ToJsonString); 109 | 110 | LResponse := HttpClient.Post( xURL_EXECUTE, 111 | RequestBody,nil, 112 | 113 | TNetHeaders.Create( 114 | {Add Params} 115 | TNameValuePair.Create('apikey', 'B6D711FCDE4D4FD5936544120E713976'), 116 | 117 | {Add Headers} 118 | TNameValuePair.Create('apikey', 'B6D711FCDE4D4FD5936544120E713976') 119 | )); 120 | 121 | {Execute method POST and return instance of TRespContacts} 122 | FRespContacts := TRespContacts.FromJsonString(LResponse.ContentAsString); 123 | 124 | Result := LResponse.StatusCode = 200; 125 | 126 | 127 | if not LResponse.StatusCode in [200,201] then 128 | raise Exception.Create( LResponse.ContentAsString ); 129 | except 130 | on E:Exception do 131 | begin 132 | Result := False; 133 | FResponseMessage := E.Message; 134 | raise Exception.Create('Error Method TContacts.APIExecute'+ sLineBreak + E.Message); 135 | end; 136 | end; 137 | end; 138 | 139 | end. 140 | -------------------------------------------------------------------------------- /dto/contacts/__history/Contacts.pas.~9~: -------------------------------------------------------------------------------- 1 | unit Contacts; 2 | 3 | interface 4 | uses 5 | ContactsMessages, 6 | RespContacts, 7 | System.SysUtils, 8 | Generics.Collections, 9 | REST.Json.Types, 10 | Rest.Json; 11 | 12 | type 13 | 14 | TWhere = class 15 | private 16 | public 17 | 18 | function ToJsonString: string; 19 | class function FromJsonString(const AJsonString: string): TWhere; 20 | end; 21 | 22 | TContacts = class 23 | private 24 | FWhere: TWhere; 25 | // Instance of TRespContacts 26 | [JSONMarshalledAttribute(False)] 27 | FRespContacts: TRespContacts; 28 | // Store Last Response Message from StatusCode 29 | [JSONMarshalledAttribute(False)] 30 | FResponseMessage: string; 31 | public 32 | constructor Create; 33 | destructor Destroy; override; 34 | 35 | property where : TWhere read FWhere write FWhere; 36 | // Instance of TRespContacts 37 | property RespContacts: TRespContacts read FRespContacts write FRespContacts; 38 | // Get Last Response Message from StatusCode 39 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 40 | 41 | function ToJsonString: string; 42 | class function FromJsonString(const AJsonString: string): TContacts; 43 | function APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 44 | 45 | end; 46 | 47 | implementation 48 | uses 49 | System.Classes, 50 | System.NetEncoding, 51 | System.NetConsts, 52 | System.Net.URLClient, 53 | System.Net.HttpClient, 54 | System.Net.HttpClientComponent; 55 | 56 | {TWhere} 57 | function TWhere.ToJsonString: string; 58 | begin 59 | Result := TJson.ObjectToJsonString(self); 60 | end; 61 | 62 | class function TWhere.FromJsonString(const AJsonString: string): TWhere; 63 | begin 64 | Result := TJson.JsonToObject(AJsonString); 65 | end; 66 | 67 | {TContacts} 68 | constructor TContacts.Create; 69 | begin 70 | inherited; 71 | 72 | FWhere := TWhere.Create; 73 | end; 74 | 75 | destructor TContacts.Destroy; 76 | begin 77 | if Assigned(FWhere) then 78 | FreeAndNil(FWhere); 79 | 80 | if Assigned(FRespContacts) then 81 | FreeAndNil(FRespContacts); 82 | 83 | inherited; 84 | end; 85 | 86 | function TContacts.ToJsonString: string; 87 | begin 88 | Result := TJson.ObjectToJsonString(self); 89 | end; 90 | 91 | class function TContacts.FromJsonString(const AJsonString: string): TContacts; 92 | begin 93 | Result := TJson.JsonToObject(AJsonString); 94 | end; 95 | 96 | function TContacts.APIExecute(BaseURL : string; Key : string; instancia : String): boolean; 97 | var 98 | HttpClient : THttpClient; 99 | LResponse : IHttpResponse; 100 | RequestBody : TStringStream; 101 | xURL_EXECUTE : string; 102 | begin 103 | FResponseMessage := ''; 104 | xURL_EXECUTE := BaseURL + '/chat/findContacts/' + instancia; 105 | HttpClient := THTTPClient.Create; 106 | try 107 | {Add Body} 108 | RequestBody := TStringStream.Create(Self.ToJsonString); 109 | 110 | LResponse := HttpClient.Post( xURL_EXECUTE, 111 | RequestBody,nil, 112 | 113 | TNetHeaders.Create( 114 | 115 | {Add Headers} 116 | TNameValuePair.Create('apikey', key) 117 | )); 118 | 119 | {Execute method POST and return instance of TRespContacts} 120 | FRespContacts := TRespContacts.FromJsonString(LResponse.ContentAsString); 121 | 122 | Result := LResponse.StatusCode = 200; 123 | 124 | 125 | if not LResponse.StatusCode in [200,201] then 126 | raise Exception.Create( LResponse.ContentAsString ); 127 | except 128 | on E:Exception do 129 | begin 130 | Result := False; 131 | FResponseMessage := E.Message; 132 | raise Exception.Create('Error Method TContacts.APIExecute'+ sLineBreak + E.Message); 133 | end; 134 | end; 135 | end; 136 | 137 | end. 138 | -------------------------------------------------------------------------------- /dto/contacts/__history/RespContacts.pas.~1~: -------------------------------------------------------------------------------- 1 | unit RespContacts; 2 | 3 | interface 4 | uses 5 | System.SysUtils, 6 | Generics.Collections, 7 | REST.Json.Types, 8 | Rest.Json; 9 | 10 | type 11 | 12 | TLista = class 13 | private 14 | FId : string; 15 | FOwner : string; 16 | FProfilePictureUrl: string; 17 | FPushName : string; 18 | public 19 | property id : string read FId write FId; 20 | property owner : string read FOwner write FOwner; 21 | property profilePictureUrl : string read FProfilePictureUrl write FProfilePictureUrl; 22 | property pushName : string read FPushName write FPushName; 23 | 24 | function ToJsonString: string; 25 | class function FromJsonString(const AJsonString: string): TLista; 26 | end; 27 | 28 | TRespContacts = class 29 | private 30 | FLista: TArray; 31 | public 32 | destructor Destroy; override; 33 | 34 | property lista : TArray read FLista write FLista; 35 | 36 | function ToJsonString: string; 37 | class function FromJsonString(const AJsonString: string): TRespContacts; 38 | end; 39 | 40 | implementation 41 | 42 | {TLista} 43 | function TLista.ToJsonString: string; 44 | begin 45 | Result := TJson.ObjectToJsonString(self); 46 | end; 47 | 48 | class function TLista.FromJsonString(const AJsonString: string): TLista; 49 | begin 50 | Result := TJson.JsonToObject(AJsonString); 51 | end; 52 | 53 | {TRespContacts} 54 | 55 | destructor TRespContacts.Destroy; 56 | var 57 | LlistaItem: TLista; 58 | begin 59 | 60 | for LlistaItem in FLista do 61 | LlistaItem.free; 62 | 63 | inherited; 64 | end; 65 | 66 | function TRespContacts.ToJsonString: string; 67 | begin 68 | Result := TJson.ObjectToJsonString(self); 69 | end; 70 | 71 | class function TRespContacts.FromJsonString(const AJsonString: string): TRespContacts; 72 | begin 73 | Result := TJson.JsonToObject(AJsonString); 74 | end; 75 | 76 | end. 77 | -------------------------------------------------------------------------------- /dto/instance/ConnectionState.pas: -------------------------------------------------------------------------------- 1 | unit ConnectionState; 2 | 3 | interface 4 | uses 5 | RespConnectionState, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TConnectionState = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | // Instance of TRespConnectionState 19 | [JSONMarshalledAttribute(False)] 20 | FRespConnectionState: TRespConnectionState; 21 | // Store Last Response Message from StatusCode 22 | [JSONMarshalledAttribute(False)] 23 | FResponseMessage: string; 24 | public 25 | property instanceName : string read FInstanceName write FInstanceName; 26 | property qrcode : Boolean read FQrcode write FQrcode; 27 | property token : string read FToken write FToken; 28 | // Instance of TRespConnectionState 29 | property RespConnectionState: TRespConnectionState read FRespConnectionState write FRespConnectionState; 30 | // Get Last Response Message from StatusCode 31 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 32 | 33 | function ToJsonString: string; 34 | class function FromJsonString(const AJsonString: string): TConnectionState; 35 | function APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 36 | 37 | end; 38 | 39 | implementation 40 | uses 41 | System.Classes, 42 | System.NetEncoding, 43 | System.NetConsts, 44 | System.Net.URLClient, 45 | System.Net.HttpClient, 46 | System.Net.HttpClientComponent; 47 | 48 | {TConnectionState} 49 | function TConnectionState.ToJsonString: string; 50 | begin 51 | Result := TJson.ObjectToJsonString(self); 52 | end; 53 | 54 | class function TConnectionState.FromJsonString(const AJsonString: string): TConnectionState; 55 | begin 56 | Result := TJson.JsonToObject(AJsonString); 57 | end; 58 | 59 | function TConnectionState.APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 60 | var 61 | HttpClient : THttpClient; 62 | LResponse : IHttpResponse; 63 | RequestBody : TStringStream; 64 | xURL_EXECUTE : string; 65 | begin 66 | xURL_EXECUTE := BaseURL + '/instance/connectionstate/' + Instancia; 67 | FResponseMessage := ''; 68 | HttpClient := THTTPClient.Create; 69 | try 70 | try 71 | {Add Body} 72 | RequestBody := TStringStream.Create(''); 73 | 74 | LResponse := HttpClient.Get( xURL_EXECUTE, 75 | RequestBody, 76 | 77 | TNetHeaders.Create( 78 | {Add Headers} 79 | TNameValuePair.Create('apikey', Key) 80 | )); 81 | 82 | {Execute method GET and return instance of TRespConnectionState} 83 | FRespConnectionState := TRespConnectionState.FromJsonString(LResponse.ContentAsString); 84 | 85 | Result := LResponse.StatusCode = 200; 86 | 87 | if FRespConnectionState.instance.state <> 'open' then 88 | Result := False; 89 | 90 | if not LResponse.StatusCode in [200,201] then 91 | raise Exception.Create( LResponse.ContentAsString ); 92 | except 93 | on E:Exception do 94 | begin 95 | Result := False; 96 | FResponseMessage := E.Message; 97 | raise Exception.Create('Error Method TConnectionState.APIExecute'+ sLineBreak + E.Message); 98 | end; 99 | end; 100 | finally 101 | FreeAndNil(HttpClient); 102 | FreeAndNil(RequestBody); 103 | end; 104 | end; 105 | 106 | end. 107 | 108 | -------------------------------------------------------------------------------- /dto/instance/InstanceConnect.pas: -------------------------------------------------------------------------------- 1 | unit InstanceConnect; 2 | 3 | interface 4 | uses 5 | RespInstanceConnect, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TInstanceConnect = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | // Instance of TRespInstanceConnect 19 | [JSONMarshalledAttribute(False)] 20 | FRespInstanceConnect: TRespInstanceConnect; 21 | // Store Last Response Message from StatusCode 22 | [JSONMarshalledAttribute(False)] 23 | FResponseMessage: string; 24 | public 25 | property instanceName : string read FInstanceName write FInstanceName; 26 | property qrcode : Boolean read FQrcode write FQrcode; 27 | property token : string read FToken write FToken; 28 | // Instance of TRespInstanceConnect 29 | property RespInstanceConnect: TRespInstanceConnect read FRespInstanceConnect write FRespInstanceConnect; 30 | // Get Last Response Message from StatusCode 31 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 32 | 33 | function ToJsonString: string; 34 | class function FromJsonString(const AJsonString: string): TInstanceConnect; 35 | function APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 36 | 37 | end; 38 | 39 | implementation 40 | uses 41 | System.Classes, 42 | System.NetEncoding, 43 | System.NetConsts, 44 | System.Net.URLClient, 45 | System.Net.HttpClient, 46 | System.Net.HttpClientComponent; 47 | 48 | {TInstanceConnect} 49 | function TInstanceConnect.ToJsonString: string; 50 | begin 51 | Result := TJson.ObjectToJsonString(self); 52 | end; 53 | 54 | class function TInstanceConnect.FromJsonString(const AJsonString: string): TInstanceConnect; 55 | begin 56 | Result := TJson.JsonToObject(AJsonString); 57 | end; 58 | 59 | function TInstanceConnect.APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 60 | var 61 | HttpClient : THttpClient; 62 | LResponse : IHttpResponse; 63 | RequestBody : TStringStream; 64 | xURL_EXECUTE : string; 65 | begin 66 | xURL_EXECUTE := BaseURL + '/instance/connect/' + Instancia; 67 | FResponseMessage := ''; 68 | HttpClient := THTTPClient.Create; 69 | try 70 | try 71 | {Add Body} 72 | RequestBody := TStringStream.Create(''); 73 | 74 | LResponse := HttpClient.Get( xURL_EXECUTE, 75 | RequestBody, 76 | 77 | TNetHeaders.Create( 78 | TNameValuePair.Create('apikey', key) 79 | )); 80 | FRespInstanceConnect := TRespInstanceConnect.FromJsonString(LResponse.ContentAsString); 81 | 82 | Result := LResponse.StatusCode = 200; 83 | 84 | 85 | if not LResponse.StatusCode in [200,201] then 86 | raise Exception.Create( LResponse.ContentAsString ); 87 | except 88 | on E:Exception do 89 | begin 90 | Result := False; 91 | FResponseMessage := E.Message; 92 | raise Exception.Create('Error Method TInstanceConnect.APIExecute'+ sLineBreak + E.Message); 93 | end; 94 | end; 95 | finally 96 | FreeAndNil(HttpClient); 97 | FreeAndNil(RequestBody); 98 | end; 99 | end; 100 | 101 | end. 102 | -------------------------------------------------------------------------------- /dto/instance/RespConnectionState.pas: -------------------------------------------------------------------------------- 1 | unit RespConnectionState; 2 | 3 | interface 4 | uses 5 | System.SysUtils, 6 | Generics.Collections, 7 | REST.Json.Types, 8 | Rest.Json; 9 | 10 | type 11 | 12 | TInstance = class 13 | private 14 | FInstanceName: string; 15 | FState : string; 16 | public 17 | property instanceName : string read FInstanceName write FInstanceName; 18 | property state : string read FState write FState; 19 | 20 | function ToJsonString: string; 21 | class function FromJsonString(const AJsonString: string): TInstance; 22 | end; 23 | 24 | TRespConnectionState = class 25 | private 26 | FInstance: TInstance; 27 | public 28 | constructor Create; 29 | destructor Destroy; override; 30 | 31 | property instance : TInstance read FInstance write FInstance; 32 | 33 | function ToJsonString: string; 34 | class function FromJsonString(const AJsonString: string): TRespConnectionState; 35 | end; 36 | 37 | implementation 38 | 39 | {TInstance} 40 | function TInstance.ToJsonString: string; 41 | begin 42 | Result := TJson.ObjectToJsonString(self); 43 | end; 44 | 45 | class function TInstance.FromJsonString(const AJsonString: string): TInstance; 46 | begin 47 | Result := TJson.JsonToObject(AJsonString); 48 | end; 49 | 50 | {TRespConnectionState} 51 | constructor TRespConnectionState.Create; 52 | begin 53 | inherited; 54 | 55 | FInstance := TInstance.Create; 56 | end; 57 | 58 | destructor TRespConnectionState.Destroy; 59 | begin 60 | if Assigned(FInstance) then 61 | FreeAndNil(FInstance); 62 | 63 | inherited; 64 | end; 65 | 66 | function TRespConnectionState.ToJsonString: string; 67 | begin 68 | Result := TJson.ObjectToJsonString(self); 69 | end; 70 | 71 | class function TRespConnectionState.FromJsonString(const AJsonString: string): TRespConnectionState; 72 | begin 73 | Result := TJson.JsonToObject(AJsonString); 74 | end; 75 | 76 | end. 77 | 78 | 79 | -------------------------------------------------------------------------------- /dto/instance/RespInstanceConnect.pas: -------------------------------------------------------------------------------- 1 | unit RespInstanceConnect; 2 | 3 | interface 4 | uses 5 | System.SysUtils, 6 | Generics.Collections, 7 | REST.Json.Types, 8 | Rest.Json; 9 | 10 | type 11 | 12 | TRespInstanceConnect = class 13 | private 14 | FBase64: string; 15 | FCode : string; 16 | FCount : Extended; 17 | public 18 | property base64 : string read FBase64 write FBase64; 19 | property code : string read FCode write FCode; 20 | property count : Extended read FCount write FCount; 21 | 22 | function ToJsonString: string; 23 | class function FromJsonString(const AJsonString: string): TRespInstanceConnect; 24 | end; 25 | 26 | implementation 27 | 28 | {TRespInstanceConnect} 29 | function TRespInstanceConnect.ToJsonString: string; 30 | begin 31 | Result := TJson.ObjectToJsonString(self); 32 | end; 33 | 34 | class function TRespInstanceConnect.FromJsonString(const AJsonString: string): TRespInstanceConnect; 35 | begin 36 | Result := TJson.JsonToObject(AJsonString); 37 | end; 38 | 39 | end. 40 | 41 | -------------------------------------------------------------------------------- /dto/instance/RespfetchInstances.pas: -------------------------------------------------------------------------------- 1 | unit RespfetchInstances; 2 | 3 | interface 4 | uses 5 | System.SysUtils, 6 | Generics.Collections, 7 | REST.Json.Types, 8 | Rest.Json; 9 | 10 | type 11 | 12 | TIntegration = class 13 | private 14 | FToken : string; 15 | FWebhook_wa_business: string; 16 | public 17 | property token : string read FToken write FToken; 18 | property webhook_wa_business : string read FWebhook_wa_business write FWebhook_wa_business; 19 | 20 | function ToJsonString: string; 21 | class function FromJsonString(const AJsonString: string): TIntegration; 22 | end; 23 | 24 | TInstance = class 25 | private 26 | FApikey : string; 27 | FInstanceId : string; 28 | FInstanceName: string; 29 | FIntegration : TIntegration; 30 | FServerUrl : string; 31 | FStatus : string; 32 | public 33 | constructor Create; 34 | destructor Destroy; override; 35 | 36 | property apikey : string read FApikey write FApikey; 37 | property instanceId : string read FInstanceId write FInstanceId; 38 | property instanceName : string read FInstanceName write FInstanceName; 39 | property integration : TIntegration read FIntegration write FIntegration; 40 | property serverUrl : string read FServerUrl write FServerUrl; 41 | property status : string read FStatus write FStatus; 42 | 43 | function ToJsonString: string; 44 | class function FromJsonString(const AJsonString: string): TInstance; 45 | end; 46 | 47 | TRespfetchInstances = class 48 | private 49 | FInstance: TInstance; 50 | public 51 | constructor Create; 52 | destructor Destroy; override; 53 | 54 | property instance : TInstance read FInstance write FInstance; 55 | 56 | function ToJsonString: string; 57 | class function FromJsonString(const AJsonString: string): TRespfetchInstances; 58 | end; 59 | 60 | implementation 61 | 62 | {TIntegration} 63 | function TIntegration.ToJsonString: string; 64 | begin 65 | Result := TJson.ObjectToJsonString(self); 66 | end; 67 | 68 | class function TIntegration.FromJsonString(const AJsonString: string): TIntegration; 69 | begin 70 | Result := TJson.JsonToObject(AJsonString); 71 | end; 72 | 73 | {TInstance} 74 | constructor TInstance.Create; 75 | begin 76 | inherited; 77 | 78 | FIntegration := TIntegration.Create; 79 | end; 80 | 81 | destructor TInstance.Destroy; 82 | begin 83 | if Assigned(FIntegration) then 84 | FreeAndNil(FIntegration); 85 | 86 | inherited; 87 | end; 88 | 89 | function TInstance.ToJsonString: string; 90 | begin 91 | Result := TJson.ObjectToJsonString(self); 92 | end; 93 | 94 | class function TInstance.FromJsonString(const AJsonString: string): TInstance; 95 | begin 96 | Result := TJson.JsonToObject(AJsonString); 97 | end; 98 | 99 | {TRespfetchInstances} 100 | constructor TRespfetchInstances.Create; 101 | begin 102 | inherited; 103 | 104 | FInstance := TInstance.Create; 105 | end; 106 | 107 | destructor TRespfetchInstances.Destroy; 108 | begin 109 | if Assigned(FInstance) then 110 | FreeAndNil(FInstance); 111 | 112 | inherited; 113 | end; 114 | 115 | function TRespfetchInstances.ToJsonString: string; 116 | begin 117 | Result := TJson.ObjectToJsonString(self); 118 | end; 119 | 120 | class function TRespfetchInstances.FromJsonString(const AJsonString: string): TRespfetchInstances; 121 | begin 122 | Result := TJson.JsonToObject(AJsonString); 123 | end; 124 | 125 | end. 126 | 127 | -------------------------------------------------------------------------------- /dto/instance/__history/ConnectionState.pas.~1~: -------------------------------------------------------------------------------- 1 | unit ConnectionState; 2 | 3 | interface 4 | uses 5 | ConnectionStateMessages, 6 | RespConnectionState, 7 | System.SysUtils, 8 | Generics.Collections, 9 | REST.Json.Types, 10 | Rest.Json; 11 | 12 | type 13 | 14 | TConnectionState = class 15 | private 16 | FInstanceName: string; 17 | FQrcode : Boolean; 18 | FToken : string; 19 | // Instance of TRespConnectionState 20 | [JSONMarshalledAttribute(False)] 21 | FRespConnectionState: TRespConnectionState; 22 | // Store Last Response Message from StatusCode 23 | [JSONMarshalledAttribute(False)] 24 | FResponseMessage: string; 25 | public 26 | property instanceName : string read FInstanceName write FInstanceName; 27 | property qrcode : Boolean read FQrcode write FQrcode; 28 | property token : string read FToken write FToken; 29 | // Instance of TRespConnectionState 30 | property RespConnectionState: TRespConnectionState read FRespConnectionState write FRespConnectionState; 31 | // Get Last Response Message from StatusCode 32 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 33 | 34 | function ToJsonString: string; 35 | class function FromJsonString(const AJsonString: string): TConnectionState; 36 | function APIExecute: boolean; 37 | 38 | end; 39 | 40 | implementation 41 | uses 42 | System.Classes, 43 | System.NetEncoding, 44 | System.NetConsts, 45 | System.Net.URLClient, 46 | System.Net.HttpClient, 47 | System.Net.HttpClientComponent; 48 | 49 | {TConnectionState} 50 | function TConnectionState.ToJsonString: string; 51 | begin 52 | Result := TJson.ObjectToJsonString(self); 53 | end; 54 | 55 | class function TConnectionState.FromJsonString(const AJsonString: string): TConnectionState; 56 | begin 57 | Result := TJson.JsonToObject(AJsonString); 58 | end; 59 | 60 | function TConnectionState.APIExecute: boolean; 61 | const 62 | xURL_EXECUTE = 'https://evoapi.dtloja.com.br/instance/connectionstate/dtkey'; 63 | var 64 | HttpClient : THttpClient; 65 | LResponse : IHttpResponse; 66 | RequestBody : TStringStream; 67 | begin 68 | FResponseMessage := ''; 69 | HttpClient := THTTPClient.Create; 70 | try 71 | {Add Body} 72 | RequestBody := TStringStream.Create(Self.ToJsonString); 73 | 74 | LResponse := HttpClient.Get( xURL_EXECUTE, 75 | RequestBody, 76 | 77 | TNetHeaders.Create( 78 | {Add Params} 79 | TNameValuePair.Create('instanceName', 'dtkey'), 80 | 81 | {Add Headers} 82 | TNameValuePair.Create('apikey', 'B6D711FCDE4D4FD5936544120E713976') 83 | )); 84 | 85 | {Execute method GET and return instance of TRespConnectionState} 86 | FRespConnectionState := TRespConnectionState.FromJsonString(LResponse.ContentAsString); 87 | 88 | Result := LResponse.StatusCode = 200; 89 | 90 | 91 | if not LResponse.StatusCode in [200,201] then 92 | raise Exception.Create( LResponse.ContentAsString ); 93 | except 94 | on E:Exception do 95 | begin 96 | Result := False; 97 | FResponseMessage := E.Message; 98 | raise Exception.Create('Error Method TConnectionState.APIExecute'+ sLineBreak + E.Message); 99 | end; 100 | end; 101 | end; 102 | 103 | end. 104 | -------------------------------------------------------------------------------- /dto/instance/__history/ConnectionState.pas.~2~: -------------------------------------------------------------------------------- 1 | unit ConnectionState; 2 | 3 | interface 4 | uses 5 | RespConnectionState, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TConnectionState = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | // Instance of TRespConnectionState 19 | [JSONMarshalledAttribute(False)] 20 | FRespConnectionState: TRespConnectionState; 21 | // Store Last Response Message from StatusCode 22 | [JSONMarshalledAttribute(False)] 23 | FResponseMessage: string; 24 | public 25 | property instanceName : string read FInstanceName write FInstanceName; 26 | property qrcode : Boolean read FQrcode write FQrcode; 27 | property token : string read FToken write FToken; 28 | // Instance of TRespConnectionState 29 | property RespConnectionState: TRespConnectionState read FRespConnectionState write FRespConnectionState; 30 | // Get Last Response Message from StatusCode 31 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 32 | 33 | function ToJsonString: string; 34 | class function FromJsonString(const AJsonString: string): TConnectionState; 35 | function APIExecute: boolean; 36 | 37 | end; 38 | 39 | implementation 40 | uses 41 | System.Classes, 42 | System.NetEncoding, 43 | System.NetConsts, 44 | System.Net.URLClient, 45 | System.Net.HttpClient, 46 | System.Net.HttpClientComponent; 47 | 48 | {TConnectionState} 49 | function TConnectionState.ToJsonString: string; 50 | begin 51 | Result := TJson.ObjectToJsonString(self); 52 | end; 53 | 54 | class function TConnectionState.FromJsonString(const AJsonString: string): TConnectionState; 55 | begin 56 | Result := TJson.JsonToObject(AJsonString); 57 | end; 58 | 59 | function TConnectionState.APIExecute: boolean; 60 | const 61 | xURL_EXECUTE = 'https://evoapi.dtloja.com.br/instance/connectionstate/dtkey'; 62 | var 63 | HttpClient : THttpClient; 64 | LResponse : IHttpResponse; 65 | RequestBody : TStringStream; 66 | begin 67 | FResponseMessage := ''; 68 | HttpClient := THTTPClient.Create; 69 | try 70 | {Add Body} 71 | RequestBody := TStringStream.Create(Self.ToJsonString); 72 | 73 | LResponse := HttpClient.Get( xURL_EXECUTE, 74 | RequestBody, 75 | 76 | TNetHeaders.Create( 77 | {Add Params} 78 | TNameValuePair.Create('instanceName', 'dtkey'), 79 | 80 | {Add Headers} 81 | TNameValuePair.Create('apikey', 'B6D711FCDE4D4FD5936544120E713976') 82 | )); 83 | 84 | {Execute method GET and return instance of TRespConnectionState} 85 | FRespConnectionState := TRespConnectionState.FromJsonString(LResponse.ContentAsString); 86 | 87 | Result := LResponse.StatusCode = 200; 88 | 89 | 90 | if not LResponse.StatusCode in [200,201] then 91 | raise Exception.Create( LResponse.ContentAsString ); 92 | except 93 | on E:Exception do 94 | begin 95 | Result := False; 96 | FResponseMessage := E.Message; 97 | raise Exception.Create('Error Method TConnectionState.APIExecute'+ sLineBreak + E.Message); 98 | end; 99 | end; 100 | end; 101 | 102 | end. 103 | -------------------------------------------------------------------------------- /dto/instance/__history/ConnectionState.pas.~3~: -------------------------------------------------------------------------------- 1 | unit ConnectionState; 2 | 3 | interface 4 | uses 5 | RespConnectionState, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TConnectionState = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | // Instance of TRespConnectionState 19 | [JSONMarshalledAttribute(False)] 20 | FRespConnectionState: TRespConnectionState; 21 | // Store Last Response Message from StatusCode 22 | [JSONMarshalledAttribute(False)] 23 | FResponseMessage: string; 24 | public 25 | property instanceName : string read FInstanceName write FInstanceName; 26 | property qrcode : Boolean read FQrcode write FQrcode; 27 | property token : string read FToken write FToken; 28 | // Instance of TRespConnectionState 29 | property RespConnectionState: TRespConnectionState read FRespConnectionState write FRespConnectionState; 30 | // Get Last Response Message from StatusCode 31 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 32 | 33 | function ToJsonString: string; 34 | class function FromJsonString(const AJsonString: string): TConnectionState; 35 | function APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 36 | 37 | end; 38 | 39 | implementation 40 | uses 41 | System.Classes, 42 | System.NetEncoding, 43 | System.NetConsts, 44 | System.Net.URLClient, 45 | System.Net.HttpClient, 46 | System.Net.HttpClientComponent; 47 | 48 | {TConnectionState} 49 | function TConnectionState.ToJsonString: string; 50 | begin 51 | Result := TJson.ObjectToJsonString(self); 52 | end; 53 | 54 | class function TConnectionState.FromJsonString(const AJsonString: string): TConnectionState; 55 | begin 56 | Result := TJson.JsonToObject(AJsonString); 57 | end; 58 | 59 | function TConnectionState.APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 60 | var 61 | HttpClient : THttpClient; 62 | LResponse : IHttpResponse; 63 | RequestBody : TStringStream; 64 | xURL_EXECUTE : string; 65 | begin 66 | xURL_EXECUTE := BaseURL + '/instance/connectionstate/dtkey'; 67 | FResponseMessage := ''; 68 | HttpClient := THTTPClient.Create; 69 | try 70 | {Add Body} 71 | RequestBody := TStringStream.Create(Self.ToJsonString); 72 | 73 | LResponse := HttpClient.Get( xURL_EXECUTE, 74 | RequestBody, 75 | 76 | TNetHeaders.Create( 77 | {Add Params} 78 | TNameValuePair.Create('instanceName', Instancia), 79 | 80 | {Add Headers} 81 | TNameValuePair.Create('apikey', Key) 82 | )); 83 | 84 | {Execute method GET and return instance of TRespConnectionState} 85 | FRespConnectionState := TRespConnectionState.FromJsonString(LResponse.ContentAsString); 86 | 87 | Result := LResponse.StatusCode = 200; 88 | 89 | 90 | if not LResponse.StatusCode in [200,201] then 91 | raise Exception.Create( LResponse.ContentAsString ); 92 | except 93 | on E:Exception do 94 | begin 95 | Result := False; 96 | FResponseMessage := E.Message; 97 | raise Exception.Create('Error Method TConnectionState.APIExecute'+ sLineBreak + E.Message); 98 | end; 99 | end; 100 | end; 101 | 102 | end. 103 | -------------------------------------------------------------------------------- /dto/instance/__history/ConnectionState.pas.~4~: -------------------------------------------------------------------------------- 1 | unit ConnectionState; 2 | 3 | interface 4 | uses 5 | RespConnectionState, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TConnectionState = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | // Instance of TRespConnectionState 19 | [JSONMarshalledAttribute(False)] 20 | FRespConnectionState: TRespConnectionState; 21 | // Store Last Response Message from StatusCode 22 | [JSONMarshalledAttribute(False)] 23 | FResponseMessage: string; 24 | public 25 | property instanceName : string read FInstanceName write FInstanceName; 26 | property qrcode : Boolean read FQrcode write FQrcode; 27 | property token : string read FToken write FToken; 28 | // Instance of TRespConnectionState 29 | property RespConnectionState: TRespConnectionState read FRespConnectionState write FRespConnectionState; 30 | // Get Last Response Message from StatusCode 31 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 32 | 33 | function ToJsonString: string; 34 | class function FromJsonString(const AJsonString: string): TConnectionState; 35 | function APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 36 | 37 | end; 38 | 39 | implementation 40 | uses 41 | System.Classes, 42 | System.NetEncoding, 43 | System.NetConsts, 44 | System.Net.URLClient, 45 | System.Net.HttpClient, 46 | System.Net.HttpClientComponent; 47 | 48 | {TConnectionState} 49 | function TConnectionState.ToJsonString: string; 50 | begin 51 | Result := TJson.ObjectToJsonString(self); 52 | end; 53 | 54 | class function TConnectionState.FromJsonString(const AJsonString: string): TConnectionState; 55 | begin 56 | Result := TJson.JsonToObject(AJsonString); 57 | end; 58 | 59 | function TConnectionState.APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 60 | var 61 | HttpClient : THttpClient; 62 | LResponse : IHttpResponse; 63 | RequestBody : TStringStream; 64 | xURL_EXECUTE : string; 65 | begin 66 | xURL_EXECUTE := BaseURL + '/instance/connectionstate/dtkey'; 67 | FResponseMessage := ''; 68 | HttpClient := THTTPClient.Create; 69 | try 70 | {Add Body} 71 | RequestBody := TStringStream.Create(Self.ToJsonString); 72 | 73 | LResponse := HttpClient.Get( xURL_EXECUTE, 74 | RequestBody, 75 | 76 | TNetHeaders.Create( 77 | {Add Params} 78 | TNameValuePair.Create('instanceName', Instancia), 79 | 80 | {Add Headers} 81 | TNameValuePair.Create('apikey', Key) 82 | )); 83 | 84 | {Execute method GET and return instance of TRespConnectionState} 85 | FRespConnectionState := TRespConnectionState.FromJsonString(LResponse.ContentAsString); 86 | 87 | Result := LResponse.StatusCode = 200; 88 | 89 | 90 | if not LResponse.StatusCode in [200,201] then 91 | raise Exception.Create( LResponse.ContentAsString ); 92 | except 93 | on E:Exception do 94 | begin 95 | Result := False; 96 | FResponseMessage := E.Message; 97 | raise Exception.Create('Error Method TConnectionState.APIExecute'+ sLineBreak + E.Message); 98 | end; 99 | end; 100 | end; 101 | 102 | end. 103 | -------------------------------------------------------------------------------- /dto/instance/__history/ConnectionState.pas.~5~: -------------------------------------------------------------------------------- 1 | unit ConnectionState; 2 | 3 | interface 4 | uses 5 | RespConnectionState, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TConnectionState = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | // Instance of TRespConnectionState 19 | [JSONMarshalledAttribute(False)] 20 | FRespConnectionState: TRespConnectionState; 21 | // Store Last Response Message from StatusCode 22 | [JSONMarshalledAttribute(False)] 23 | FResponseMessage: string; 24 | public 25 | property instanceName : string read FInstanceName write FInstanceName; 26 | property qrcode : Boolean read FQrcode write FQrcode; 27 | property token : string read FToken write FToken; 28 | // Instance of TRespConnectionState 29 | property RespConnectionState: TRespConnectionState read FRespConnectionState write FRespConnectionState; 30 | // Get Last Response Message from StatusCode 31 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 32 | 33 | function ToJsonString: string; 34 | class function FromJsonString(const AJsonString: string): TConnectionState; 35 | function APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 36 | 37 | end; 38 | 39 | implementation 40 | uses 41 | System.Classes, 42 | System.NetEncoding, 43 | System.NetConsts, 44 | System.Net.URLClient, 45 | System.Net.HttpClient, 46 | System.Net.HttpClientComponent; 47 | 48 | {TConnectionState} 49 | function TConnectionState.ToJsonString: string; 50 | begin 51 | Result := TJson.ObjectToJsonString(self); 52 | end; 53 | 54 | class function TConnectionState.FromJsonString(const AJsonString: string): TConnectionState; 55 | begin 56 | Result := TJson.JsonToObject(AJsonString); 57 | end; 58 | 59 | function TConnectionState.APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 60 | var 61 | HttpClient : THttpClient; 62 | LResponse : IHttpResponse; 63 | RequestBody : TStringStream; 64 | xURL_EXECUTE : string; 65 | begin 66 | xURL_EXECUTE := BaseURL + '/instance/connectionstate/dtkey'; 67 | FResponseMessage := ''; 68 | HttpClient := THTTPClient.Create; 69 | try 70 | {Add Body} 71 | RequestBody := TStringStream.Create(Self.ToJsonString); 72 | 73 | LResponse := HttpClient.Get( xURL_EXECUTE, 74 | RequestBody, 75 | 76 | TNetHeaders.Create( 77 | {Add Params} 78 | TNameValuePair.Create('instanceName', Instancia), 79 | 80 | {Add Headers} 81 | TNameValuePair.Create('apikey', Key) 82 | )); 83 | 84 | {Execute method GET and return instance of TRespConnectionState} 85 | FRespConnectionState := TRespConnectionState.FromJsonString(LResponse.ContentAsString); 86 | 87 | Result := LResponse.StatusCode = 200; 88 | 89 | if not LResponse.StatusCode in [200,201] then 90 | raise Exception.Create( LResponse.ContentAsString ); 91 | except 92 | on E:Exception do 93 | begin 94 | Result := False; 95 | FResponseMessage := E.Message; 96 | raise Exception.Create('Error Method TConnectionState.APIExecute'+ sLineBreak + E.Message); 97 | end; 98 | end; 99 | end; 100 | 101 | end. 102 | -------------------------------------------------------------------------------- /dto/instance/__history/ConnectionState.pas.~6~: -------------------------------------------------------------------------------- 1 | unit ConnectionState; 2 | 3 | interface 4 | uses 5 | RespConnectionState, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TConnectionState = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | // Instance of TRespConnectionState 19 | [JSONMarshalledAttribute(False)] 20 | FRespConnectionState: TRespConnectionState; 21 | // Store Last Response Message from StatusCode 22 | [JSONMarshalledAttribute(False)] 23 | FResponseMessage: string; 24 | public 25 | property instanceName : string read FInstanceName write FInstanceName; 26 | property qrcode : Boolean read FQrcode write FQrcode; 27 | property token : string read FToken write FToken; 28 | // Instance of TRespConnectionState 29 | property RespConnectionState: TRespConnectionState read FRespConnectionState write FRespConnectionState; 30 | // Get Last Response Message from StatusCode 31 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 32 | 33 | function ToJsonString: string; 34 | class function FromJsonString(const AJsonString: string): TConnectionState; 35 | function APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 36 | 37 | end; 38 | 39 | implementation 40 | uses 41 | System.Classes, 42 | System.NetEncoding, 43 | System.NetConsts, 44 | System.Net.URLClient, 45 | System.Net.HttpClient, 46 | System.Net.HttpClientComponent; 47 | 48 | {TConnectionState} 49 | function TConnectionState.ToJsonString: string; 50 | begin 51 | Result := TJson.ObjectToJsonString(self); 52 | end; 53 | 54 | class function TConnectionState.FromJsonString(const AJsonString: string): TConnectionState; 55 | begin 56 | Result := TJson.JsonToObject(AJsonString); 57 | end; 58 | 59 | function TConnectionState.APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 60 | var 61 | HttpClient : THttpClient; 62 | LResponse : IHttpResponse; 63 | RequestBody : TStringStream; 64 | xURL_EXECUTE : string; 65 | begin 66 | xURL_EXECUTE := BaseURL + '/instance/connectionstate/' + Instancia; 67 | FResponseMessage := ''; 68 | HttpClient := THTTPClient.Create; 69 | try 70 | {Add Body} 71 | RequestBody := TStringStream.Create(Self.ToJsonString); 72 | 73 | LResponse := HttpClient.Get( xURL_EXECUTE, 74 | RequestBody, 75 | 76 | TNetHeaders.Create( 77 | {Add Headers} 78 | TNameValuePair.Create('apikey', Key) 79 | )); 80 | 81 | {Execute method GET and return instance of TRespConnectionState} 82 | FRespConnectionState := TRespConnectionState.FromJsonString(LResponse.ContentAsString); 83 | 84 | Result := LResponse.StatusCode = 200; 85 | 86 | if not LResponse.StatusCode in [200,201] then 87 | raise Exception.Create( LResponse.ContentAsString ); 88 | except 89 | on E:Exception do 90 | begin 91 | Result := False; 92 | FResponseMessage := E.Message; 93 | raise Exception.Create('Error Method TConnectionState.APIExecute'+ sLineBreak + E.Message); 94 | end; 95 | end; 96 | end; 97 | 98 | end. 99 | -------------------------------------------------------------------------------- /dto/instance/__history/ConnectionState.pas.~7~: -------------------------------------------------------------------------------- 1 | unit ConnectionState; 2 | 3 | interface 4 | uses 5 | RespConnectionState, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TConnectionState = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | // Instance of TRespConnectionState 19 | [JSONMarshalledAttribute(False)] 20 | FRespConnectionState: TRespConnectionState; 21 | // Store Last Response Message from StatusCode 22 | [JSONMarshalledAttribute(False)] 23 | FResponseMessage: string; 24 | public 25 | property instanceName : string read FInstanceName write FInstanceName; 26 | property qrcode : Boolean read FQrcode write FQrcode; 27 | property token : string read FToken write FToken; 28 | // Instance of TRespConnectionState 29 | property RespConnectionState: TRespConnectionState read FRespConnectionState write FRespConnectionState; 30 | // Get Last Response Message from StatusCode 31 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 32 | 33 | function ToJsonString: string; 34 | class function FromJsonString(const AJsonString: string): TConnectionState; 35 | function APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 36 | 37 | end; 38 | 39 | implementation 40 | uses 41 | System.Classes, 42 | System.NetEncoding, 43 | System.NetConsts, 44 | System.Net.URLClient, 45 | System.Net.HttpClient, 46 | System.Net.HttpClientComponent; 47 | 48 | {TConnectionState} 49 | function TConnectionState.ToJsonString: string; 50 | begin 51 | Result := TJson.ObjectToJsonString(self); 52 | end; 53 | 54 | class function TConnectionState.FromJsonString(const AJsonString: string): TConnectionState; 55 | begin 56 | Result := TJson.JsonToObject(AJsonString); 57 | end; 58 | 59 | function TConnectionState.APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 60 | var 61 | HttpClient : THttpClient; 62 | LResponse : IHttpResponse; 63 | RequestBody : TStringStream; 64 | xURL_EXECUTE : string; 65 | begin 66 | xURL_EXECUTE := BaseURL + '/instance/connectionstate/' + Instancia; 67 | FResponseMessage := ''; 68 | HttpClient := THTTPClient.Create; 69 | try 70 | {Add Body} 71 | RequestBody := TStringStream.Create(''); 72 | 73 | LResponse := HttpClient.Get( xURL_EXECUTE, 74 | RequestBody, 75 | 76 | TNetHeaders.Create( 77 | {Add Headers} 78 | TNameValuePair.Create('apikey', Key) 79 | )); 80 | 81 | {Execute method GET and return instance of TRespConnectionState} 82 | FRespConnectionState := TRespConnectionState.FromJsonString(LResponse.ContentAsString); 83 | 84 | Result := LResponse.StatusCode = 200; 85 | 86 | if not LResponse.StatusCode in [200,201] then 87 | raise Exception.Create( LResponse.ContentAsString ); 88 | except 89 | on E:Exception do 90 | begin 91 | Result := False; 92 | FResponseMessage := E.Message; 93 | raise Exception.Create('Error Method TConnectionState.APIExecute'+ sLineBreak + E.Message); 94 | end; 95 | end; 96 | end; 97 | 98 | end. 99 | -------------------------------------------------------------------------------- /dto/instance/__history/ConnectionState.pas.~8~: -------------------------------------------------------------------------------- 1 | unit ConnectionState; 2 | 3 | interface 4 | uses 5 | RespConnectionState, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TConnectionState = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | // Instance of TRespConnectionState 19 | [JSONMarshalledAttribute(False)] 20 | FRespConnectionState: TRespConnectionState; 21 | // Store Last Response Message from StatusCode 22 | [JSONMarshalledAttribute(False)] 23 | FResponseMessage: string; 24 | public 25 | property instanceName : string read FInstanceName write FInstanceName; 26 | property qrcode : Boolean read FQrcode write FQrcode; 27 | property token : string read FToken write FToken; 28 | // Instance of TRespConnectionState 29 | property RespConnectionState: TRespConnectionState read FRespConnectionState write FRespConnectionState; 30 | // Get Last Response Message from StatusCode 31 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 32 | 33 | function ToJsonString: string; 34 | class function FromJsonString(const AJsonString: string): TConnectionState; 35 | function APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 36 | 37 | end; 38 | 39 | implementation 40 | uses 41 | System.Classes, 42 | System.NetEncoding, 43 | System.NetConsts, 44 | System.Net.URLClient, 45 | System.Net.HttpClient, 46 | System.Net.HttpClientComponent; 47 | 48 | {TConnectionState} 49 | function TConnectionState.ToJsonString: string; 50 | begin 51 | Result := TJson.ObjectToJsonString(self); 52 | end; 53 | 54 | class function TConnectionState.FromJsonString(const AJsonString: string): TConnectionState; 55 | begin 56 | Result := TJson.JsonToObject(AJsonString); 57 | end; 58 | 59 | function TConnectionState.APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 60 | var 61 | HttpClient : THttpClient; 62 | LResponse : IHttpResponse; 63 | RequestBody : TStringStream; 64 | xURL_EXECUTE : string; 65 | begin 66 | xURL_EXECUTE := BaseURL + '/instance/connectionstate/' + Instancia; 67 | FResponseMessage := ''; 68 | HttpClient := THTTPClient.Create; 69 | try 70 | try 71 | {Add Body} 72 | RequestBody := TStringStream.Create(''); 73 | 74 | LResponse := HttpClient.Get( xURL_EXECUTE, 75 | RequestBody, 76 | 77 | TNetHeaders.Create( 78 | {Add Headers} 79 | TNameValuePair.Create('apikey', Key) 80 | )); 81 | 82 | {Execute method GET and return instance of TRespConnectionState} 83 | FRespConnectionState := TRespConnectionState.FromJsonString(LResponse.ContentAsString); 84 | 85 | Result := LResponse.StatusCode = 200; 86 | 87 | if not LResponse.StatusCode in [200,201] then 88 | raise Exception.Create( LResponse.ContentAsString ); 89 | except 90 | on E:Exception do 91 | begin 92 | Result := False; 93 | FResponseMessage := E.Message; 94 | raise Exception.Create('Error Method TConnectionState.APIExecute'+ sLineBreak + E.Message); 95 | end; 96 | end; 97 | finally 98 | FreeAndNil(HttpClient); 99 | FreeAndNil(RequestBody); 100 | end; 101 | end; 102 | 103 | end. 104 | -------------------------------------------------------------------------------- /dto/instance/__history/ConnectionState.pas.~9~: -------------------------------------------------------------------------------- 1 | unit ConnectionState; 2 | 3 | interface 4 | uses 5 | RespConnectionState, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TConnectionState = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | // Instance of TRespConnectionState 19 | [JSONMarshalledAttribute(False)] 20 | FRespConnectionState: TRespConnectionState; 21 | // Store Last Response Message from StatusCode 22 | [JSONMarshalledAttribute(False)] 23 | FResponseMessage: string; 24 | public 25 | property instanceName : string read FInstanceName write FInstanceName; 26 | property qrcode : Boolean read FQrcode write FQrcode; 27 | property token : string read FToken write FToken; 28 | // Instance of TRespConnectionState 29 | property RespConnectionState: TRespConnectionState read FRespConnectionState write FRespConnectionState; 30 | // Get Last Response Message from StatusCode 31 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 32 | 33 | function ToJsonString: string; 34 | class function FromJsonString(const AJsonString: string): TConnectionState; 35 | function APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 36 | 37 | end; 38 | 39 | implementation 40 | uses 41 | System.Classes, 42 | System.NetEncoding, 43 | System.NetConsts, 44 | System.Net.URLClient, 45 | System.Net.HttpClient, 46 | System.Net.HttpClientComponent; 47 | 48 | {TConnectionState} 49 | function TConnectionState.ToJsonString: string; 50 | begin 51 | Result := TJson.ObjectToJsonString(self); 52 | end; 53 | 54 | class function TConnectionState.FromJsonString(const AJsonString: string): TConnectionState; 55 | begin 56 | Result := TJson.JsonToObject(AJsonString); 57 | end; 58 | 59 | function TConnectionState.APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 60 | var 61 | HttpClient : THttpClient; 62 | LResponse : IHttpResponse; 63 | RequestBody : TStringStream; 64 | xURL_EXECUTE : string; 65 | begin 66 | xURL_EXECUTE := BaseURL + '/instance/connectionstate/' + Instancia; 67 | FResponseMessage := ''; 68 | HttpClient := THTTPClient.Create; 69 | try 70 | try 71 | {Add Body} 72 | RequestBody := TStringStream.Create(''); 73 | 74 | LResponse := HttpClient.Get( xURL_EXECUTE, 75 | RequestBody, 76 | 77 | TNetHeaders.Create( 78 | {Add Headers} 79 | TNameValuePair.Create('apikey', Key) 80 | )); 81 | 82 | {Execute method GET and return instance of TRespConnectionState} 83 | FRespConnectionState := TRespConnectionState.FromJsonString(LResponse.ContentAsString); 84 | 85 | Result := LResponse.StatusCode = 200; 86 | 87 | if not LResponse.StatusCode in [200,201] then 88 | raise Exception.Create( LResponse.ContentAsString ); 89 | except 90 | on E:Exception do 91 | begin 92 | Result := False; 93 | FResponseMessage := E.Message; 94 | raise Exception.Create('Error Method TConnectionState.APIExecute'+ sLineBreak + E.Message); 95 | end; 96 | end; 97 | finally 98 | FreeAndNil(HttpClient); 99 | FreeAndNil(RequestBody); 100 | end; 101 | end; 102 | 103 | end. 104 | 105 | -------------------------------------------------------------------------------- /dto/instance/__history/InstanceConnect.pas.~1~: -------------------------------------------------------------------------------- 1 | unit InstanceConnect; 2 | 3 | interface 4 | uses 5 | RespInstanceConnect, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TInstanceConnect = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | // Instance of TRespInstanceConnect 19 | [JSONMarshalledAttribute(False)] 20 | FRespInstanceConnect: TRespInstanceConnect; 21 | // Store Last Response Message from StatusCode 22 | [JSONMarshalledAttribute(False)] 23 | FResponseMessage: string; 24 | public 25 | property instanceName : string read FInstanceName write FInstanceName; 26 | property qrcode : Boolean read FQrcode write FQrcode; 27 | property token : string read FToken write FToken; 28 | // Instance of TRespInstanceConnect 29 | property RespInstanceConnect: TRespInstanceConnect read FRespInstanceConnect write FRespInstanceConnect; 30 | // Get Last Response Message from StatusCode 31 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 32 | 33 | function ToJsonString: string; 34 | class function FromJsonString(const AJsonString: string): TInstanceConnect; 35 | function APIExecute: boolean; 36 | 37 | end; 38 | 39 | implementation 40 | uses 41 | System.Classes, 42 | System.NetEncoding, 43 | System.NetConsts, 44 | System.Net.URLClient, 45 | System.Net.HttpClient, 46 | System.Net.HttpClientComponent; 47 | 48 | {TInstanceConnect} 49 | function TInstanceConnect.ToJsonString: string; 50 | begin 51 | Result := TJson.ObjectToJsonString(self); 52 | end; 53 | 54 | class function TInstanceConnect.FromJsonString(const AJsonString: string): TInstanceConnect; 55 | begin 56 | Result := TJson.JsonToObject(AJsonString); 57 | end; 58 | 59 | function TInstanceConnect.APIExecute: boolean; 60 | const 61 | xURL_EXECUTE = 'https://evoapi.dtloja.com.br/instance/connect/dtkey'; 62 | var 63 | HttpClient : THttpClient; 64 | LResponse : IHttpResponse; 65 | RequestBody : TStringStream; 66 | begin 67 | FResponseMessage := ''; 68 | HttpClient := THTTPClient.Create; 69 | try 70 | {Add Body} 71 | RequestBody := TStringStream.Create(Self.ToJsonString); 72 | 73 | LResponse := HttpClient.Get( xURL_EXECUTE, 74 | RequestBody, 75 | 76 | TNetHeaders.Create( 77 | {Add Params} 78 | TNameValuePair.Create('instanceName', 'dtkey'), 79 | 80 | {Add Headers} 81 | TNameValuePair.Create('apikey', 'B6D711FCDE4D4FD5936544120E713976') 82 | )); 83 | 84 | {Execute method GET and return instance of TRespInstanceConnect} 85 | FRespInstanceConnect := TRespInstanceConnect.FromJsonString(LResponse.ContentAsString); 86 | 87 | Result := LResponse.StatusCode = 200; 88 | 89 | 90 | if not LResponse.StatusCode in [200,201] then 91 | raise Exception.Create( LResponse.ContentAsString ); 92 | except 93 | on E:Exception do 94 | begin 95 | Result := False; 96 | FResponseMessage := E.Message; 97 | raise Exception.Create('Error Method TInstanceConnect.APIExecute'+ sLineBreak + E.Message); 98 | end; 99 | end; 100 | end; 101 | 102 | end. 103 | -------------------------------------------------------------------------------- /dto/instance/__history/InstanceConnect.pas.~2~: -------------------------------------------------------------------------------- 1 | unit InstanceConnect; 2 | 3 | interface 4 | uses 5 | RespInstanceConnect, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TInstanceConnect = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | // Instance of TRespInstanceConnect 19 | [JSONMarshalledAttribute(False)] 20 | FRespInstanceConnect: TRespInstanceConnect; 21 | // Store Last Response Message from StatusCode 22 | [JSONMarshalledAttribute(False)] 23 | FResponseMessage: string; 24 | public 25 | property instanceName : string read FInstanceName write FInstanceName; 26 | property qrcode : Boolean read FQrcode write FQrcode; 27 | property token : string read FToken write FToken; 28 | // Instance of TRespInstanceConnect 29 | property RespInstanceConnect: TRespInstanceConnect read FRespInstanceConnect write FRespInstanceConnect; 30 | // Get Last Response Message from StatusCode 31 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 32 | 33 | function ToJsonString: string; 34 | class function FromJsonString(const AJsonString: string): TInstanceConnect; 35 | function APIExecute(BaseURL : string: , Ke: , Ke; 36 | 37 | end; 38 | 39 | implementation 40 | uses 41 | System.Classes, 42 | System.NetEncoding, 43 | System.NetConsts, 44 | System.Net.URLClient, 45 | System.Net.HttpClient, 46 | System.Net.HttpClientComponent; 47 | 48 | {TInstanceConnect} 49 | function TInstanceConnect.ToJsonString: string; 50 | begin 51 | Result := TJson.ObjectToJsonString(self); 52 | end; 53 | 54 | class function TInstanceConnect.FromJsonString(const AJsonString: string): TInstanceConnect; 55 | begin 56 | Result := TJson.JsonToObject(AJsonString); 57 | end; 58 | 59 | function TInstanceConnect.APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 60 | const 61 | xURL_EXECUTE = 'https://evoapi.dtloja.com.br/instance/connect/dtkey'; 62 | var 63 | HttpClient : THttpClient; 64 | LResponse : IHttpResponse; 65 | RequestBody : TStringStream; 66 | begin 67 | FResponseMessage := ''; 68 | HttpClient := THTTPClient.Create; 69 | try 70 | {Add Body} 71 | RequestBody := TStringStream.Create(Self.ToJsonString); 72 | 73 | LResponse := HttpClient.Get( xURL_EXECUTE, 74 | RequestBody, 75 | 76 | TNetHeaders.Create( 77 | {Add Params} 78 | TNameValuePair.Create('instanceName', 'dtkey'), 79 | 80 | {Add Headers} 81 | TNameValuePair.Create('apikey', 'B6D711FCDE4D4FD5936544120E713976') 82 | )); 83 | 84 | {Execute method GET and return instance of TRespInstanceConnect} 85 | FRespInstanceConnect := TRespInstanceConnect.FromJsonString(LResponse.ContentAsString); 86 | 87 | Result := LResponse.StatusCode = 200; 88 | 89 | 90 | if not LResponse.StatusCode in [200,201] then 91 | raise Exception.Create( LResponse.ContentAsString ); 92 | except 93 | on E:Exception do 94 | begin 95 | Result := False; 96 | FResponseMessage := E.Message; 97 | raise Exception.Create('Error Method TInstanceConnect.APIExecute'+ sLineBreak + E.Message); 98 | end; 99 | end; 100 | end; 101 | 102 | end. 103 | -------------------------------------------------------------------------------- /dto/instance/__history/InstanceConnect.pas.~3~: -------------------------------------------------------------------------------- 1 | unit InstanceConnect; 2 | 3 | interface 4 | uses 5 | RespInstanceConnect, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TInstanceConnect = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | // Instance of TRespInstanceConnect 19 | [JSONMarshalledAttribute(False)] 20 | FRespInstanceConnect: TRespInstanceConnect; 21 | // Store Last Response Message from StatusCode 22 | [JSONMarshalledAttribute(False)] 23 | FResponseMessage: string; 24 | public 25 | property instanceName : string read FInstanceName write FInstanceName; 26 | property qrcode : Boolean read FQrcode write FQrcode; 27 | property token : string read FToken write FToken; 28 | // Instance of TRespInstanceConnect 29 | property RespInstanceConnect: TRespInstanceConnect read FRespInstanceConnect write FRespInstanceConnect; 30 | // Get Last Response Message from StatusCode 31 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 32 | 33 | function ToJsonString: string; 34 | class function FromJsonString(const AJsonString: string): TInstanceConnect; 35 | function TInstanceConnect.APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 36 | 37 | end; 38 | 39 | implementation 40 | uses 41 | System.Classes, 42 | System.NetEncoding, 43 | System.NetConsts, 44 | System.Net.URLClient, 45 | System.Net.HttpClient, 46 | System.Net.HttpClientComponent; 47 | 48 | {TInstanceConnect} 49 | function TInstanceConnect.ToJsonString: string; 50 | begin 51 | Result := TJson.ObjectToJsonString(self); 52 | end; 53 | 54 | class function TInstanceConnect.FromJsonString(const AJsonString: string): TInstanceConnect; 55 | begin 56 | Result := TJson.JsonToObject(AJsonString); 57 | end; 58 | 59 | function TInstanceConnect.APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 60 | const 61 | xURL_EXECUTE = 'https://evoapi.dtloja.com.br/instance/connect/dtkey'; 62 | var 63 | HttpClient : THttpClient; 64 | LResponse : IHttpResponse; 65 | RequestBody : TStringStream; 66 | begin 67 | FResponseMessage := ''; 68 | HttpClient := THTTPClient.Create; 69 | try 70 | {Add Body} 71 | RequestBody := TStringStream.Create(Self.ToJsonString); 72 | 73 | LResponse := HttpClient.Get( xURL_EXECUTE, 74 | RequestBody, 75 | 76 | TNetHeaders.Create( 77 | {Add Params} 78 | TNameValuePair.Create('instanceName', 'dtkey'), 79 | 80 | {Add Headers} 81 | TNameValuePair.Create('apikey', 'B6D711FCDE4D4FD5936544120E713976') 82 | )); 83 | 84 | {Execute method GET and return instance of TRespInstanceConnect} 85 | FRespInstanceConnect := TRespInstanceConnect.FromJsonString(LResponse.ContentAsString); 86 | 87 | Result := LResponse.StatusCode = 200; 88 | 89 | 90 | if not LResponse.StatusCode in [200,201] then 91 | raise Exception.Create( LResponse.ContentAsString ); 92 | except 93 | on E:Exception do 94 | begin 95 | Result := False; 96 | FResponseMessage := E.Message; 97 | raise Exception.Create('Error Method TInstanceConnect.APIExecute'+ sLineBreak + E.Message); 98 | end; 99 | end; 100 | end; 101 | 102 | end. 103 | -------------------------------------------------------------------------------- /dto/instance/__history/InstanceConnect.pas.~4~: -------------------------------------------------------------------------------- 1 | unit InstanceConnect; 2 | 3 | interface 4 | uses 5 | RespInstanceConnect, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TInstanceConnect = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | // Instance of TRespInstanceConnect 19 | [JSONMarshalledAttribute(False)] 20 | FRespInstanceConnect: TRespInstanceConnect; 21 | // Store Last Response Message from StatusCode 22 | [JSONMarshalledAttribute(False)] 23 | FResponseMessage: string; 24 | public 25 | property instanceName : string read FInstanceName write FInstanceName; 26 | property qrcode : Boolean read FQrcode write FQrcode; 27 | property token : string read FToken write FToken; 28 | // Instance of TRespInstanceConnect 29 | property RespInstanceConnect: TRespInstanceConnect read FRespInstanceConnect write FRespInstanceConnect; 30 | // Get Last Response Message from StatusCode 31 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 32 | 33 | function ToJsonString: string; 34 | class function FromJsonString(const AJsonString: string): TInstanceConnect; 35 | function APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 36 | 37 | end; 38 | 39 | implementation 40 | uses 41 | System.Classes, 42 | System.NetEncoding, 43 | System.NetConsts, 44 | System.Net.URLClient, 45 | System.Net.HttpClient, 46 | System.Net.HttpClientComponent; 47 | 48 | {TInstanceConnect} 49 | function TInstanceConnect.ToJsonString: string; 50 | begin 51 | Result := TJson.ObjectToJsonString(self); 52 | end; 53 | 54 | class function TInstanceConnect.FromJsonString(const AJsonString: string): TInstanceConnect; 55 | begin 56 | Result := TJson.JsonToObject(AJsonString); 57 | end; 58 | 59 | function TInstanceConnect.APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 60 | const 61 | xURL_EXECUTE = 'https://evoapi.dtloja.com.br/instance/connect/dtkey'; 62 | var 63 | HttpClient : THttpClient; 64 | LResponse : IHttpResponse; 65 | RequestBody : TStringStream; 66 | begin 67 | FResponseMessage := ''; 68 | HttpClient := THTTPClient.Create; 69 | try 70 | {Add Body} 71 | RequestBody := TStringStream.Create(Self.ToJsonString); 72 | 73 | LResponse := HttpClient.Get( xURL_EXECUTE, 74 | RequestBody, 75 | 76 | TNetHeaders.Create( 77 | {Add Params} 78 | TNameValuePair.Create('instanceName', 'dtkey'), 79 | 80 | {Add Headers} 81 | TNameValuePair.Create('apikey', 'B6D711FCDE4D4FD5936544120E713976') 82 | )); 83 | 84 | {Execute method GET and return instance of TRespInstanceConnect} 85 | FRespInstanceConnect := TRespInstanceConnect.FromJsonString(LResponse.ContentAsString); 86 | 87 | Result := LResponse.StatusCode = 200; 88 | 89 | 90 | if not LResponse.StatusCode in [200,201] then 91 | raise Exception.Create( LResponse.ContentAsString ); 92 | except 93 | on E:Exception do 94 | begin 95 | Result := False; 96 | FResponseMessage := E.Message; 97 | raise Exception.Create('Error Method TInstanceConnect.APIExecute'+ sLineBreak + E.Message); 98 | end; 99 | end; 100 | end; 101 | 102 | end. 103 | -------------------------------------------------------------------------------- /dto/instance/__history/InstanceConnect.pas.~5~: -------------------------------------------------------------------------------- 1 | unit InstanceConnect; 2 | 3 | interface 4 | uses 5 | RespInstanceConnect, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TInstanceConnect = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | // Instance of TRespInstanceConnect 19 | [JSONMarshalledAttribute(False)] 20 | FRespInstanceConnect: TRespInstanceConnect; 21 | // Store Last Response Message from StatusCode 22 | [JSONMarshalledAttribute(False)] 23 | FResponseMessage: string; 24 | public 25 | property instanceName : string read FInstanceName write FInstanceName; 26 | property qrcode : Boolean read FQrcode write FQrcode; 27 | property token : string read FToken write FToken; 28 | // Instance of TRespInstanceConnect 29 | property RespInstanceConnect: TRespInstanceConnect read FRespInstanceConnect write FRespInstanceConnect; 30 | // Get Last Response Message from StatusCode 31 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 32 | 33 | function ToJsonString: string; 34 | class function FromJsonString(const AJsonString: string): TInstanceConnect; 35 | function APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 36 | 37 | end; 38 | 39 | implementation 40 | uses 41 | System.Classes, 42 | System.NetEncoding, 43 | System.NetConsts, 44 | System.Net.URLClient, 45 | System.Net.HttpClient, 46 | System.Net.HttpClientComponent; 47 | 48 | {TInstanceConnect} 49 | function TInstanceConnect.ToJsonString: string; 50 | begin 51 | Result := TJson.ObjectToJsonString(self); 52 | end; 53 | 54 | class function TInstanceConnect.FromJsonString(const AJsonString: string): TInstanceConnect; 55 | begin 56 | Result := TJson.JsonToObject(AJsonString); 57 | end; 58 | 59 | function TInstanceConnect.APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 60 | var 61 | HttpClient : THttpClient; 62 | LResponse : IHttpResponse; 63 | RequestBody : TStringStream; 64 | xURL_EXECUTE : string; 65 | begin 66 | xURL_EXECUTE := '/instance/connect/' + Instancia; 67 | FResponseMessage := ''; 68 | HttpClient := THTTPClient.Create; 69 | try 70 | {Add Body} 71 | RequestBody := TStringStream.Create(''); 72 | 73 | LResponse := HttpClient.Get( xURL_EXECUTE, 74 | RequestBody, 75 | 76 | TNetHeaders.Create( 77 | TNameValuePair.Create('apikey', key) 78 | )); 79 | FRespInstanceConnect := TRespInstanceConnect.FromJsonString(LResponse.ContentAsString); 80 | 81 | Result := LResponse.StatusCode = 200; 82 | 83 | 84 | if not LResponse.StatusCode in [200,201] then 85 | raise Exception.Create( LResponse.ContentAsString ); 86 | except 87 | on E:Exception do 88 | begin 89 | Result := False; 90 | FResponseMessage := E.Message; 91 | raise Exception.Create('Error Method TInstanceConnect.APIExecute'+ sLineBreak + E.Message); 92 | end; 93 | end; 94 | end; 95 | 96 | end. 97 | -------------------------------------------------------------------------------- /dto/instance/__history/InstanceConnect.pas.~6~: -------------------------------------------------------------------------------- 1 | unit InstanceConnect; 2 | 3 | interface 4 | uses 5 | RespInstanceConnect, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TInstanceConnect = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | // Instance of TRespInstanceConnect 19 | [JSONMarshalledAttribute(False)] 20 | FRespInstanceConnect: TRespInstanceConnect; 21 | // Store Last Response Message from StatusCode 22 | [JSONMarshalledAttribute(False)] 23 | FResponseMessage: string; 24 | public 25 | property instanceName : string read FInstanceName write FInstanceName; 26 | property qrcode : Boolean read FQrcode write FQrcode; 27 | property token : string read FToken write FToken; 28 | // Instance of TRespInstanceConnect 29 | property RespInstanceConnect: TRespInstanceConnect read FRespInstanceConnect write FRespInstanceConnect; 30 | // Get Last Response Message from StatusCode 31 | property ResponseMessage: string read FResponseMessage write FResponseMessage; 32 | 33 | function ToJsonString: string; 34 | class function FromJsonString(const AJsonString: string): TInstanceConnect; 35 | function APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 36 | 37 | end; 38 | 39 | implementation 40 | uses 41 | System.Classes, 42 | System.NetEncoding, 43 | System.NetConsts, 44 | System.Net.URLClient, 45 | System.Net.HttpClient, 46 | System.Net.HttpClientComponent; 47 | 48 | {TInstanceConnect} 49 | function TInstanceConnect.ToJsonString: string; 50 | begin 51 | Result := TJson.ObjectToJsonString(self); 52 | end; 53 | 54 | class function TInstanceConnect.FromJsonString(const AJsonString: string): TInstanceConnect; 55 | begin 56 | Result := TJson.JsonToObject(AJsonString); 57 | end; 58 | 59 | function TInstanceConnect.APIExecute(BaseURL : string; Key: string; Instancia : string): boolean; 60 | var 61 | HttpClient : THttpClient; 62 | LResponse : IHttpResponse; 63 | RequestBody : TStringStream; 64 | xURL_EXECUTE : string; 65 | begin 66 | xURL_EXECUTE := BaseURL + '/instance/connect/' + Instancia; 67 | FResponseMessage := ''; 68 | HttpClient := THTTPClient.Create; 69 | try 70 | {Add Body} 71 | RequestBody := TStringStream.Create(''); 72 | 73 | LResponse := HttpClient.Get( xURL_EXECUTE, 74 | RequestBody, 75 | 76 | TNetHeaders.Create( 77 | TNameValuePair.Create('apikey', key) 78 | )); 79 | FRespInstanceConnect := TRespInstanceConnect.FromJsonString(LResponse.ContentAsString); 80 | 81 | Result := LResponse.StatusCode = 200; 82 | 83 | 84 | if not LResponse.StatusCode in [200,201] then 85 | raise Exception.Create( LResponse.ContentAsString ); 86 | except 87 | on E:Exception do 88 | begin 89 | Result := False; 90 | FResponseMessage := E.Message; 91 | raise Exception.Create('Error Method TInstanceConnect.APIExecute'+ sLineBreak + E.Message); 92 | end; 93 | end; 94 | end; 95 | 96 | end. 97 | -------------------------------------------------------------------------------- /dto/instance/__history/RespConnectionState.pas.~1~: -------------------------------------------------------------------------------- 1 | unit RespConnectionState; 2 | 3 | interface 4 | uses 5 | System.SysUtils, 6 | Generics.Collections, 7 | REST.Json.Types, 8 | Rest.Json; 9 | 10 | type 11 | 12 | TInstance = class 13 | private 14 | FInstanceName: string; 15 | FState : string; 16 | public 17 | property instanceName : string read FInstanceName write FInstanceName; 18 | property state : string read FState write FState; 19 | 20 | function ToJsonString: string; 21 | class function FromJsonString(const AJsonString: string): TInstance; 22 | end; 23 | 24 | TRespConnectionState = class 25 | private 26 | FInstance: TInstance; 27 | public 28 | constructor Create; 29 | destructor Destroy; override; 30 | 31 | property instance : TInstance read FInstance write FInstance; 32 | 33 | function ToJsonString: string; 34 | class function FromJsonString(const AJsonString: string): TRespConnectionState; 35 | end; 36 | 37 | implementation 38 | 39 | {TInstance} 40 | function TInstance.ToJsonString: string; 41 | begin 42 | Result := TJson.ObjectToJsonString(self); 43 | end; 44 | 45 | class function TInstance.FromJsonString(const AJsonString: string): TInstance; 46 | begin 47 | Result := TJson.JsonToObject(AJsonString); 48 | end; 49 | 50 | {TRespConnectionState} 51 | constructor TRespConnectionState.Create; 52 | begin 53 | inherited; 54 | 55 | FInstance := TInstance.Create; 56 | end; 57 | 58 | destructor TRespConnectionState.Destroy; 59 | begin 60 | if Assigned(FInstance) then 61 | FreeAndNil(FInstance); 62 | 63 | inherited; 64 | end; 65 | 66 | function TRespConnectionState.ToJsonString: string; 67 | begin 68 | Result := TJson.ObjectToJsonString(self); 69 | end; 70 | 71 | class function TRespConnectionState.FromJsonString(const AJsonString: string): TRespConnectionState; 72 | begin 73 | Result := TJson.JsonToObject(AJsonString); 74 | end; 75 | 76 | end. 77 | -------------------------------------------------------------------------------- /dto/instance/__history/RespConnectionState.pas.~2~: -------------------------------------------------------------------------------- 1 | unit RespConnectionState; 2 | 3 | interface 4 | uses 5 | System.SysUtils, 6 | Generics.Collections, 7 | REST.Json.Types, 8 | Rest.Json; 9 | 10 | type 11 | 12 | TInstance = class 13 | private 14 | FInstanceName: string; 15 | FState : string; 16 | public 17 | property instanceName : string read FInstanceName write FInstanceName; 18 | property state : string read FState write FState; 19 | 20 | function ToJsonString: string; 21 | class function FromJsonString(const AJsonString: string): TInstance; 22 | end; 23 | 24 | TRespConnectionState = class 25 | private 26 | FInstance: TInstance; 27 | public 28 | constructor Create; 29 | destructor Destroy; override; 30 | 31 | property instance : TInstance read FInstance write FInstance; 32 | 33 | function ToJsonString: string; 34 | class function FromJsonString(const AJsonString: string): TRespConnectionState; 35 | end; 36 | 37 | implementation 38 | 39 | {TInstance} 40 | function TInstance.ToJsonString: string; 41 | begin 42 | Result := TJson.ObjectToJsonString(self); 43 | end; 44 | 45 | class function TInstance.FromJsonString(const AJsonString: string): TInstance; 46 | begin 47 | Result := TJson.JsonToObject(AJsonString); 48 | end; 49 | 50 | {TRespConnectionState} 51 | constructor TRespConnectionState.Create; 52 | begin 53 | inherited; 54 | 55 | FInstance := TInstance.Create; 56 | end; 57 | 58 | destructor TRespConnectionState.Destroy; 59 | begin 60 | if Assigned(FInstance) then 61 | FreeAndNil(FInstance); 62 | 63 | inherited; 64 | end; 65 | 66 | function TRespConnectionState.ToJsonString: string; 67 | begin 68 | Result := TJson.ObjectToJsonString(self); 69 | end; 70 | 71 | class function TRespConnectionState.FromJsonString(const AJsonString: string): TRespConnectionState; 72 | begin 73 | Result := TJson.JsonToObject(AJsonString); 74 | end; 75 | 76 | end. 77 | 78 | -------------------------------------------------------------------------------- /dto/instance/__history/RespInstanceConnect.pas.~1~: -------------------------------------------------------------------------------- 1 | unit RespInstanceConnect; 2 | 3 | interface 4 | uses 5 | System.SysUtils, 6 | Generics.Collections, 7 | REST.Json.Types, 8 | Rest.Json; 9 | 10 | type 11 | 12 | TRespInstanceConnect = class 13 | private 14 | FBase64: string; 15 | FCode : string; 16 | FCount : Extended; 17 | public 18 | property base64 : string read FBase64 write FBase64; 19 | property code : string read FCode write FCode; 20 | property count : Extended read FCount write FCount; 21 | 22 | function ToJsonString: string; 23 | class function FromJsonString(const AJsonString: string): TRespInstanceConnect; 24 | end; 25 | 26 | implementation 27 | 28 | {TRespInstanceConnect} 29 | function TRespInstanceConnect.ToJsonString: string; 30 | begin 31 | Result := TJson.ObjectToJsonString(self); 32 | end; 33 | 34 | class function TRespInstanceConnect.FromJsonString(const AJsonString: string): TRespInstanceConnect; 35 | begin 36 | Result := TJson.JsonToObject(AJsonString); 37 | end; 38 | 39 | end. 40 | -------------------------------------------------------------------------------- /dto/instance/__history/RespfetchInstances.pas.~1~: -------------------------------------------------------------------------------- 1 | unit RespfetchInstances; 2 | 3 | interface 4 | uses 5 | System.SysUtils, 6 | Generics.Collections, 7 | REST.Json.Types, 8 | Rest.Json; 9 | 10 | type 11 | 12 | TIntegration = class 13 | private 14 | FToken : string; 15 | FWebhook_wa_business: string; 16 | public 17 | property token : string read FToken write FToken; 18 | property webhook_wa_business : string read FWebhook_wa_business write FWebhook_wa_business; 19 | 20 | function ToJsonString: string; 21 | class function FromJsonString(const AJsonString: string): TIntegration; 22 | end; 23 | 24 | TInstance = class 25 | private 26 | FApikey : string; 27 | FInstanceId : string; 28 | FInstanceName: string; 29 | FIntegration : TIntegration; 30 | FServerUrl : string; 31 | FStatus : string; 32 | public 33 | constructor Create; 34 | destructor Destroy; override; 35 | 36 | property apikey : string read FApikey write FApikey; 37 | property instanceId : string read FInstanceId write FInstanceId; 38 | property instanceName : string read FInstanceName write FInstanceName; 39 | property integration : TIntegration read FIntegration write FIntegration; 40 | property serverUrl : string read FServerUrl write FServerUrl; 41 | property status : string read FStatus write FStatus; 42 | 43 | function ToJsonString: string; 44 | class function FromJsonString(const AJsonString: string): TInstance; 45 | end; 46 | 47 | TRespfetchInstances = class 48 | private 49 | FInstance: TInstance; 50 | public 51 | constructor Create; 52 | destructor Destroy; override; 53 | 54 | property instance : TInstance read FInstance write FInstance; 55 | 56 | function ToJsonString: string; 57 | class function FromJsonString(const AJsonString: string): TRespfetchInstances; 58 | end; 59 | 60 | implementation 61 | 62 | {TIntegration} 63 | function TIntegration.ToJsonString: string; 64 | begin 65 | Result := TJson.ObjectToJsonString(self); 66 | end; 67 | 68 | class function TIntegration.FromJsonString(const AJsonString: string): TIntegration; 69 | begin 70 | Result := TJson.JsonToObject(AJsonString); 71 | end; 72 | 73 | {TInstance} 74 | constructor TInstance.Create; 75 | begin 76 | inherited; 77 | 78 | FIntegration := TIntegration.Create; 79 | end; 80 | 81 | destructor TInstance.Destroy; 82 | begin 83 | if Assigned(FIntegration) then 84 | FreeAndNil(FIntegration); 85 | 86 | inherited; 87 | end; 88 | 89 | function TInstance.ToJsonString: string; 90 | begin 91 | Result := TJson.ObjectToJsonString(self); 92 | end; 93 | 94 | class function TInstance.FromJsonString(const AJsonString: string): TInstance; 95 | begin 96 | Result := TJson.JsonToObject(AJsonString); 97 | end; 98 | 99 | {TRespfetchInstances} 100 | constructor TRespfetchInstances.Create; 101 | begin 102 | inherited; 103 | 104 | FInstance := TInstance.Create; 105 | end; 106 | 107 | destructor TRespfetchInstances.Destroy; 108 | begin 109 | if Assigned(FInstance) then 110 | FreeAndNil(FInstance); 111 | 112 | inherited; 113 | end; 114 | 115 | function TRespfetchInstances.ToJsonString: string; 116 | begin 117 | Result := TJson.ObjectToJsonString(self); 118 | end; 119 | 120 | class function TRespfetchInstances.FromJsonString(const AJsonString: string): TRespfetchInstances; 121 | begin 122 | Result := TJson.JsonToObject(AJsonString); 123 | end; 124 | 125 | end. 126 | -------------------------------------------------------------------------------- /dto/instance/__history/fetchInstances.pas.~1~: -------------------------------------------------------------------------------- 1 | unit fetchInstances; 2 | 3 | interface 4 | uses 5 | RespfetchInstances, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TFetchInstances = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | 19 | public 20 | property instanceName : string read FInstanceName write FInstanceName; 21 | property qrcode : Boolean read FQrcode write FQrcode; 22 | property token : string read FToken write FToken; 23 | 24 | function ToJsonString: string; 25 | class function FromJsonString(const AJsonString: string): TFetchInstances; 26 | function APIExec(BaseURL : string; Key : string; instancia : String): boolean; 27 | end; 28 | 29 | implementation 30 | uses 31 | System.Classes, 32 | System.NetEncoding, 33 | System.NetConsts, 34 | System.Net.URLClient, 35 | System.Net.HttpClient, 36 | System.Net.HttpClientComponent; 37 | 38 | {TFetchInstances} 39 | function TFetchInstances.ToJsonString: string; 40 | begin 41 | Result := TJson.ObjectToJsonString(self); 42 | end; 43 | 44 | class function TFetchInstances.FromJsonString(const AJsonString: string): TFetchInstances; 45 | begin 46 | Result := TJson.JsonToObject(AJsonString); 47 | end; 48 | 49 | function TFetchInstances.APIExec(BaseURL : string; Key : string; instancia : String): boolean; 50 | var 51 | HttpClient : THttpClient; 52 | LResponse : IHttpResponse; 53 | RequestBody : TStringStream; 54 | xURL_EXECUTE : string; 55 | json : String; 56 | begin 57 | xURL_EXECUTE := BaseURL + '/instance/fetchInstances'; 58 | HttpClient := THTTPClient.Create; 59 | HttpClient.ContentType := 'application/json'; 60 | 61 | try 62 | {Add Body} 63 | RequestBody := TStringStream.Create(''); 64 | 65 | LResponse := HttpClient.Get( xURL_EXECUTE, 66 | RequestBody, 67 | 68 | TNetHeaders.Create( 69 | {Add Headers} 70 | TNameValuePair.Create('apikey', Key), 71 | TNameValuePair.Create('instanceName', instancia))); 72 | 73 | 74 | Result := LResponse.StatusCode = 200; 75 | 76 | 77 | if not LResponse.StatusCode in [200,201] then 78 | raise Exception.Create( LResponse.ContentAsString ); 79 | except 80 | on E:Exception do 81 | begin 82 | Result := False; 83 | raise Exception.Create('Error Method TCreateInstance.APIExecute'+ sLineBreak + E.Message); 84 | end; 85 | end; 86 | end; 87 | 88 | end. 89 | -------------------------------------------------------------------------------- /dto/instance/__history/fetchInstances.pas.~2~: -------------------------------------------------------------------------------- 1 | unit fetchInstances; 2 | 3 | interface 4 | uses 5 | RespfetchInstances, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TFetchInstances = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | 19 | public 20 | property instanceName : string read FInstanceName write FInstanceName; 21 | property qrcode : Boolean read FQrcode write FQrcode; 22 | property token : string read FToken write FToken; 23 | 24 | function ToJsonString: string; 25 | class function FromJsonString(const AJsonString: string): TFetchInstances; 26 | function APIExec(BaseURL : string; Key : string; instancia : String): boolean; 27 | end; 28 | 29 | implementation 30 | uses 31 | System.Classes, 32 | System.NetEncoding, 33 | System.NetConsts, 34 | System.Net.URLClient, 35 | System.Net.HttpClient, 36 | System.Net.HttpClientComponent; 37 | 38 | {TFetchInstances} 39 | function TFetchInstances.ToJsonString: string; 40 | begin 41 | Result := TJson.ObjectToJsonString(self); 42 | end; 43 | 44 | class function TFetchInstances.FromJsonString(const AJsonString: string): TFetchInstances; 45 | begin 46 | Result := TJson.JsonToObject(AJsonString); 47 | end; 48 | 49 | function TFetchInstances.APIExec(BaseURL : string; Key : string; instancia : String): boolean; 50 | var 51 | HttpClient : THttpClient; 52 | LResponse : IHttpResponse; 53 | RequestBody : TStringStream; 54 | xURL_EXECUTE : string; 55 | json : String; 56 | begin 57 | xURL_EXECUTE := BaseURL + '/instance/fetchInstances'; 58 | HttpClient := THTTPClient.Create; 59 | HttpClient.ContentType := 'application/json'; 60 | try 61 | 62 | try 63 | {Add Body} 64 | RequestBody := TStringStream.Create(''); 65 | 66 | LResponse := HttpClient.Get( xURL_EXECUTE, 67 | RequestBody, 68 | 69 | TNetHeaders.Create( 70 | {Add Headers} 71 | TNameValuePair.Create('apikey', Key), 72 | TNameValuePair.Create('instanceName', instancia))); 73 | 74 | 75 | Result := LResponse.StatusCode = 200; 76 | 77 | 78 | if not LResponse.StatusCode in [200,201] then 79 | raise Exception.Create( LResponse.ContentAsString ); 80 | except 81 | on E:Exception do 82 | begin 83 | Result := False; 84 | raise Exception.Create('Error Method TCreateInstance.APIExecute'+ sLineBreak + E.Message); 85 | end; 86 | end; 87 | finally 88 | FreeAndNil(HttpClient); 89 | end; 90 | end; 91 | 92 | end. 93 | -------------------------------------------------------------------------------- /dto/instance/__history/fetchInstances.pas.~3~: -------------------------------------------------------------------------------- 1 | unit fetchInstances; 2 | 3 | interface 4 | uses 5 | RespfetchInstances, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TFetchInstances = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | 19 | public 20 | property instanceName : string read FInstanceName write FInstanceName; 21 | property qrcode : Boolean read FQrcode write FQrcode; 22 | property token : string read FToken write FToken; 23 | 24 | function ToJsonString: string; 25 | class function FromJsonString(const AJsonString: string): TFetchInstances; 26 | function APIExec(BaseURL : string; Key : string; instancia : String): boolean; 27 | end; 28 | 29 | implementation 30 | uses 31 | System.Classes, 32 | System.NetEncoding, 33 | System.NetConsts, 34 | System.Net.URLClient, 35 | System.Net.HttpClient, 36 | System.Net.HttpClientComponent; 37 | 38 | {TFetchInstances} 39 | function TFetchInstances.ToJsonString: string; 40 | begin 41 | Result := TJson.ObjectToJsonString(self); 42 | end; 43 | 44 | class function TFetchInstances.FromJsonString(const AJsonString: string): TFetchInstances; 45 | begin 46 | Result := TJson.JsonToObject(AJsonString); 47 | end; 48 | 49 | function TFetchInstances.APIExec(BaseURL : string; Key : string; instancia : String): boolean; 50 | var 51 | HttpClient : THttpClient; 52 | LResponse : IHttpResponse; 53 | RequestBody : TStringStream; 54 | xURL_EXECUTE : string; 55 | json : String; 56 | begin 57 | xURL_EXECUTE := BaseURL + '/instance/fetchInstances'; 58 | HttpClient := THTTPClient.Create; 59 | HttpClient.ContentType := 'application/json'; 60 | try 61 | 62 | try 63 | {Add Body} 64 | RequestBody := TStringStream.Create(''); 65 | 66 | LResponse := HttpClient.Get( xURL_EXECUTE, 67 | RequestBody, 68 | 69 | TNetHeaders.Create( 70 | {Add Headers} 71 | TNameValuePair.Create('apikey', Key), 72 | TNameValuePair.Create('instanceName', instancia))); 73 | 74 | 75 | Result := LResponse.StatusCode = 200; 76 | 77 | 78 | if not LResponse.StatusCode in [200,201] then 79 | raise Exception.Create( LResponse.ContentAsString ); 80 | except 81 | on E:Exception do 82 | begin 83 | Result := False; 84 | raise Exception.Create('Error Method TCreateInstance.APIExecute'+ sLineBreak + E.Message); 85 | end; 86 | end; 87 | finally 88 | FreeAndNil(HttpClient); 89 | FreeAndNil(RequestBody); 90 | end; 91 | end; 92 | 93 | end. 94 | -------------------------------------------------------------------------------- /dto/instance/fetchInstances.pas: -------------------------------------------------------------------------------- 1 | unit fetchInstances; 2 | 3 | interface 4 | uses 5 | RespfetchInstances, 6 | System.SysUtils, 7 | Generics.Collections, 8 | REST.Json.Types, 9 | Rest.Json; 10 | 11 | type 12 | 13 | TFetchInstances = class 14 | private 15 | FInstanceName: string; 16 | FQrcode : Boolean; 17 | FToken : string; 18 | 19 | public 20 | property instanceName : string read FInstanceName write FInstanceName; 21 | property qrcode : Boolean read FQrcode write FQrcode; 22 | property token : string read FToken write FToken; 23 | 24 | function ToJsonString: string; 25 | class function FromJsonString(const AJsonString: string): TFetchInstances; 26 | function APIExec(BaseURL : string; Key : string; instancia : String): boolean; 27 | end; 28 | 29 | implementation 30 | uses 31 | System.Classes, 32 | System.NetEncoding, 33 | System.NetConsts, 34 | System.Net.URLClient, 35 | System.Net.HttpClient, 36 | System.Net.HttpClientComponent; 37 | 38 | {TFetchInstances} 39 | function TFetchInstances.ToJsonString: string; 40 | begin 41 | Result := TJson.ObjectToJsonString(self); 42 | end; 43 | 44 | class function TFetchInstances.FromJsonString(const AJsonString: string): TFetchInstances; 45 | begin 46 | Result := TJson.JsonToObject(AJsonString); 47 | end; 48 | 49 | function TFetchInstances.APIExec(BaseURL : string; Key : string; instancia : String): boolean; 50 | var 51 | HttpClient : THttpClient; 52 | LResponse : IHttpResponse; 53 | RequestBody : TStringStream; 54 | xURL_EXECUTE : string; 55 | json : String; 56 | begin 57 | xURL_EXECUTE := BaseURL + '/instance/fetchInstances'; 58 | HttpClient := THTTPClient.Create; 59 | HttpClient.ContentType := 'application/json'; 60 | try 61 | 62 | try 63 | {Add Body} 64 | RequestBody := TStringStream.Create(''); 65 | 66 | LResponse := HttpClient.Get( xURL_EXECUTE, 67 | RequestBody, 68 | 69 | TNetHeaders.Create( 70 | {Add Headers} 71 | TNameValuePair.Create('apikey', Key), 72 | TNameValuePair.Create('instanceName', instancia))); 73 | 74 | 75 | Result := LResponse.StatusCode = 200; 76 | 77 | if Length(LResponse.ContentAsString) <= 3 then 78 | Result := False; 79 | 80 | 81 | if not LResponse.StatusCode in [200,201] then 82 | raise Exception.Create( LResponse.ContentAsString ); 83 | except 84 | on E:Exception do 85 | begin 86 | Result := False; 87 | raise Exception.Create('Error Method TCreateInstance.APIExecute'+ sLineBreak + E.Message); 88 | end; 89 | end; 90 | finally 91 | FreeAndNil(HttpClient); 92 | FreeAndNil(RequestBody); 93 | end; 94 | end; 95 | 96 | end. 97 | -------------------------------------------------------------------------------- /logotipo.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tiagopassarelladt/DTEvolutionAPI/7b4ea04ecc75fcb5f2fe01d5cc5b54f606601c11/logotipo.png --------------------------------------------------------------------------------