Uploading a file to http server

[Gimerly]

Hello all again. I have been doing research for the past 2 weeks into uploading a file and I just don't understand how to do it. I am using WinHttp and the idea is to click the upload button have the user select a file they wish to upload in a dialog menu and then upload it. I really dont understand how to do it and need some help. If anyone can help I would be very thankful 

[guinness]

What is the website? What code do you have? Have you looked at the well documented WinHttp documentation?

[JohnOne]

Two weeks you say!

You must have some code to show then.

[Gimerly]

Yep I do. Just got it working in fact (I know what you're thinking this kid is full of shit.) But as it turns out I wasn't putting a time stamp in my url (which dropbox needs)

here is the code if anyone else is looking for a way to send files to dropbox (Also sorry for wasting time JohnOne) 

expandcollapse popup

func upload()
Local $sDrive = "", $sDir = "", $sFilename = "", $sExtension = ""
local $time=currenttime()
local $Random = Random(0,32767,1)
$File = fileopendialog("Downloads", @scriptdir,  "All (*.*)" )
local $array = _PathSplit($File,$sDrive, $sDir, $sFilename, $sExtension)
Local $i = UBound($array) - 1
local $sFile = fileopen($File)
Local $sUrl = ("https://api-content.dropbox.com/1/files_put/dropbox"&"/"&$array[$i-1]&$array[$i]&'?oauth_consumer_key='&$App_Key&"&oauth_token="&$Oauth_access_token&"&oauth_signature="&$App_secret&"%26"&$Oauth_access_token_secret&"&oauth_timestamp="&$time&"&oauth_nonce="&$RANDOM)
message($sUrl)
Local $obj = ObjCreate("WinHttp.WinHttpRequest.5.1")
;message("here")
$obj.Open("PUT", $sURL, False)
If @error Then
   message("Couldnt open request")
else
   message("request opened")

$obj.SetRequestHeader("Content-Type", " application/x-www-form-urlencoded");
$obj.SetRequestHeader("Content-Length", StringLen($File))
if _FindNetwork() = "xavier" Then
   $obj.SetProxy(2, "number")
endif


$obj.Send($sFile)

$oReceived  = $obj.ResponseText
$oStatusCode = $obj.Status
If $obj.Status <> $HTTP_STATUS_OK Then
   local $FindError = FindError($oStatusCode)
   message($FindError)


else


endif
endif

endfunc

 

Edited May 27, 2014 by Gimerly

[guinness]

Why not look at trancexx's UDF called WinHttp?

[Gimerly]

I got it working, thanks for the reply. I just posted that so that if other people where having trouble uploading to dropbox they use that code as a template for their script. And if you look at the code I am using WinHttp()

Edited May 27, 2014 by Gimerly

[guinness]

WinHttp >> '?do=embed' frameborder='0' data-embedContent>>

[Gimerly]

Actually there is a problem with the code I just discovered. While it does upload "a" file it doesn't actually upload the file contents. for a text file it uploads the number of words and for an image it is corrupt. Can someone help me ?

expandcollapse popup

func upload()
trayseticon("C:\Program Files\AutoIt3\Icons\cute panda.ico", -1)
Local $sDrive = "", $sDir = "", $sFilename = "", $sExtension = ""
local $time=currenttime()
local $Random = Random(0,32767,1)
$File = fileopendialog("Pick something to upload", @desktopdir,  "All (*.*)" )
local $array = _PathSplit($File,$sDrive, $sDir, $sFilename, $sExtension) ; split the directory into drive, dir, filename and extension
Local $i = UBound($array) - 1
local $sFile = fileopen($File,0)
Local $sUrl = ("https://api-content.dropbox.com/1/files_put/dropbox"&"/"&$array[$i-1]&$array[$i]&'?oauth_consumer_key='&$App_Key&"&oauth_token="&$Oauth_access_token&"&oauth_signature="&$App_secret&"%26"&$Oauth_access_token_secret&"&oauth_timestamp="&$time&"&oauth_nonce="&$RANDOM)
;$array[$i-1] is the file name of the file the user wants to upload and $array[$i] is the extension
Local $obj = ObjCreate("WinHttp.WinHttpRequest.5.1")
;message("here")
$obj.Open("PUT", $sURL, False)
If @error Then
   _Toast_Set(2)
   _Toast_Show(@scriptdir & "/puffypanda.exe", "Error", "Unable to upload" & " " &$array[$i-1] & $array[$i], 2, true, true)
   _Toast_Hide(10)

else
  ; message("request opened")

   $obj.SetRequestHeader("Content-Type", " application/x-www-form-urlencoded"); dropbox needs the url to be encoded for security reasons
   $obj.SetRequestHeader("Content-Length", StringLen($File))
   if _FindNetwork() = "xavier" Then
      $obj.SetProxy(2, "proxy.school:3128")



   $obj.Send($sFile) ; send the file to uploaded

   $oReceived  = $obj.ResponseText
   $oStatusCode = $obj.Status
If $obj.Status <> $HTTP_STATUS_OK Then
      local $FindError = FindError($oStatusCode)
      message($FindError)
      _Toast_Set(2)
      _Toast_Show(@scriptdir & "/puffypanda.exe", "Error", "Unable to upload" & " " &$array[$i-1] & $array[$i], 2, true, true)
      _Toast_Hide(10)
      trayseticon("C:\Program Files\AutoIt3\Icons\panda.ico", -1)


else
   _log("uploaded" & " " &  $array[$i-1] & $array[$i])
   _Toast_Set(2)
   _Toast_Show(@scriptdir & "/puffypanda.exe", "Success", "You successfully uploaded" & " " & $array[$i-1] & $array[$i], 2, true, true)
   _Toast_Hide(10)
   trayseticon("C:\Program Files\AutoIt3\Icons\panda.ico", -1)

endif
endif
endif
FileClose($File)

endfunc

[Gimerly]

Never mind Just figured it out. Problem was me sending the size and reading of the file. For anyone wanting to upload to a dropbox account you can use this code:

expandcollapse popup

func upload()
trayseticon("C:\Program Files\AutoIt3\Icons\cute panda.ico", -1)
Local $sDrive = "", $sDir = "", $sFilename = "", $sExtension = ""
local $time=currenttime()
local $Random = Random(0,32767,1)
local $File = fileopendialog("Pick something to upload", @desktopdir,  "All (*.*)|Text files (*.txt)" )
;message($File)
local $array = _PathSplit($File,$sDrive, $sDir, $sFilename, $sExtension) ; get the file name and extension 
Local $i = UBound($array) - 1
local $sFile = fileopen($File,16)
Local $data = fileread($sFile)
local $size = @extended
FileClose($File)

Local $sUrl = ("https://api-content.dropbox.com/1/files_put/dropbox"&"/"&$array[$i-1]&$array[$i]&'?oauth_consumer_key='&$App_Key&"&oauth_token="&$Oauth_access_token&"&oauth_signature_method=PLAINTEXT&oauth_signature="&$App_secret&"%26"&$Oauth_access_token_secret&"&oauth_timestamp="&$time&"&oauth_nonce="&$RANDOM)

;$array[$i-1] is the file name of the file the user wants to upload and $array[$i] is the extension
Local $obj = ObjCreate("WinHttp.WinHttpRequest.5.1")

;message("here")
$obj.Open("PUT", $sURL, False)
If @error Then
   _Toast_Set(2)
   _Toast_Show(@scriptdir & "/puffypanda.exe", "Error", "unable to upload" & " " &$array[$i-1] & $array[$i], 2, true, true)
   _Toast_Hide(10)

else
  ; message("request opened")

   $obj.SetRequestHeader("User-Agent", "User-Agent=Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0")
   ;$obj.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
   $obj.SetRequestHeader("Content-Length", $size)
   if _FindNetwork() = "xavier" Then
      $obj.SetProxy(2, "number")
   endif

;   message($sFile)

   $obj.Send($data) ; send the file to uploaded

   $oReceived  = $obj.ResponseText
   $oStatusCode = $obj.Status
If $obj.Status <> $HTTP_STATUS_OK Then
      local $FindError = FindError($oStatusCode)
      message($oReceived)
      msgbox(0 , "Error", "unable to uploaded" & " " & $array[$i-1] & $array[$i])
      trayseticon("C:\Program Files\AutoIt3\Icons\panda.ico", -1)


else
  msgbox(0 , "success", "uploaded" & " " & $array[$i-1] & $array[$i])
  
   trayseticon("C:\Program Files\AutoIt3\Icons\panda.ico", -1)

endif
endif



endfunc

Edited May 31, 2014 by Gimerly

[Deye]

I'm replying here since I cannot find any other topics that can help demonstrate more on the Dropbox authenticator:

I tried Gimerly's  Dropbox authenticator to get the $Oauth_access_token that returns in this syntax 
"oauth_token_secret=xxxxxxxx&oauth_token=xxxxxxxx&uid=xxxxxxxx"

using it with the upload() function from the post above, doesn't seem to work for me.
maybe someone who tried this or is more experienced with this code can help shed a light.

TIA

EDIT:
this page for Node.js seems to have covered most of the needed procedures
https://www.built.io/blog/2014/08/file-uploading-in-dropbox-using-node-js/
 

Edited July 1, 2016 by Deye

[Sarah2016]

   if _FindNetwork() = "xavier" Then
      $obj.SetProxy(2, "number")
   endif

 

I get error for the above code. Any Help?

& what does this code exactly do?

Edited December 7, 2016 by Sarah2016