尝试使用 vb.net 将文件上传到 sinatra答案

【问题标题】：trying to use vb.net to upload file to sinatra尝试使用 vb.net 将文件上传到 sinatra
【发布时间】：2011-09-07 08:56:56
【问题描述】：

我正在尝试使用 VB.Net 将文件上传到 Sinatra Web 服务，但我不确定如何配置任一端。当我运行 VB.Net 应用程序时，sinatra 总是以代码 404 响应。这是我从另一篇 SO 帖子转换而来的 VB.Net 代码：

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     Dim responseData As String = ""
     Dim rdr As FileStream = New FileStream("X:\QueryTxtFiles\Query\CDA Curncy_9_1_2011.fqy", FileMode.Open)
     Dim req As HttpWebRequest = DirectCast(WebRequest.Create("http://finqueryserver:9898"), HttpWebRequest)
     req.Method = "POST" ' you might use "POST"
     req.ContentLength = rdr.Length
     req.AllowWriteStreamBuffering = True   

     Dim reqStream = DirectCast(req.GetRequestStream(), Stream)

     Dim inData(rdr.Length) As Byte

     ' Get data from upload file to inData 
     Dim bytesRead As Integer = rdr.Read(inData, 0, rdr.Length)

     ' put data into request stream
     reqStream.Write(inData, 0, rdr.Length)

     rdr.Close()
     Try
         req.GetResponse()
     Catch ex As Exception
         responseData = "An error occurred: " & ex.Message
     End Try

     ' after uploading close stream 
     reqStream.Close()
 End Sub

这里是 Sinatra 代码：

 require 'rubygems'
 require 'sinatra'

 post '/:name/:filename' do
puts "got here"

   begin
     name = params[:name]
   rescue
     name = "no name"
   end  
   begin
     filename = params[:filename]
   rescue
     filename = "no filename"
   end  
 end

（我从来没有看到“到达这里”。）Sinatra 代码基于使用 cURL 的教程，但我不是。我也试过了

 post "/:filename'

这也给出了 404，而且很简单

 post "/"

确实显示“到了这里”，但显然没用，因为我需要处理文件。

显然我在这两个方面都是新手，这不会那么难，但我不知道该怎么做。

谢谢。

【问题讨论】：

标签： ruby vb.net sinatra file-transfer

【解决方案1】：

好的，为了后代，这就是我为使其正常工作所做的工作。在 vb.net 代码中，我使用了：

  qry_results = wc.UploadFile("http://192.168.9.81:9898/execfqy", "X:\QueryTxtFiles\Query\CDA Curncy_9_1_2011.fqy")

在 sinatra 文件中：

 post '/execfqy' do
 qry_file.write(params[:file][:tempfile].readlines)

【讨论】：