Upload image to Google Images failed

[tmplinshi]

The curl code is very simple:
curl http://www.google.com/searchbyimage/upload -F "[email protected]"

Code I've tried:

Spoiler

Code: Select all

; Tested on AHK A32

ImagePath := "smile.gif"

FileRead, pack, *c %ImagePath%
FileGetSize, size, %ImagePath%
SplitPath, ImagePath, ImageFileName

Boundary := "b03f7ef85666"
CRLF := "`r`n"
DW := "UInt"
ptr := (A_PtrSize = "") ? DW : "Ptr"

; For AHK ANSI ONLY. To insert binary data into a string (such as multipart data).
VarSetCapacity( data, size + 500, 1 ) ; create a string of nonzero bytes longer than the binary data.

; Fill the multipart data with plain text, using the nonzero bytes as a placeholder for the binary data.
data := "------------------------------" Boundary CRLF
. "Content-Disposition: form-data; name=""encoded_image""; filename=""" . ImageFileName . """" CRLF
. "Content-Type: image/gif" CRLF CRLF
. SubStr( data, 1, size ) CRLF
. "------------------------------" Boundary "--" CRLF

; Calculate the offset at which the placeholder begins
offset := StrLen( data ) - size - StrLen( CRLF "------------------------------" Boundary "--" CRLF )

; Use the total size of the multipart data as the content length
headers := "Accept: */*`n"
. "Content-Length: " StrLen( data ) "`n"
. "Expect: 100-continue`n"
. "User-Agent: Opera/9.80 (Windows NT 5.1) Presto/2.12.388 Version/12.15`n"
. "Content-Type: multipart/form-data; boundary=------------------------------" Boundary

; Copy the binary data into the string, overwriting the placeholder bytes
DllCall( "RtlMoveMemory", Ptr, &data + offset, Ptr, &pack, DW, size )

url := "http://www.google.com/searchbyimage/upload"
HttpRequest(URL, InOutData := data, InOutHeader := headers, "+NO_AUTO_REDIRECT`n+Flag: INTERNET_FLAG_NO_COOKIES")
Run, % RegExReplace(InOutHeader, "^.*Location: ([^\r\n]+).*$", "$1")

/*
WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
WebRequest.Open("POST", url)
WebRequest.setRequestHeader("Content-Type"  , "multipart/form-data; boundary=------------------------------" Boundary)
WebRequest.setRequestHeader("Content-Length", StrLen(data))
WebRequest.Option(6) := False ; Disable auto redirect
WebRequest.Send(data)
Run, % WebRequest.GetResponseHeader("Location")
*/
Return

Edit: I got it working:

Code: Select all

; Upload image to Google Images
; (Tested on AHK A32)

#NoEnv
#Include <HTTPRequest> ; http://www.autohotkey.com/board/topic/67989-func-httprequest-for-web-apis-ahk-b-ahk-lunicodex64/

ImagePath := "smile.gif"

FileRead, pack, *c %ImagePath%
FileGetSize, size, %ImagePath%
SplitPath, ImagePath, ImageFileName

Boundary := "b03f7ef85666"
CRLF := "`r`n"
DW := "UInt"
ptr := (A_PtrSize = "") ? DW : "Ptr"

; For AHK ANSI ONLY. To insert binary data into a string (such as multipart data).
VarSetCapacity( data, size + 500, 1 ) ; create a string of nonzero bytes longer than the binary data.

; Fill the multipart data with plain text, using the nonzero bytes as a placeholder for the binary data.
data := "------------------------------" Boundary CRLF
. "Content-Disposition: form-data; name=""encoded_image""; filename=""" . ImageFileName . """" CRLF
. "Content-Type: image/gif" CRLF CRLF
. SubStr( data, 1, size ) CRLF
. "------------------------------" Boundary "--" CRLF

; Calculate the offset at which the placeholder begins
offset := StrLen( data ) - size - StrLen( CRLF "------------------------------" Boundary "--" CRLF )

; Use the total size of the multipart data as the content length
headers := "Accept: */*`n"
. "Content-Length: " StrLen( data ) "`n"
. "Expect: 100-continue`n"
. "User-Agent: Opera/9.80 (Windows NT 5.1) Presto/2.12.388 Version/12.15`n"
. "Content-Type: multipart/form-data; boundary=----------------------------" Boundary

; Copy the binary data into the string, overwriting the placeholder bytes
DllCall( "RtlMoveMemory", Ptr, &data + offset, Ptr, &pack, DW, size )

url := "http://www.google.com/searchbyimage/upload"
HttpRequest(URL, InOutData := data, InOutHeader := headers, "+NO_AUTO_REDIRECT`n+Flag: INTERNET_FLAG_NO_COOKIES")
Run, % RegExReplace(InOutHeader, "^.*Location: ([^\r\n]+).*$", "$1")
Return

But I still have two questions:

1. How to work with AHK Unicode?
2. How to work using WinHttp.WinHttpRequest.5.1? I've tried it, the binary data disappeared.

Thanks![/color]

[VxE]

It looks like google image search expects the image to be base-64 encoded (inside the multipart form). You can probably prepare the POST body as plain text.

[tmplinshi]

Thanks. Could you give me an example?

I've captured the packets using SmartSniff, they looks the same, see below images:

Spoiler

I even had compared their packets in hex format, the Boundary part is same.

[tmplinshi]

I also tried another website http://uploadpie.com/, failed again.
Code I've tried:

Spoiler

Code: Select all

; Tested on AHK A32

ImagePath := "smile.gif"

FileRead, pack, *c %ImagePath%
FileGetSize, size, %ImagePath%
SplitPath, ImagePath, ImageFileName

Boundary := "7de30d3a1506c0"
CRLF := "`r`n"
DW := "UInt"
ptr := (A_PtrSize = "") ? DW : "Ptr"

; For AHK ANSI ONLY. To insert binary data into a string (such as multipart data).
VarSetCapacity( data, size + 500, 1 ) ; create a string of nonzero bytes longer than the binary data.

; Fill the multipart data with plain text, using the nonzero bytes as a placeholder for the binary data.
data := "-----------------------------" Boundary CRLF
. "Content-Disposition: form-data; name=""MAX_FILE_SIZE""" CRLF CRLF
. "3145728" CRLF
. "-----------------------------" Boundary CRLF
. "Content-Disposition: form-data; name=""expire""" CRLF CRLF
. "1" CRLF
. "-----------------------------" Boundary CRLF
. "Content-Disposition: form-data; name=""upload""" CRLF CRLF
. "1" CRLF
. "-----------------------------" Boundary CRLF
. "Content-Disposition: form-data; name=""uploadedfile""; filename=""" . ImageFileName . """" CRLF
. "Content-Type: image/gif" CRLF CRLF
. SubStr( data, 1, size ) CRLF
. "-----------------------------" Boundary "--" CRLF

; Calculate the offset at which the placeholder begins
offset := StrLen( data ) - size - StrLen( CRLF "-----------------------------" Boundary "--" CRLF )

; Use the total size of the multipart data as the content length
headers := "Accept: application/x-shockwave-flash, image/gif, image/jpeg, image/pjpeg, application/xaml+xml, application/x-ms-xbap, application/x-ms-application, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*`n"
. "Content-Length: " StrLen( data ) "`n"
. "User-Agent: Opera/9.80 (Windows NT 5.1) Presto/2.12.388 Version/12.15`n"
. "Content-Type: multipart/form-data; boundary=-----------------------------" Boundary

; Copy the binary data into the string, overwriting the placeholder bytes
DllCall( "RtlMoveMemory", Ptr, &data + offset, Ptr, &pack, DW, size )

url := "http://uploadpie.com/"
HttpRequest(URL, InOutData := data, InOutHeader := headers, "+NO_AUTO_REDIRECT`n+Flag: INTERNET_FLAG_NO_COOKIES")

If RegExMatch(InOutData, "id=""uploaded"" value=""\K[^""]+", ImgUrl)
	Run, % ImgUrl
Else
	MsgBox, 48, Upload Fail, %InOutData%
Return

The cURL working code is:
curl http://uploadpie.com/ -F "[email protected]" -F "expire=1" -F "MAX_FILE_SIZE=3145728" -F "upload=1"

[tmplinshi]

Got it working! The dashes in Content-Type: should be two less than the dashes in the data.

For example in below packets, the red line has 28 characters, and the blue line has 30 characters.

POST /searchbyimage/upload HTTP/1.1
User-Agent: curl/7.31.0
Host: http://www.google.com
Accept: */*
Content-Length: 854
Expect: 100-continue
Content-Type: multipart/form-data; boundary=----------------------------ed0ce168cf80

------------------------------ed0ce168cf80
Content-Disposition: form-data; name="encoded_image"; filename="smile.gif"
Content-Type: image/gif

So the working code are:

Spoiler

Code: Select all

; Upload image to Google Images
; (Tested on AHK A32)

ImagePath := "smile.gif"

FileRead, pack, *c %ImagePath%
FileGetSize, size, %ImagePath%
SplitPath, ImagePath, ImageFileName

Boundary := "b03f7ef85666"
CRLF := "`r`n"
DW := "UInt"
ptr := (A_PtrSize = "") ? DW : "Ptr"

; For AHK ANSI ONLY. To insert binary data into a string (such as multipart data).
VarSetCapacity( data, size + 500, 1 ) ; create a string of nonzero bytes longer than the binary data.

; Fill the multipart data with plain text, using the nonzero bytes as a placeholder for the binary data.
data := "------------------------------" Boundary CRLF
. "Content-Disposition: form-data; name=""encoded_image""; filename=""" . ImageFileName . """" CRLF
. "Content-Type: image/gif" CRLF CRLF
. SubStr( data, 1, size ) CRLF
. "------------------------------" Boundary "--" CRLF

; Calculate the offset at which the placeholder begins
offset := StrLen( data ) - size - StrLen( CRLF "------------------------------" Boundary "--" CRLF )

; Use the total size of the multipart data as the content length
headers := "Accept: */*`n"
. "Content-Length: " StrLen( data ) "`n"
. "Expect: 100-continue`n"
. "User-Agent: Opera/9.80 (Windows NT 5.1) Presto/2.12.388 Version/12.15`n"
. "Content-Type: multipart/form-data; boundary=----------------------------" Boundary

; Copy the binary data into the string, overwriting the placeholder bytes
DllCall( "RtlMoveMemory", Ptr, &data + offset, Ptr, &pack, DW, size )

url := "http://www.google.com/searchbyimage/upload"
HttpRequest(URL, InOutData := data, InOutHeader := headers, "+NO_AUTO_REDIRECT`n+Flag: INTERNET_FLAG_NO_COOKIES")
Run, % RegExReplace(InOutHeader, "^.*Location: ([^\r\n]+).*$", "$1")
Return

Code: Select all

; Upload image to http://uploadpie.com
; (Tested on AHK A32)

ImagePath := "smile.gif"

FileRead, pack, *c %ImagePath%
FileGetSize, size, %ImagePath%
SplitPath, ImagePath, ImageFileName

Boundary := "7de30d3a1506c0"
CRLF := "`r`n"
DW := "UInt"
ptr := (A_PtrSize = "") ? DW : "Ptr"

; For AHK ANSI ONLY. To insert binary data into a string (such as multipart data).
VarSetCapacity( data, size + 500, 1 ) ; create a string of nonzero bytes longer than the binary data.

; Fill the multipart data with plain text, using the nonzero bytes as a placeholder for the binary data.
data := "-----------------------------" Boundary CRLF
. "Content-Disposition: form-data; name=""MAX_FILE_SIZE""" CRLF CRLF
. "3145728" CRLF
. "-----------------------------" Boundary CRLF
. "Content-Disposition: form-data; name=""expire""" CRLF CRLF
. "1" CRLF
. "-----------------------------" Boundary CRLF
. "Content-Disposition: form-data; name=""upload""" CRLF CRLF
. "1" CRLF
. "-----------------------------" Boundary CRLF
. "Content-Disposition: form-data; name=""uploadedfile""; filename=""" . ImageFileName . """" CRLF
. "Content-Type: image/gif" CRLF CRLF
. SubStr( data, 1, size ) CRLF
. "-----------------------------" Boundary "--" CRLF

; Calculate the offset at which the placeholder begins
offset := StrLen( data ) - size - StrLen( CRLF "-----------------------------" Boundary "--" CRLF )

; Use the total size of the multipart data as the content length
headers := "Accept: application/x-shockwave-flash, image/gif, image/jpeg, image/pjpeg, application/xaml+xml, application/x-ms-xbap, application/x-ms-application, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*`n"
. "Content-Length: " StrLen( data ) "`n"
. "User-Agent: Opera/9.80 (Windows NT 5.1) Presto/2.12.388 Version/12.15`n"
. "Content-Type: multipart/form-data; boundary=---------------------------" Boundary

; Copy the binary data into the string, overwriting the placeholder bytes
DllCall( "RtlMoveMemory", Ptr, &data + offset, Ptr, &pack, DW, size )

url := "http://uploadpie.com/"
HttpRequest(URL, InOutData := data, InOutHeader := headers, "+NO_AUTO_REDIRECT`n+Flag: INTERNET_FLAG_NO_COOKIES")

If RegExMatch(InOutData, "id=""uploaded"" value=""\K[^""]+", ImgUrl)
    Run, % ImgUrl
Else
    MsgBox, 48, Upload Fail, %InOutData%
Return

[tmplinshi]

But I still have two questions:

• How to work with AHK Unicode?
• How to work using WinHttp.WinHttpRequest.5.1? I've tried it, the binary data disappeared:

  Code: Select all

  WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
  WebRequest.Open("POST", url)
  WebRequest.setRequestHeader("Content-Type"  , "multipart/form-data; boundary=----------------------------" Boundary)
  WebRequest.setRequestHeader("Content-Length", StrLen(data))
  WebRequest.Option(6) := False ; Disable auto redirect
  WebRequest.Send(data)
  Run, % WebRequest.GetResponseHeader("Location")
  Return

  packets:
  Spoiler

  POST /searchbyimage/upload HTTP/1.1
  Content-Type: multipart/form-data; boundary=----------------------------b03f7ef85666
  Content-Length: 154
  Accept: */*
  User-Agent: Mozilla/4.0 (compatible; Win32; WinHttp.WinHttpRequest.5)
  Host: http://www.google.com
  Connection: Keep-Alive
  
  ------------------------------b03f7ef85666
  Content-Disposition: form-data; name="encoded_image"; filename="smile.gif"
  Content-Type: image/gif
  
  GIF89a.
  HTTP/1.1 302 Found
  Location: http://www.google.com/search?tbs=sbi:AM ... 9jiNO-YumR

[tmplinshi]

Can somebody help me? I don't know how to make changes, in order to run in Unicode AHK.
I also tried this example code by VxE, but the final posting data is empty:

Code: Select all

; This code doesn't work on both ANSI and Unicode. For the ANSI working code, please see the #1 post.
#NoEnv

package := "smile.gif"
FileRead pack, %package%
FileGetSize size, %package%
SplitPath package, file

Boundary := "b03f7ef85666"
CRLF := "`r`n"
DW := "UInt"
ptr := (A_PtrSize == "") ? DW : "Ptr"

; For AHK UNICODE or ANSI. To assemble a multipart payload with UTF-8 text and binary data
VarSetCapacity( data, size + 4096 ) ; Allocate enough space in a var for both the data and text

leadingtext := "------------------------------" Boundary CRLF
	. "Content-Disposition: form-data; name=""encoded_image""; filename=""" . file . """" CRLF
	. "Content-Type: image/gif" CRLF CRLF

; Use StrPut to both convert and insert the leading text component of the multipart data.
; Also, StrPut returns the offset at which the binary data should be inserted.
offset := StrPut( leadingtext, &data + 0, StrLen( leadingtext ), "UTF-8" )

; Copy the binary data into the variable at the offset
DllCall("RtlMoveMemory", Ptr, &data + offset, Ptr, &pack, DW, size )

; Once more, use StrPut to convert and insert text. This time it's the final boundary
size += offset + StrPut( CRLF "------------------------------" Boundary "--" CRLF
	                   , &data + offset + size
	                   , StrLen( CRLF "------------------------------" Boundary "--" CRLF)
	                   , "UTF-8" )

; Use the sum of the lengths of the parts as the total size of the POST data
headers := "User-Agent: Opera/9.80 (Windows NT 5.1) Presto/2.12.388 Version/12.15`n"
         . "Content-Type: multipart/form-data; boundary=----------------------------" Boundary

MsgBox % (A_IsUnicode ? "Unicode" : "ANSI") "`n`n" headers "`n`n" StrGet(&data, "UTF-8")

; Submit the request
url     := "http://www.google.com/searchbyimage/upload"
Options :=   "+Flag: INTERNET_FLAG_NO_COOKIES`n+NO_AUTO_REDIRECT"
           . (A_IsUnicode ? "`nCharset: UTF-8" : "")
HttpRequest(URL, data, headers, Options)
MsgBox % (A_IsUnicode ? "Unicode" : "ANSI") "`n`n" headers

Testing files: https://www.dropbox.com/s/xbetn61bbf87z ... st_Test.7z

[Bruttosozialprodukt]

Check out the code I posted in this post: http://ahkscript.org/boards/viewtopic.p ... 038#p21986
My code runs fine on unicode.

[tmplinshi]

Check out the code I posted in this post: http://ahkscript.org/boards/viewtopic.p ... 038#p21986
My code runs fine on unicode.

I've tried that post before, but at that time there's some bugs. Seems you've fixed it now, I'll try it. Thanks!