hi !
so - inzwischen hab ich das ganze gelöst und es funktioniert sogar.
muss aber zugeben, dass ich dabei bissl "geschummelt" hab - hab nämlich beim suchen der hilfe zum vb socket control folgendes gefunden:
http://www.internext.co.za/stefan/genericpost/
Diesen http-poster kann man natürlich in VB inkludieren und der macht dann die ganze arbeit.
Der verbleibende VB-Code:
Private Sub Auto_Upload_Click()
On Error GoTo err_post
Dim data As String, nextline As String
Dim filenum As Integer
Dim poster As INXHTTPPost.poster
Dim e As Variant
Set poster = New INXHTTPPost.poster
filenum = FreeFile
' zu sendenede Daten auslesen
' hier pfad der .xml Datei angeben !
Open "C:\testfile.xml" For Input As filenum
Do Until EOF(1)
Line Input #filenum, nextline
data = data + nextline + Chr(13) + Chr(10)
Loop
Close filenum
poster.AddParam "fileNname", "12345_20031001.xml"
poster.AddParam "uploadData", data
e = poster.Post("http://localhost/webappl/upload.php", 0)
If Len(e) > 0 Then
Debug.Print "An error occured"
Else
' Hier bekommt man das .xml - Ergebnis vom php-Script zurück
Debug.Print "The Post was successful - Response: " + poster.LastResponse
End If
Exit Sub
err_post:
MsgBox Error
End Sub
in php ist das ganze dann in $POST["uploadData"] zugreifbar.
fg
-hannes