2012-02-17 12 views
0

私はGoogleの音声APIで音声認識をしようとしています。ここでの\ record.flacファイルは常に私のコードで使用されており、手動でもコードでも削除することはできません

  Public Shared Function UploadFile(ByVal uploadfilename As String, ByVal url As String, ByVal fileFormName As String, ByVal contenttype As String, ByVal querystring As System.Collections.Specialized.NameValueCollection, ByVal cookies As CookieContainer) As String 
    If (fileFormName Is Nothing) OrElse (fileFormName.Length = 0) Then 
     fileFormName = "file" 
    End If 
    If (contenttype Is Nothing) OrElse (contenttype.Length = 0) Then 
     contenttype = "application/octet-stream" 
    End If 
    Dim postdata As String 
    postdata = "?" 
    If Not (querystring Is Nothing) Then 
     For Each key As String In querystring.Keys 
      postdata += key + "=" + querystring.Get(key) + "&" 
     Next 
    End If 
    Dim uri As Uri = New Uri(url + postdata) 
    Dim boundary As String = "----------" + DateTime.Now.Ticks.ToString("x") 
    Dim webrequest As HttpWebRequest = CType(Net.WebRequest.Create(uri), HttpWebRequest) 
    webrequest.CookieContainer = cookies 
    webrequest.ContentType = "audio/x-flac; rate=16000" 
    webrequest.Method = "POST" 
    Dim sb As StringBuilder = New StringBuilder 
    sb.Append("--") 
    sb.Append(boundary) 
    sb.Append("" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "") 
    sb.Append("Content-Disposition: form-data; name=""") 
    sb.Append(fileFormName) 
    sb.Append("""; filename=""") 
    sb.Append(IO.Path.GetFileName(uploadfilename)) 
    sb.Append("""") 
    sb.Append("" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "") 
    sb.Append("Content-Type: ") 
    sb.Append(contenttype) 
    sb.Append("" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "") 
    sb.Append("" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "") 
    Dim postHeader As String = sb.ToString 
    Dim postHeaderBytes As Byte() = Encoding.UTF8.GetBytes(postHeader) 
    Dim boundaryBytes As Byte() = Encoding.ASCII.GetBytes("" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "--" + boundary + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "") 
    Dim fileStreama As FileStream = New FileStream(uploadfilename, FileMode.Open, FileAccess.Read) 
    Dim length As Long = postHeaderBytes.Length + fileStreama.Length + boundaryBytes.Length 
    webrequest.ContentLength = length 
    Dim requestStream As Stream = webrequest.GetRequestStream 
    requestStream.Write(postHeaderBytes, 0, postHeaderBytes.Length) 
    Dim sendBuffer(Math.Min(4096, fileStreama.Length)) As Byte 
    Dim bytesRead As Integer = 0 
    Do 
     bytesRead = fileStreama.Read(sendBuffer, 0, sendBuffer.Length) 
     If bytesRead = 0 Then Exit Do 
     requestStream.Write(sendBuffer, 0, bytesRead) 
    Loop 
    requestStream.Write(boundaryBytes, 0, boundaryBytes.Length) 
    Dim responce As WebResponse = webrequest.GetResponse 
    Dim s As Stream = responce.GetResponseStream 
    Dim sr As StreamReader = New StreamReader(s) 
    Return sr.ReadToEnd 
    sr.Dispose() 
    s.Dispose() 
    fileStreama.Dispose() 
    requestStream.Dispose() 
    webrequest.Abort() 
    responce.Close() 

End Function 

以下の機能がある:私はCodeProjectの上で見つけることができるUPLOADFILEEX機能を変更

...

私は、削除したいファイルは、C関数WORKS(Thankgod)はクリアしたいときはいつでも(Cにあるオーディオファイルを削除する)、何も起こりません。

以下はformclosingイベントで実行される私のコード....あなたはおそらく私がすべてのストリームを削除し、SOファイルがされていないそれらを閉じるしようとした関数から参照することができているよう

 Private Sub Form1_Close(sender As System.Object, e As System.EventArgs) Handles MyBase.FormClosing 
    Dim di As New IO.DirectoryInfo("c:\") 
    Dim diar1 As IO.FileInfo() = di.GetFiles() 
    Dim dra As IO.FileInfo 
    For Each dra In diar1 
     If dra.Name.Contains("record.") Then 
      dra.Delete() 
     End If 
    Next 
End Sub 

ですACCESSED

しかし、手作業で削除しようとすると、別のプロセス(私のプログラム)で使用されています - (私はffmpegを使用して.wavファイルを.flacファイルに変換しますそれは何も問題を引き起こさない)....

私は間違っています...

私はいくつかのストリームや何かの閉鎖を逃したことがありますか? uploadfilename列ところで

は、c:\ record.flac(ちょうどあなたの情報のために - 私はそれが役立つと思ういけない)

答えて

0

はあなたの関数は、ファイルストリームを廃棄する前にReturnを呼んでいます。つまり、Dispose呼び出しは決して実行されません。ストリームはファイル参照を保持します。

+0

ありがとうございました!私はこれまで考えなかったとは信じられない! –

+0

@ImranAhmed - 到達できないコードに関するコンパイラの警告を受け取らなかったのに驚いています!オプションは厳密にオンですか? –

0

私は処分前の返却がおそらく原因であるとBooと同意します。したがって、解決策は、sr.ReadToEndの結果を変数に格納し、ストリームを閉じてからvarを返すことです。

しかし、より良い解決策は、あなたが呼び出す必要があるすべてのクラスでUsingステートメント(http://msdn.microsoft.com/en-us/library/htd05whh.aspx)を使用することです。別名、IDisposableを実装するクラス)。

これにより、コード内のどのリソースが使用されているかを簡単に確認できるため、コードが明確になります。また、.NETのようにバグの少ないコードでは、使用ブロックのスコープから離れるとすべてが破棄されます。

+0

コメントをお寄せいただきありがとうございます(この質問に「回答済み」とはどのように答えるのですか)。 –

+0

クリックすると各回答の横に大きなチェックマークが表示されるはずです。 – SpoBo

関連する問題