Hallo,
I use the following Code:
Dim sProjekt As String = Main.Jobname.Replace(".txt", "")
Dim files As List
files.Initialize
Dim fd As MultipartFileData
fd.Initialize
fd.KeyName = "text"
fd.Dir = Main.sRoothpath & "/Memo"
fd.FileName = sMemo
fd.ContentType = "text/plain"
files.Add(fd)
Dim job As HttpJob
job.Initialize("Upload",Me)
job.PostMultipart(Main.bridgesql,CreateMap("action":"Upload","knr":Main.bridgeknr,"projekt":sProjekt,"punktnummer":Main.bridgepktnr),files)
It is working fine.
______________________________________________
Now I need a Code in Visual Studio(C or Vb.net)
I trý this:
Dim responseArray As Byte() = myWebClient.UploadFile(url, fileName)
MsgBox(System.Text.Encoding.UTF8.GetString(responseArray))
This Code doesn't work.
Any idea ???
Kind regards
Volker
I use the following Code:
Dim sProjekt As String = Main.Jobname.Replace(".txt", "")
Dim files As List
files.Initialize
Dim fd As MultipartFileData
fd.Initialize
fd.KeyName = "text"
fd.Dir = Main.sRoothpath & "/Memo"
fd.FileName = sMemo
fd.ContentType = "text/plain"
files.Add(fd)
Dim job As HttpJob
job.Initialize("Upload",Me)
job.PostMultipart(Main.bridgesql,CreateMap("action":"Upload","knr":Main.bridgeknr,"projekt":sProjekt,"punktnummer":Main.bridgepktnr),files)
It is working fine.
______________________________________________
Now I need a Code in Visual Studio(C or Vb.net)
I trý this:
Dim responseArray As Byte() = myWebClient.UploadFile(url, fileName)
MsgBox(System.Text.Encoding.UTF8.GetString(responseArray))
This Code doesn't work.
Any idea ???
Kind regards
Volker