| | |
|---|
| | | Quintiq file version 2.0 |
|---|
| | | #parent: #root |
|---|
| | | StaticMethod CallToken () as String |
|---|
| | | StaticMethod CallToken ( |
|---|
| | | String secret |
|---|
| | | ) as String |
|---|
| | | { |
|---|
| | | TextBody: |
|---|
| | | [* |
|---|
| | |
|---|
| | | address := Translations::InterfaceDataset_Address(); |
|---|
| | | httpinterface := HTTPInterface::Create( address,80); |
|---|
| | | |
|---|
| | | httpinterface.URL( Translations::InterfaceDataset_Token_URL() ); |
|---|
| | | httpinterface.URL( Translations::InterfaceDataset_Token_URL() + secret ); |
|---|
| | | httpinterface.MediaType( Translations::InterfaceDataset_ContentType() ); |
|---|
| | | httpinterface.PostMethod( false ); |
|---|
| | | httpinterface.Call(); |
|---|
| | | result := httpinterface.Result(); |
|---|
| | | |
|---|
| | | resultJson := JSON::Parse( result ); |
|---|
| | | token := resultJson.Get( "access_token" ).AsString(); |
|---|
| | | token := resultJson.Get( "access_token" ).GetString(); |
|---|
| | | |
|---|
| | | return token; |
|---|
| | | *] |
|---|
