.NET (Core and Framework)

prdshukla wrote:

you gave a -ive vote...

<DllImport("E:\Temp\simple.dll", CallingConvention:="CallingConvention.Cdecl)"> _
 Private Shared Sub ReturnInParam(ByRef Stan As Integer, _
     ByRef Message As String)
 End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles Button1.Click
     Dim Num As Integer = 8
     Dim Message As String = "Harun"
     ReturnInParam(Num, Message)
     MessageBox.Show(Message)
 End Sub

Private Function Shell_Exceute_FLV(ByVal Parameters_FFMpeg As String) As String

       Dim Context As HttpContext = HttpContext.Current
       Dim SB_FFMpeg As StringBuilder = New StringBuilder

       Try
           Dim Results As String = Nothing
           Dim ffmpeg As New Process()
           Dim ffmpeg_StartInfo As New ProcessStartInfo(Path_FFMPEG, Parameters_FFMpeg)

           ffmpeg_StartInfo.UseShellExecute = False
           ffmpeg_StartInfo.RedirectStandardError = True
           ffmpeg_StartInfo.RedirectStandardOutput = True
           ffmpeg.StartInfo = ffmpeg_StartInfo
           ffmpeg.Start()

           Dim ffmpeg_StreamReader As IO.StreamReader = ffmpeg.StandardError
           SB_FFMpeg = New StringBuilder()

           SB_FFMpeg.Append(ffmpeg_StreamReader.ReadToEnd().ToString())

           Do While Not ffmpeg.WaitForExit(1000)
               SB_FFMpeg.Append(ffmpeg_StreamReader.ReadToEnd().ToString())
           Loop

           If ffmpeg.ExitCode = 0 Then
               ffmpeg.Close()
               If Not ffmpeg_StreamReader Is Nothing Then
                   ffmpeg_StreamReader.Close()
               End If
           Else
               ffmpeg.Close()
               If Not ffmpeg_StreamReader Is Nothing Then
                   ffmpeg_StreamReader.Close()
               End If
           End If

           ffmpeg.Close()
           ffmpeg.Dispose()
           ffmpeg = Nothing

       Catch ex As Exception

       End Try

       Return SB_FFMpeg.ToString

   End Function