• Sign in
• Register

Defect #24929

Updated by Go MAEDA over 7 years ago

Hi: 

 I follow the REST API document to upload a excel file by VBA 

 When I run the post upload.xml and then login the redmine server to see that the file has existed, but it's name is bizarre. 

 Then I use the token to run issues.xml, It's failed. 

 My code is below: 
 <pre> 
 

 Private Sub uploadButton1_Click() 
    
     respText = pvPostFile("http://redmine.group.cn/redmine/uploads.xml?key=bb07446d032bba5505516cca7c115c89e7c5c25b", "d:\128393.csv", "application/octet-stream;", False) 
     ThisWorkbook.Sheets(1).Cells(10, 1) = respText 
     MsgBox respText 
    
 End Sub 

 Private Function pvPostFile(sUrl As String, sFileName As String, sContextType As String, Optional ByVal bAsync As Boolean) As String 
     Const STR_BOUNDARY    As String = "3fbd04f5-b1ed-4060-99b9-fca7ff59c113" 
     Dim nFile             As Integer 
     Dim baBuffer()        As Byte 
     Dim sPostData         As String 

     '--- read file 
     nFile = FreeFile 
     Open sFileName For Binary Access Read As nFile 
     If LOF(nFile) > 0 Then 
         ReDim baBuffer(0 To LOF(nFile) - 1) As Byte 
         Get nFile, , baBuffer 
         sPostData = StrConv(baBuffer, vbUnicode) 
     End If 
     Close nFile 


     '--- post 
     With CreateObject("Microsoft.XMLHTTP") 
         .Open "POST", sUrl, bAsync 
         .setRequestHeader "Content-Type", sContextType  
         .send pvToByteArray(sPostData) 
         If Not bAsync Then 
             pvPostFile = .Status & .responseText 
         End If 
     End With 
 End Function 

 Private Function pvToByteArray(sText As String) As Byte() 
     pvToByteArray = StrConv(sText, vbFromUnicode) 
 End Function 


 Private Sub issueButton_Click() 
    
     respText = pvPostFile("http://redmine.group.cn/redmine/issues.xml?key=bb07446d032bba5505516cca7c115c89e7c5c25b", "d:\issues.xml", "application/xml;", False) 

     ThisWorkbook.Sheets(1).Cells(11, 1) = respText 

     MsgBox respText 
 End Sub 
 </pre> 

 


 d:\issues.xml content like below: 
 <pre> 
 <?xml version="1.0" encoding="UTF-8"?> 
 <issue> 
   <project_id>70711</project_id> 
   <subject>Creating an issue with a uploaded file</subject> 
   <uploads type="array"> 
     <upload> 
       <token>80906.d90224c27d502787136ee83866dfc71e</token> 
       <filename>128393.csv</filename> 
       <description>128393.csv</description> 
       <content_type>image/png</content_type> 
     </upload> 
   </uploads> 
 </issue> 
 </pre>

Back