This is quite a well known error. Just Google "Cross-thread operation not valid" and you'll see a heap of discussions and possible work arounds for this code.
...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 :-)
Tram88 wrote:
Based on your code, I do have a question for intTotalCount = CountStringInFile(strFileEmailNotification, estringtext) If I run the code, I would like to see intTotalCount=1 . In fact, it is 2. Can you teach me how to program it.
The CountStringInFile() function is not a standard VB function call. I presume you have obtained this code from somewhere else? If it does what its name implies, then it will scan the entire file for any occurrences of the search string - in this particular case with the data you have already supplied in your first post, there are two lines which contain "Error" therefore the return value will be 2. What I think you need to do is to change this line:
intTotalCount = CountStringInFile(strFileEmailNotification, estringtext)
to
eIntotalCount = eIntotalCount + 1
since intTotalCount does not seem to be declared anywhere and eIntotalCount is declared but not used. [Was this intentional?] When your code exits, eIntotalCount will now contain the count of the number of lines in your file that have both the error string AND the date string for which you are searching.
...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 :-)
You could also change this code to have the DIM statements outside of the While loop. Note also the change to the If conditions (i.e. testing for a return value > 0 from InStr() rather than relying on an implicit type conversin to Boolean).
Dim eLineOut As String
Dim estringtext As String = "Error"
Dim eiLine As Integer
While eoRead.Peek <> -1 'reads until peek is -1, which is end of file
eLineOut = eoRead.ReadLine
If (InStr(1, eLineOut, estringtext, CompareMethod.Text) > 0) And (InStr(1, eLineOut, eStart, CompareMethod.Text) > 0) Then
intTotalCount = CountStringInFile(strFileEmailNotification, estringtext)
Pass = 1
End If
End While
...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 :-)
In that case there could be something wrong with the data that's being read. Run the code in the debugger and single-step it. Whilst doing this, watch the various variables for correct content. Something is not what you assume it to be. From there we can make a better diagnosis.
...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 :-)
I would write this a bit differently but I think this line ... Dim eStart As String = Format(Today, "M" & "/" & "d" & "/" & "yyyy") should be ... Dim eStart As String = Format(**Now()**, "M" & "/" & "d" & "/" & "yyyy")
...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 :-)
Jack_Software wrote:
I am looking for broadcasting not multicasting in DOT NET Environment
Why broadcasting? Multicast is the way to go - has less overhead and more efficient since only the clients who actually want the cast will receive it. Broadcasting is like shouting at everyone in a room when you only want to attract the attention of a few. ...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 :-)
ma_refay wrote:
i know that oop is object oriented programming i need what it's mean ? the description of oop?
Then you very badly phrased the question in the first place! Instead of wasting our time - and yours asking stupid questions - find the answer by searching for it on Google or this great site. ...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 :-)
Are you sure the DLL is spawning threads? If that were the case, destroying the main thread should kill all other threads created by it. Most likely the DLL is spawning a new process which runs independently of your main code and hence it will not terminate when your main thread terminates. In this case you'll need to manually kill the spawned processes as already described in the previous post. ...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 :-) -- modified at 19:21 Tuesday 20th June, 2006
What template, what code? Look for the delay code and increase the value from 2000 to 8000 (it is milliseconds). ...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 :-)
Well without knowing the error you are receiving I'm guessing but perhaps the V: drive does not exist or you do not have sufficient authority to access that network resource? ...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 :-)
Lucas, This is an English language forum. I cannot read Spanish nor does www.freetranslation.com[^] or babelfish.altavista.com[^] make any sense of your post. I think you are asking how to detect the presence or non-presence of the NET framework at installation time? If you can re-post in English we'll see what we can do to help. ...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 :-)
Mohammed Amine wrote:
when i do setup for ma app. it gaves me a bug by the opposite it works very well when i'm working in vs.net you can try it if you want to
Huh? What is the error you are getting? Posting code without the accompanying error is useless. BTW, have you tried removing the leading '\' from the path you are constructing? ...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 :-)
It stops because you have logged off and it was running under those credentials. Logging off destroyes the process under which all sub processes run so therefore your service dies. If you want it to run regardless of the logged on user, you'll need to change the service properties so that it runs under the localservice userid etc.. ...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 :-)
amaneet wrote:
I don't want to declare the full path.
Then try this (assuming that the MDB is in the application path): Dim cnstr As String = "Provider=Microsoft.Jet.Oledb.4.0;data source=" & Application.StartupPath & "db1.mdb" ...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 :-)
Seems like a convoluted way of doing things to me. If you have the opportunity to redesign it so that the data is stored in a database of some sort rather than text files then you'll have a much more robust solution. The only way you can detect that a file's contents have actually changed is to read it. The way you can tell if a file has been touched (i.e. written, modified or created) is to inspect the file's creation date or modified date in the file system. At the very least you'll then be able to detect and read only the changed files and not all 56. As an advanced topic you can also be advised of a file's change of status by some system events, but this is I think beyond the scope of this forum. There are articles on The Code Project that discuss this issue if you wish to pursue 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 :-)
Get real! No one is going to send you a complete system written for you in VB6. What problems are you having with your implementation? If you let us know that we can help you out. ...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 :-)
He just did. ...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 :-)
Yes, the .NET framework is required on the client machine. ...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 :-)
Clear as mud to me. Try explaining a bit better please. ...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 :-)