Added: _WinHttpSimpleFormFill_SetCallback function.

Author: dragana-r

WinHttp.au3

@@ -64,6 +64,7 @@ DllOpen("winhttp.dll") ; making sure reference count never reaches 0
 ;_WinHttpSetTimeouts
 ;_WinHttpSimpleBinaryConcat
 ;_WinHttpSimpleFormFill
+;_WinHttpSimpleFormFill_SetCallback
 ;_WinHttpSimpleReadData
 ;_WinHttpSimpleReadDataAsync
 ;_WinHttpSimpleRequest
@@ -1108,7 +1109,7 @@ EndFunc
 ;                  +If you want to upload using alternative way (to avoid certain PHP bug that could exist on server side) then prefix the file string with [["PHP#50338:"]] string.
 ;                  +For example: [[..."name:files[]", "PHP#50338:" & $sFile1 & "|" & $sFile2 ...]]
 ;                  +Muliple files are always separated with vertical line ASCII character when filling the form.
-; Related .......: _WinHttpConnect
+; Related .......: _WinHttpConnect, _WinHttpSimpleFormFill_SetCallback
 ;============================================================================================
 Func _WinHttpSimpleFormFill(ByRef $hInternet, $sActionPage = Default, $sFormId = Default, $sFldId1 = Default, $sDta1 = Default, $sFldId2 = Default, $sDta2 = Default, $sFldId3 = Default, $sDta3 = Default, $sFldId4 = Default, $sDta4 = Default, $sFldId5 = Default, $sDta5 = Default, $sFldId6 = Default, $sDta6 = Default, $sFldId7 = Default, $sDta7 = Default, $sFldId8 = Default, $sDta8 = Default, $sFldId9 = Default, $sDta9 = Default, $sFldId10 = Default, $sDta10 = Default, _
 		$sFldId11 = Default, $sDta11 = Default, $sFldId12 = Default, $sDta12 = Default, $sFldId13 = Default, $sDta13 = Default, $sFldId14 = Default, $sDta14 = Default, $sFldId15 = Default, $sDta15 = Default, $sFldId16 = Default, $sDta16 = Default, $sFldId17 = Default, $sDta17 = Default, $sFldId18 = Default, $sDta18 = Default, $sFldId19 = Default, $sDta19 = Default, $sFldId20 = Default, $sDta20 = Default, _
@@ -1554,6 +1555,31 @@ Func _WinHttpSimpleFormFill(ByRef $hInternet, $sActionPage = Default, $sFormId =
 	Return SetError(3, 0, "")
 EndFunc
 
+; #FUNCTION# ====================================================================================================================
+; Name...........: _WinHttpSimpleFormFill_SetCallback
+; Description ...: Sets user defined function as callback function for _WinHttpSimpleFormFill
+; Syntax.........: _WinHttpSimpleFormFill_SetCallback($vCallback [, $iNumChunks = 100 ])
+; Parameters ....: $vCallback - UDF's name
+;                  $iNumChunks - [optional] number of chunks to send during form submitting. Default is 100.
+; Return values .: Undefined.
+; Author ........: trancexx
+; Remarks .......: Unregistering is done by passing [[0]] as first argument.
+; Related .......: _WinHttpSimpleFormFill
+; ===============================================================================================================================
+Func _WinHttpSimpleFormFill_SetCallback($vCallback = Default, $iNumChunks = 100)
+	If $iNumChunks <= 0 Then $iNumChunks = 100
+	Local Static $vFunc = Default, $iParts = $iNumChunks
+	If $vCallback <> Default Then
+		$vFunc = $vCallback
+		$iParts = Ceiling($iNumChunks)
+	ElseIf $vCallback = 0 Then
+		$vFunc = Default
+		$iParts = 1
+	EndIf
+	Local $aOut[2] = [$vFunc, $iParts]
+	Return $aOut
+EndFunc
+
 ; #FUNCTION# ====================================================================================================================
 ; Name...........: _WinHttpSimpleReadData
 ; Description ...: Reads data from a request
@@ -2163,7 +2189,18 @@ Func __WinHttpFormSend($hInternet, $sMethod, $sAction, $fMultiPart, $sBoundary,
 	If $sAdditionalHeaders Then _WinHttpAddRequestHeaders($hRequest, $sAdditionalHeaders, BitOR($WINHTTP_ADDREQ_FLAG_REPLACE, $WINHTTP_ADDREQ_FLAG_ADD))
 	_WinHttpSetOption($hRequest, $WINHTTP_OPTION_DECOMPRESSION, $WINHTTP_DECOMPRESSION_FLAG_ALL)
 	_WinHttpSetOption($hRequest, $WINHTTP_OPTION_UNSAFE_HEADER_PARSING, 1)
-	_WinHttpSendRequest($hRequest, Default, $sAddData)
+	Local $aClbk = _WinHttpSimpleFormFill_SetCallback()
+	If $aClbk[0] <> Default Then
+		Local $iSize = StringLen($sAddData), $iChunk = Floor($iSize / $aClbk[1]), $iRest = $iSize - ($aClbk[1] - 1) * $iChunk, $iCurCh = $iChunk
+		_WinHttpSendRequest($hRequest, Default, Default, $iSize)
+		For $i = 1 To $aClbk[1]
+			If $i = $aClbk[1] Then $iCurCh = $iRest
+			_WinHttpWriteData($hRequest, StringMid($sAddData, 1 + $iChunk * ($i -1), $iCurCh))
+			Call($aClbk[0], Floor($i * 100 / $aClbk[1]))
+		Next
+	Else
+		_WinHttpSendRequest($hRequest, Default, $sAddData)
+	EndIf
 	_WinHttpReceiveResponse($hRequest)
 	__WinHttpSetCredentials($hRequest, "", $sAddData, $sCredName, $sCredPass)
 	Return $hRequest

WinHttp_Examples/_WinHttpSimpleFormFill_SetCallback.au3

@@ -0,0 +1,60 @@
+
+#include "WinHTTP.au3"
+
+$sAddress = "https://posttestserver.com/post.php?dir=WinHttp" ; the address of the target (https or http, makes no difference - handled automatically)
+
+; Select some file
+$sFileToUpload = FileOpenDialog("Select file to upload...", "", "All Files (*)")
+If Not $sFileToUpload Then Exit 5 ; check if the file is selected and exit if not
+
+$sForm = _
+		'<form action="' & $sAddress & '" method="post" enctype="multipart/form-data">' & _
+		' <input type="file" name="upload"/>' & _
+		'</form>'
+
+; Initialize and get session handle
+$hOpen = _WinHttpOpen()
+
+$hConnect = $sForm ; will pass form as string so this is for coding correctness because $hConnect goes in byref
+
+; Creates progress bar window
+ProgressOn("UPLOADING", $sFileToUpload, "0%")
+
+; Register callback function
+_WinHttpSimpleFormFill_SetCallback(UploadCallback)
+
+; Fill form
+$sHTML = _WinHttpSimpleFormFill($hConnect, $hOpen, _
+		Default, _
+		"name:upload", $sFileToUpload)
+; Collect error number
+$iErr = @error
+
+; Unregister callback function
+_WinHttpSimpleFormFill_SetCallback(0)
+
+; Kill progress bar window
+ProgressOff()
+
+; Close handles
+_WinHttpCloseHandle($hConnect)
+_WinHttpCloseHandle($hOpen)
+
+If $iErr Then
+	MsgBox(4096, "Error", "Error number = " & $iErr)
+Else
+	ConsoleWrite($sHTML & @CRLF)
+	MsgBox(4096, "Success", $sHTML)
+EndIf
+
+
+
+; Callback function. For example, update progress control
+Func UploadCallback($iPrecent)
+	If $iPrecent = 100 Then
+		ProgressSet(100, "Done", "Complete")
+		Sleep(800) ; give some time for the progress bar to fill-in completely
+	Else
+		ProgressSet($iPrecent, $iPrecent & "%")
+	EndIf
+EndFunc