[AccessD] A2003: POST a set of params to a Web Resource

[Darren - Active Billing]

Hi Stuart,

Sorry to harass - Just wondering if I could chase you on this one below - Many thanks in advance

Darren. 
 


On 13/7/19, 3:57 am, "AccessD on behalf of Darren - Active Billing" <accessd-bounces at databaseadvisors.com on behalf of darren at activebilling.com.au> wrote:

    Stuart,
    
    Thank you so much for replying. Sadly... no joy.
    
    Also - realise I have no clue what I am doing here. So I may have stuffed something.
    
    I get an error on the line "myXMLHTTP.send strPostData" 
    
    	Error = "Run-time error '-2146697211 (800c0005)': "The System Cannot Locate the resource specified"
    
    All I have done since getting your cool code below is, reference MSXML6 and Place my URL in the line you had at:
    
    	myXMLHTTP.Open "POST", "http://www.example.com/addtask.php", False
    
    with
    
    	myXMLHTTP.Open "POST", "https://hooks.workast.app/Do7DOEFPZDzAS20cvtt6E", False
    
    Do you have any suggestions?
    
    Many thanks in advance.
     
    Darren. 
     
    ---------------------------------------------------------------------------
    
    On 12/7/19, 12:56 pm, "AccessD on behalf of Stuart McLachlan" <accessd-bounces at databaseadvisors.com on behalf of stuart at lexacorp.com.pg> wrote:
    
        ---- Code HTTP POST-------------
        
        Option Compare Database
        Option Explicit
        
        Function GetDBDump()
        'Requires a reference to Microsoft XML 2.0 or greater
        'I've use Microsoft XML 6.0 in Office 10.
        
        Dim myXMLHTTP As XMLHTTP60
        Set myXMLHTTP = New XMLHTTP60
        Dim strResult As String
        Dim strPostData as String
        strPostData = URLEncode("text=This is  theTask Name for Task No: 4&description=This is 
        the Description for Task No: 4&dueDate:'2019-10-07'")
        myXMLHTTP.Open "POST", _
            "http://www.example.com/addtask.php", False
        myXMLHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows 
        NT 5.0)"
        myXMLHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
        myXMLHTTP.send strPostData 
        strResult = myXMLHTTP.responsetext
        debug.print strResult
        Set myXMLHTTP = Nothing
        End Function
        
        
        --------------END HTTP POST -------------------------------------
        
        -------------URL ENCODE/DECODE ---------------------------------
        
        Public Function URLEncode(StringToEncode As String, Optional _
           UsePlusRatherThanHexForSpace As Boolean = False) As String
        
        Dim TempAns As String
        Dim CurChr As Integer
        CurChr = 1
        Do Until CurChr - 1 = Len(StringToEncode)
          Select Case Asc(Mid(StringToEncode, CurChr, 1))
            Case 48 To 57, 65 To 90, 97 To 122
              TempAns = TempAns & Mid(StringToEncode, CurChr, 1)
            Case 32
              If UsePlusRatherThanHexForSpace = True Then
                TempAns = TempAns & "+"
              Else
                TempAns = TempAns & "%" & Hex(32)
              End If
           Case Else
                 TempAns = TempAns & "%" & _
                      Format(Hex(Asc(Mid(StringToEncode, _
                      CurChr, 1))), "00")
        End Select
        
          CurChr = CurChr + 1
        Loop
        
        URLEncode = TempAns
        End Function
        
        
        Public Function URLDecode(StringToDecode As String) As String
        
        Dim TempAns As String
        Dim CurChr As Integer
        
        CurChr = 1
        
        Do Until CurChr - 1 = Len(StringToDecode)
          Select Case Mid(StringToDecode, CurChr, 1)
            Case "+"
              TempAns = TempAns & " "
            Case "%"
              TempAns = TempAns & Chr(Val("&h" & _
                 Mid(StringToDecode, CurChr + 1, 2)))
               CurChr = CurChr + 2
            Case Else
              TempAns = TempAns & Mid(StringToDecode, CurChr, 1)
          End Select
        
        CurChr = CurChr + 1
        Loop
        
        URLDecode = TempAns
        End Function
        
        
    
    
    
    -- 
    AccessD mailing list
    AccessD at databaseadvisors.com
    http://databaseadvisors.com/mailman/listinfo/accessd
    Website: http://www.databaseadvisors.com