New post
AllAccepted answers
Token Ibragimov · Jun 12, 2020

Yes, i have check connect using FileZillaConnect and connection is successful.

Status:    Connected to XXXXXXXX
Status:    Starting upload of C:\Registries\MonthlyReports\KARTEL\202006\08\50_8.06_8.06.xls
Status:    File transfer successful, transferred 6,065 bytes in 1 second
Status:    Retrieving directory listing of "/"...
Status:    Listing directory /
Status:    Directory listing of "/" successful

 
Token Ibragimov · Jun 12, 2020

Eduard thanks for the answer

Connect: ОШИБКА #7500: SSH Connect Ошибка '-2147014836': A connection attempt failed because the connected party did not properly respond after a period of time, or established connection failed because connected host has failed to respond.  [8007274C]: Unknown error [8007274c] at ..\..\shared\Utility\utlNetSocket.cpp:1105,0                                                                          

Auth: ОШИБКА #7500: SSH AuthenticateWithUsername Ошибка '-2146435071': An internal consistency check failed

[80100001]
SFTP: ОШИБКА #7500: SSH OpenSFTP Ошибка '-2146435071': An internal consistency check failed.                                                                  [80100001]
Exception: <UNDEFINED> 9 zuploadTest+15^pgw.task.UploadToFTP.1 sftp

The code bellow works, but still I can't put file to remote server.

#dim sftp As %Net.SSH.SFTP 
    set ssh = ##class(%Net.SSH.Session).%New()
    do ssh.Connect(host)
    do ssh.AuthenticateWithUsername(username,password)
    //open an SFTP session and get that returned by reference
    do ssh.OpenSFTP(.sftp)

    set dir="C:\Registries\MonthlyReports\KARTEL\202004\30\test1.txt"
    set remotePath="sftp://TEST@77.77.33.11/NEW.txt"

   Set sc=sftp.Put(dir,remotePath)

Exception: <UNDEFINED> 9 zuploadTest+34^pgw.task.UploadToFTP.1 sftp

zw sftp

sftp=<OBJECT REFERENCE>[14@%Net.SSH.Session]
+----------------- general information ---------------
|      oref value: 14
|      class name: %Net.SSH.Session
| reference count: 2
+----------------- attribute values ------------------
|            HostKey = ""
|          (Session) = "Session@91273700"

Token Ibragimov · Feb 22, 2019

Hello Eduard! Thank you for feedback.

In my case it doesn't work, the output: 

Set ^tk("object")=pObject
Set ^tk("access_token1")=pObject."access_token"
Set ^tk("access_token2")=pObject.in

the response:

^tk("respText")="{""access_token"":""4SDFDSFDSF-aSDASDASD"",""expires_in"":""3300"",""refresh_token"":"""",""scope"":""sms_send"",""token_type"":""Bearer""}"

^tk("access_token1")=""
^tk("access_token2")="" 

^tk("object")="9@%ZEN.proxyObject"

Token Ibragimov · Sep 13, 2018

Hello Eduard!

Now I'm getting error: 415 Unsupported Media Type.  In the code i set:

Do httpRequest.SetHeader("accept","text/xml")
Set httpRequest.ContentType="text/xml"   

HTTP/1.1 415 Unsupported Media Type
ACCESS-CONTROL-ALLOW-CREDENTIALS: false
ACCESS-CONTROL-ALLOW-METHODS: POST
ACCESS-CONTROL-ALLOW-ORIGIN: *
ACCESS-CONTROL-EXPOSE-HEADERS: APIm-Debug-Trans-Id, X-RateLimit-Limit, X-RateLimit-Remaining, X-RateLimit-Reset, X-Global-Transaction-ID
CONNECTION: Keep-Alive
CONTENT-ENCODING: gzip
CONTENT-TYPE: text/plain
DATE: Thu, 13 Sep 2018 13:55:03 GMT
TRANSFER-ENCODING: chunked
USER-AGENT: IBM-APIConnect/5.0
X-BACKSIDE-TRANSPORT: OK OK
X-GLOBAL-TRANSACTION-ID: 2956707581
 
Unsupported Media Type
str=<OBJECT REFERENCE>[19@%Stream.FileCharacterGzip]
+----------------- general information ---------------
|      oref value: 19
|      class name: %Stream.FileCharacterGzip
|           %%OID: $lb("C:\InterSystems\Ensemble2016\mgr\Temp\VqdL7hXdFahzDg.http","%Stream.FileCharacterGzip","")
| reference count: 3
+----------------- attribute values ------------------
|     (%Concurrency) = 1
|          %Location = ""  <Set>
|         (%LockRef) = ""
|          (%Locked) = 0
|              AtEnd = 0
|                BOM = ""
|         (CurrFile) = ""
|                 Id = "C:\InterSystems\Ensemble2016\mgr\Temp\VqdL7hXdFahzDg.http"  <Set>
|     LineTerminator = $c(13,10)  <Set>
|      (MakePermLoc) = 0
|             (Mode) = 1
|(NormalizedDirectory) = "C:\InterSystems\Ensemble2016\mgr\Temp\"
|(OidTranslateTable) = "RAW"
|         (ReadMode) = 0
|           ReadSize = 48
|      RemoveOnClose = 1
|        (StoreFile) = "VqdL7hXdFahzDg.http"
|  StreamFormatWrite = 1
|         (TempFile) = ""
|     TranslateTable = "RAW"  <Set>
|      UseVMSVersion = 0
|   (VariableRecord) = 0

Token Ibragimov · Sep 7, 2018

sc=1
0

resp=<OBJECT REFERENCE>[138@%Net.HttpResponse]
+----------------- general information ---------------
|      oref value: 138
|      class name: %Net.HttpResponse
| reference count: 3
+----------------- attribute values ------------------
|    ContentBoundary = ""
|        ContentInfo = ""
|      ContentLength = ""
|        ContentType = ""
|               Data = "139@%Stream.GlobalBinary"
|        HttpVersion = ""
|       ReasonPhrase = ""
|         StatusCode = ""
|         StatusLine = ""
 
 

Token Ibragimov · Sep 7, 2018 
Set sc = httpRequest.Post("/sample/", 1)

The output:

set sc=##class(Example.TEST).xmlRequest("891208300335","Ivan","Ivanov","Ivanovich","08.12.1989","ОПВ")
POST /sample/ HTTP/1.1
User-Agent: IBM-APIConnect/5.0
Host: 172.27.139.151
Accept-Encoding: gzip
Accept: text/xml
x-ibm-client-id: adsad-adsadsa-asdsad
x-ibm-client-secret: 13213213asdsadsadsad
Content-Length: 251
Content-Type: text/xml; charset=UTF-8
 
<CheckContractRequest><IIN>891208300335</IIN><FirstName>Ivan</FirstName>
<LastName>Ivanov</LastName><MiddleName>Ivanovich</MiddleName>
<BirthDate>08.12.1989</BirthDate><ContractType>ОПВ</ContractType></CheckContractRequest>0

Set sc = httpRequest.Post("/sample/", 2)
zw sc

output: sc=1