пытаясь использовать vb.net для загрузки файла в sinatra - PullRequest
0 голосов
/ 07 сентября 2011

Я пытаюсь использовать VB.Net для загрузки файла в веб-сервис Sinatra, и я не уверен, как настроить любой конец.Когда я запускаю приложение VB.Net, sinatra неизменно отвечает кодом 404. Вот код VB.Net, который я преобразовал из другого сообщения SO:

 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 "/"

, который показывает «попал сюда», но, очевидно, бесполезен, потому что мне нужно иметь дело с файлом.

Очевидно, что я новичок в обоих, это не так сложно, но я не уверен, что делать.

Спасибо.

1 Ответ

0 голосов
/ 07 сентября 2011

Хорошо, хорошо для потомков, вот что я сделал, чтобы заставить его работать. В коде vb.net я использовал:

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

и в файле синатры:

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