Mac Excel VBA - Problem doing http post via shell

[charlieopp]

1. Hi all,
   
   I'm trying to execute an HTTP post on Mac Excel via VBA. I found some code on SO which mostly works but the treatment of the keyword parameters does not work. See code below. See test execution of code further below where I'm posting to an echo site; debug.print shows the command properly constructed. And the same command from the command shell works properly at bottom.
   
   Any ideas?
   
   Thanks,
   Charlie
   
   
   Option Explicit
   
2. 
   
3. ' execShell() function courtesy of Robert Knight via StackOverflow
   
4. ' osx - VBA Shell function in Office 2011 for Mac - Stack Overflow
   
5. 
   
6. Private Declare Function popen Lib "libc.dylib" (ByVal command As String, ByVal mode As String) As Long
   
7. Private Declare Function pclose Lib "libc.dylib" (ByVal file As Long) As Long
   
8. Private Declare Function fread Lib "libc.dylib" (ByVal outStr As String, ByVal size As Long, ByVal items As Long, ByVal stream As Long) As Long
   
9. Private Declare Function feof Lib "libc.dylib" (ByVal file As Long) As Long
   
10. 
    
11. Function execShell(command As String, Optional ByRef exitCode As Long) As String
    
12. Dim file As Long
    
13. Debug.Print "command: " & command
    
14. file = popen(command, "r")
    
15. 
    
16. If file = 0 Then
    
17. Exit Function
    
18. End If
    
19. 
    
20. While feof(file) = 0
    
21. Dim chunk As String
    
22. Dim read As Long
    
23. chunk = Space(50)
    
24. read = fread(chunk, 1, Len(chunk) - 1, file)
    
25. If read > 0 Then
    
26. chunk = Left$(chunk, read)
    
27. execShell = execShell & chunk
    
28. End If
    
29. Wend
    
30. 
    
31. exitCode = pclose(file)
    
32. End Function
    
33. 
    
34. Sub HTTPpost()
    
35. 
    
36. Dim sCmd As String
    
37. Dim sResult As String
    
38. Dim lExitCode As Long
    
39. 
    
40. sCmd = "curl " & _
    
41. "-H " & Chr(34) & "content_type:text/plain" & Chr(34) & _
    
42. " -d " & Chr(34) & "some data" & Chr(34) & _
    
43. " " & "http://httpbin.org/post"
    
44. 
    
45. sResult = execShell(sCmd, lExitCode)
    
46. 
    
47. ' ToDo check lExitCode
    
48. Debug.Print sResult
    
49. 
    
50. End Sub
    
51. 
    
52. 
    
53. 
    
54. ----------------------
    
55. FROM IMMEDIATE WINDOW
    
56. 
    
57. call httppost
    
58. command: curl -H "content_type:text/plain" -d "some data" http://httpbin.org/post
    
59. {
    
60. "args": {},
    
61. "data": "",
    
62. "files": {},
    
63. "form": {
    
64. "some data": ""
    
65. },
    
66. "headers": {
    
67. "Accept": "*/*",
    
68. "Content-Length": "9",
    
69. "Content-Type": "application/x-www-form-urlencoded",
    
70. "Host": "httpbin.org",
    
71. "User-Agent": "curl/7.37.1"
    
72. },
    
73. "json": null,
    
74. "origin": "50.0.134.125",
    
75. "url": "http://httpbin.org/post"
    
76. }
    
77. 
    
78. --------------
    
79. FROM SHELL
    
80. 
    
81. admins-MacBook-Pro:~ admin$ curl -H "content-type:text/plain" -d "test curl" http://httpbin.org/post
    
82. {
    
83. "args": {},
    
84. "data": "test curl",
    
85. "files": {},
    
86. "form": {},
    
87. "headers": {
    
88. "Accept": "*/*",
    
89. "Content-Length": "9",
    
90. "Content-Type": "text/plain",
    
91. "Host": "httpbin.org",
    
92. "User-Agent": "curl/7.37.1"
    
93. },
    
94. "json": null,
    
95. "origin": "50.0.134.125",
    
96. "url": "http://httpbin.org/post"
    
97. }

 

[charlieopp]

Re: Mac Excel VBA - Problem doing http post via shell - SOLVED

SOLVED: Had underscore in header field. Should be content-type:text/plain NOT content_type:text/plain