Visual Basic

18-Apr-06 20:14

i have a problem.
In my code ,while design mode of project code work propperly.
when i make the exe & install & run it code doesn't work.

in my code i m doing a simple task.
i change the directory ,
call cmd.exe
& run a different file.
here on my cmd prompt

Steve Pullan18-Apr-06 20:53

18-Apr-06 20:53

So... where's the point at which your problem occurs? Posting your code will make a huge difference to the help you get on this forum.

...Steve

1. quod erat demonstrandum
2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once Smile | :)

thandal18-Apr-06 21:11

18-Apr-06 21:11

the way i am sending the code may be wrong, i don't know how to send code on forum but i am trying

the code is as follow
it has 2 forms
' the code for module 1
Module Module1
Public Make As frmMakeCode
End Module
------------
code for frm1 ,it has 1 textbox ,one button
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ChDir(TextBox1.Text)
If Make Is Nothing Then
Make = New frmMakeCode()

Else

End If
Make.CommandText.Text = "make"
Make.run()

End Sub

'------------i am having one class ,code for class is as follow

Imports System.IO
Imports System.Diagnostics

Public Class CmdProcessor

Public Sub Execute(ByVal command As String)

_process = Me.InitializeProcess(command)
_executing = True
_process.Start()

Me.AttachStreams()
Me.PrepareAsyncState()

_standardOutput.BaseStream.BeginRead(_outputBuffer, 0, _outputBuffer.Length, _outputReady, _outputState)
_standardError.BaseStream.BeginRead(_errorBuffer, 0, _errorBuffer.Length, _errorReady, _errorState)

End Sub

Public Event TextReceived As CmdProcessorEvenHandler

Private Function GetStartInfo(ByVal command As String) As ProcessStartInfo
Dim psi As New ProcessStartInfo()
psi.FileName = "cmd.exe"

psi.Arguments = "/c" + command
psi.UseShellExecute = False
psi.RedirectStandardError = True
psi.RedirectStandardOutput = True
psi.CreateNoWindow = True

Return psi
End Function

Private Function InitializeProcess(ByVal command As String) As Process
If (_executing) Then
Throw New ApplicationException("Another process is currently executing")
End If

_process = New Process()
_process.StartInfo = GetStartInfo(command)
_process.EnableRaisingEvents = True
AddHandler _process.Exited, AddressOf _process_Exited

Return _process
End Function

Private Sub _process_Exited(ByVal sender As Object, ByVal e As EventArgs)

Dim exitCode As Integer
exitCode = _process.ExitCode

RaiseEvent TextReceived(Me, New CmdProcesserEventArgs(exitCode.ToString()))

_process.Dispose()
_process = Nothing
_executing = False

End Sub

Private Sub AttachStreams()
_standardOutput = _process.StandardOutput
_standardError = _process.StandardError
End Sub

Private Sub OutputCallback(ByVal ar As IAsyncResult)

Dim state As AsyncState
state = DirectCast(ar.AsyncState, AsyncState)

Dim count As Integer
count = state.Stream.BaseStream.EndRead(ar)

If count > 0 Then
Dim text As String
text = System.Text.Encoding.ASCII.GetString(state.Buffer, 0, count)
RaiseEvent TextReceived(Me, New CmdProcesserEventArgs(text))

state.Stream.BaseStream.BeginRead(state.Buffer, 0, state.Buffer.Length, _outputReady, state)
End If

End Sub

Private Sub PrepareAsyncState()
_outputReady = New AsyncCallback(AddressOf OutputCallback)
_outputState = New AsyncState(_standardOutput, _outputBuffer)
_errorReady = New AsyncCallback(AddressOf OutputCallback)
_errorState = New AsyncState(_standardError, _errorBuffer)
End Sub

Private _executing As Boolean
Private _process As Process
Private _standardOutput As StreamReader
Private _standardError As StreamReader
Private _errorBuffer(512) As Byte
Private _outputBuffer(512) As Byte

Private _outputReady As AsyncCallback
Private _outputState As AsyncState
Private _errorReady As AsyncCallback
Private _errorState As AsyncState

Class AsyncState

Public Sub New(ByVal stream As StreamReader, ByVal buffer As Byte())

_stream = stream
_buffer = buffer

End Sub

Public ReadOnly Property Stream() As StreamReader
Get
Return _stream
End Get
End Property

Public ReadOnly Property Buffer() As Byte()
Get
Return _buffer
End Get
End Property

Protected _stream As StreamReader
Protected _buffer As Byte()

End Class

End Class

Public Delegate Sub CmdProcessorEvenHandler(ByVal sender As Object, ByVal e As CmdProcesserEventArgs)

Public Class CmdProcesserEventArgs

Public Sub New(ByVal text As String)
_text = text
End Sub

Public Property Output() As String
Get
Return _text
End Get
Set(ByVal Value As String)
_text = Value
End Set
End Property

Protected _text As String

End Class
------------
the code for frm makecode is as follow
cod start here
Private Sub GoButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoButton.Click
msgF = False
showmsgF = True
k = 0
Me.OutputTextBox.Text = String.Empty

Dim cmd As New CmdProcessor()
AddHandler cmd.TextReceived, AddressOf Me.cmd_TextReceived
cmd.Execute(Me.CommandText.Text)

End Sub

/**************
this code work at design time , but at run time it fails

Steve Pullan18-Apr-06 21:15

18-Apr-06 21:15

thandal wrote:
this code work at design time , but at run time it fails

OK, but at which line does it fail, what is the error displayed (if any) and what are the parameters to the function/sub that failed?

Have you run this in debug mode (single step) and inspected the parameters to the calls line-by-line? If so, what did you find?

...Steve

1. quod erat demonstrandum
2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once Smile | :)

thandal18-Apr-06 21:27

18-Apr-06 21:27

when my project is in debug mode.
every thing work fine, whichever path i write in Textbox1 , my pgorgam go in that directory , & runs the make file command, as i gave,
when i make exc of this project install it on my pc & run it.
it give error
like
"2make: *** create_child_process: DuplicateHandle(In) failed (e=6)
. Stop."
so it means my system fails to generate fork .
i don't understand how to resolve this problem
so plz help me out

Steve Pullan18-Apr-06 21:45

18-Apr-06 21:45

What are you using to compile it?

...Steve

1. quod erat demonstrandum
2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once Smile | :)

thandal18-Apr-06 21:47

18-Apr-06 21:47

i m yusing this to compile C file

Steve Pullan18-Apr-06 21:52