Skip to content

Refactorización de la librería, se anexan nuevos metodos de cancelaci… #8

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
JuanGamezSW merged 11 commits into from
Nov 5, 2018
Merged

Refactorización de la librería, se anexan nuevos metodos de cancelaci… #8

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
11 commits
Select commit Hold shift + click to select a range
45def3a
Refactorización de la librería, se anexan nuevos metodos de cancelaci…
ecs515 Oct 2, 2018
63efed6
Delete Authentication.pas.~82~
ecs515 Oct 2, 2018
2cdad8d
Delete Authentication.pas.~83~
ecs515 Oct 2, 2018
295a53b
Cambios señalados por Hermes
ecs515 Oct 2, 2018
5ec7c95
Merge branch 'feature/v0.0.4.1' of https://github.com/lunasoft/sw-sdk…
ecs515 Oct 2, 2018
06a1df8
Delete IssueJsonRequest.pas.~1~
ecs515 Oct 2, 2018
1a12c71
Eliminación archivos innecesarios
ecs515 Oct 2, 2018
622d5b2
Merge branch 'feature/v0.0.4.1' of https://github.com/lunasoft/sw-sdk…
ecs515 Oct 2, 2018
4c3831a
Refactorización, se separan las consultas de pendientes/relacionados/…
ecs515 Oct 2, 2018
64eaf0f
Se completa ejemplo. Así mismo se añade clase para Account Balance.
JuanGamezSW Oct 29, 2018
d659f9b
Se actualiza documentación y ejemplos de consumo.
JuanGamezSW Nov 5, 2018
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
243 changes: 1 addition & 242 deletions .gitignore
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,243 +1,2 @@
## Ignore Visual Studio temporary files, build results, and
## files generated by popular Visual Studio add-ons.

# User-specific files
*.suo
*.user
*.userosscache
*.sln.docstates

# User-specific files (MonoDevelop/Xamarin Studio)
*.userprefs

# Build results
[Dd]ebug/
[Dd]ebugPublic/
[Rr]elease/
[Rr]eleases/
[Xx]64/
[Xx]86/
[Bb]uild/
bld/
[Bb]in/
[Oo]bj/
__history/

# Visual Studio 2015 cache/options directory
.vs/
# Uncomment if you have tasks that create the project's static files in wwwroot
#wwwroot/

# MSTest test Results
[Tt]est[Rr]esult*/
[Bb]uild[Ll]og.*

# NUNIT
*.VisualState.xml
TestResult.xml

# Build Results of an ATL Project
[Dd]ebugPS/
[Rr]eleasePS/
dlldata.c

# DNX
project.lock.json
artifacts/

*_i.c
*_p.c
*_i.h
*.ilk
*.meta
*.obj
*.pch
*.pdb
*.pgc
*.pgd
*.rsp
*.sbr
*.tlb
*.tli
*.tlh
*.tmp
*.tmp_proj
*.log
*.vspscc
*.vssscc
.builds
*.pidb
*.svclog
*.scc

# Chutzpah Test files
_Chutzpah*

# Visual C++ cache files
ipch/
*.aps
*.ncb
*.opendb
*.opensdf
*.sdf
*.cachefile
*.VC.db

# Visual Studio profiler
*.psess
*.vsp
*.vspx
*.sap

# TFS 2012 Local Workspace
$tf/

# Guidance Automation Toolkit
*.gpState

# ReSharper is a .NET coding add-in
_ReSharper*/
*.[Rr]e[Ss]harper
*.DotSettings.user

# JustCode is a .NET coding add-in
.JustCode

# TeamCity is a build add-in
_TeamCity*

# DotCover is a Code Coverage Tool
*.dotCover

# NCrunch
_NCrunch_*
.*crunch*.local.xml
nCrunchTemp_*

# MightyMoose
*.mm.*
AutoTest.Net/

# Web workbench (sass)
.sass-cache/

# Installshield output folder
[Ee]xpress/

# DocProject is a documentation generator add-in
DocProject/buildhelp/
DocProject/Help/*.HxT
DocProject/Help/*.HxC
DocProject/Help/*.hhc
DocProject/Help/*.hhk
DocProject/Help/*.hhp
DocProject/Help/Html2
DocProject/Help/html

# Click-Once directory
publish/

# Publish Web Output
*.[Pp]ublish.xml
*.azurePubxml

# TODO: Un-comment the next line if you do not want to checkin
# your web deploy settings because they may include unencrypted
# passwords
#*.pubxml
*.publishproj

# NuGet Packages
*.nupkg
# The packages folder can be ignored because of Package Restore
**/packages/*
# except build/, which is used as an MSBuild target.
!**/packages/build/
# Uncomment if necessary however generally it will be regenerated when needed
#!**/packages/repositories.config
# NuGet v3's project.json files produces more ignoreable files
*.nuget.props
*.nuget.targets

# Microsoft Azure Build Output
csx/
*.build.csdef

# Microsoft Azure Emulator
ecf/
rcf/

# Windows Store app package directory
AppPackages/
BundleArtifacts/

# Visual Studio cache files
# files ending in .cache can be ignored
*.[Cc]ache
# but keep track of directories ending in .cache
!*.[Cc]ache/

# Others
ClientBin/
[Ss]tyle[Cc]op.*
~$*
*~
*.dbmdl
*.dbproj.schemaview
*.pfx
*.publishsettings
node_modules/
orleans.codegen.cs

# RIA/Silverlight projects
Generated_Code/

# Backup & report files from converting an old project file
# to a newer Visual Studio version. Backup files are not needed,
# because we have git ;-)
_UpgradeReport_Files/
Backup*/
UpgradeLog*.XML
UpgradeLog*.htm

# SQL Server files
*.mdf
*.ldf

# Business Intelligence projects
*.rdl.data
*.bim.layout
*.bim_*.settings

# Microsoft Fakes
FakesAssemblies/

# GhostDoc plugin setting file
*.GhostDoc.xml

# Node.js Tools for Visual Studio
.ntvs_analysis.dat

# Visual Studio 6 build log
*.plg

# Visual Studio 6 workspace options file
*.opt

# Visual Studio LightSwitch build output
**/*.HTMLClient/GeneratedArtifacts
**/*.DesktopClient/GeneratedArtifacts
**/*.DesktopClient/ModelManifest.xml
**/*.Server/GeneratedArtifacts
**/*.Server/ModelManifest.xml
_Pvt_Extensions

# LightSwitch generated files
GeneratedArtifacts/
ModelManifest.xml

# Paket dependency manager
.paket/paket.exe

# FAKE - F# Make
.fake/
Win32/
44 changes: 44 additions & 0 deletions AccountBalance/Balance.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,44 @@
unit Balance;

interface

uses
System.SysUtils,
System.Variants,
System.Classes,
System.JSON,
System.JSON.Builders,
System.JSON.Writers,
System.JSON.Readers,
System.JSON.BSON,
IdHTTP, IdGlobal,
IdCoder,
IdCoder3to4,
IdCoderMIME,
IdMultipartFormData,
IdGlobalProtocols,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
IPPeerClient,
Vcl.StdCtrls,
REST.Client,
Data.Bind.Components,
Data.Bind.ObjectScope,
REST.Types,
Datasnap.DSClientRest,
Vcl.ComCtrls,
BalanceRequest,
BalanceResponse;

function AccountBalance(URL, Token: String): TBalanceResponse;

implementation

function AccountBalance(URL, Token: String): TBalanceResponse;
begin
Result := TBalanceResponse.FromJsonString
((GetBalance(URL, Token)));
end;

end.
71 changes: 71 additions & 0 deletions AccountBalance/BalanceRequest.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,71 @@
unit BalanceRequest;

interface

uses
System.SysUtils,
System.Variants,
System.Classes,
Vcl.Graphics,
StrUtils,
System.JSON,
System.JSON.Builders,
System.JSON.Writers,
System.JSON.Readers,
System.JSON.BSON,
IdHTTP,
IdGlobal,
IdCoder,
IdCoder3to4,
IdCoderMIME,
IdMultipartFormData,
IdGlobalProtocols,
IPPeerClient,
REST.Client,
Data.Bind.Components,
Data.Bind.ObjectScope,
REST.Types,
Datasnap.DSClientRest;

function GetBalance(URL, Token: String): String;

implementation

function GetBalance(URL, Token: String): String;
var
HTTP: TIdHTTP;
RequestBody: TStream;
ResponseBody: string;
begin
HTTP := TIdHTTP.Create;
try
try
RequestBody := TStringStream.Create();
try
HTTP.Request.Accept := 'application/json';
HTTP.Request.ContentType := 'application/json';
HTTP.Request.CustomHeaders.FoldLines := false;
HTTP.Request.CustomHeaders.Add('Authorization:Bearer ' + Token);
url:= url+'/account/balance';
ResponseBody := HTTP.Get(URL);
Result := String(ResponseBody);
finally
RequestBody.Free;
end;
except
on E: EIdHTTPProtocolException do
begin
Result := E.ErrorMessage;
end;
on E: Exception do
begin
Result := E.Message;
end;
end;
finally
HTTP.Free;
end;
ReportMemoryLeaksOnShutdown := false;
end;

end.
Loading