Office: HTTP Post Request mit VBA

Hallo Allerseits,

auch nach reichlicher Suche habe ich keine Lösung zu meinem Problem gefunden. Daher hier mein erster Post in diesem Forum *Smilie

Ich habe auf der Festplatte ein Tool, welches Bilder auswerten kann. Es muss als Webserver aufgerufen werden, d.h. ich spreche es über einen Browser per http://127.0.0.1/test.test an. Es wird der Dateipfad des Bildes als Variable "file" erwartet. Es soll ein Rückgabewert empfangen werden (s.unten ResponseText).

Mein Problem: Ich erhalte stets als Rückgabewert, dass das Bild nicht verwertet werden konnte, d.h. das Tool hat nichts gemacht. Der Rückgabewert kommt tatsächlich vom Webserver - aber es ist der Wert für nicht auszuwertende Bilder. Das Tool macht allerdings nichts (es findet gar keine Auswertung statt). Ich vermute daher, dass die Variable "file" nicht korrekt übergeben wird. Ich habe hier wirklich schon alles probiert *frown.gif*

Hier der relevante HTML-Code der Seite im Webserver:

body
h1>Upload a picture to test

input type="hidden" name="source_url" value="">

input type="hidden" name="picture_platform" value=""

input type="submit" name="action" id="test_button" value="Submit"

/form

/body


Natürlich finden sich einige Vorschläge zu post-requests mittels VBA im Netz. Ich habe mir daraus folgendes Makro erstellt:

Sub TEST()

Dim result As String

Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
URL = "http://127.0.0.1/test_test.test"

objHTTP.Open "POST", URL, False
objHTTP.SetRequestHeader "Content-type", "application/x-www-form-urlencoded"
objHTTP.Send ("file=F:\Pictures\picture.jpg")
objHTTP.WaitForResponse (-1)

result = objHTTP.ResponseText
MsgBox result

result = ""
Set objHTTP = Nothing

End Sub

Falls hier jemand ein PHP-Crack ist: es gibt eine Anleitung zum Tool für PHP. Diese sieht in der Kurzfassung so aus:

$curl = curl_init();
curl_setopt($curl, CURLOPT_URL,"http://127.0.0.1/test_test.test");
curl_setopt($curl, CURLOPT_POST,1);
curl_setopt($curl, CURLOPT_POSTFIELDS, "file=F:\Pictures\picture.jpg");
curl_setopt($curl, CURLOPT_RETURNTRANSFER, TRUE);

$result=curl_exec($curl);
curl_close($curl);

Vielen Dank an Alle die hier mal draufgucken! Beste Grüße,

Les

:)

 

Ich habe das Problem lösen können mittels folgenden Codes:

https://wqweto.wordpress.com/2011/07...t-binary-file/

Scheinbar reicht es nicht aus einfach nur den Dateipfad als String zu senden *tongue.gif*

Beste Grüße,

Les