Visual Basic

Sending a filename to a Fortran app

17-May-07 10:58

Notepad doesn't lock a file open. It opens a file for Shared access, reads the file and closes it immediately.

When it goes to save the file, it opens the file for DenyShareAll, writes it out, then closes it.

dBrong wrote:
How can I detect the file is opened by another program?

That depends on the behavior other program, as you've already found out.

dBrong wrote:
How can I detect the file is opened by another program?

Reliably, for any application?? You can't.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

matt_hirst17-May-07 9:25

matt_hirst

17-May-07 9:25

Hi,

Am a total newbe to VB.NET so please be gentle.

I have been tasked with writing a front end to a Fortran program that my company has, basicly the front end writes a text file then calls the fortran program to process the text file thus creating a set of results. All is going well, I can create the file and call the Fortran program but I can't see how to send the name of the file I want to process to the Fortran program.

The Fortran prog will not accept arguements. I have tried using the send keys option but all it sends is a \ character so can anyone help or point me in the direction of an article that may help?

regards,

Matt

Re: Sending a filename to a Fortran app

Dave Kreskowiak17-May-07 11:09

Re: Sending a filename to a Fortran app

17-May-07 11:09

That depends on the Fortran app. If it doesn't accept any command line parameters, your project just got that much more difficult to control.

It MAY be possible to use SendKeys, but this is problematic. If the app you launch isn't ready for input, you're sending keystrokes to no-mans-land. When you launch the app using the Process class, there is a method called WaitForInputIdle that will cause you app to stop and wait until the launched app finishes starting up and enters it's idle state.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

matt_hirst20-May-07 2:32

matt_hirst

20-May-07 2:32

Ok will try that, have tried forcing a wait by opening the prog then using a message box then sending keys to the app but all this does is place a \ charcter in the frotran app.

regards,

Matt

Re: Sending a filename to a Fortran app

Dave Kreskowiak20-May-07 4:42

Condition Property Syntax

20-May-07 4:42

No real choices. Controlling another application that doesn't have any kind of remoting abilities is a crap shoot at best.

After the messagebox line in your controller app, did you make sure the Fortran app has the input focus?

The last option is rewrite the Fortran app! Big Grin | :-D

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Karma3125117-May-07 9:25

Karma31251

17-May-07 9:25

I would like to know if anyone knows of a website that will explain and give lots of examples of VB 2005 Deployment Condition property syntax. I want to be able to set the condition so that if the a file is already installed it wont be overwritten or cause errors. I am using Windows Installer 3.1. I do not want to use other installers and i know its possible.

Service deployment question?

tcombs0717-May-07 8:53

tcombs07

17-May-07 8:53

Hey guys, I have been creat a service and it is just about finished all i need to do now is creat the deployment project and the question that i have is this. Is there any way to have the service start automatically right after the the install is finished? I know there are custom actions that I am sure can do this but I dont know how to get that to work.

Please help and thanks again in advance.

Travis Combs

Re: Service deployment question?

Joseph Guadagno17-May-07 10:15

Joseph Guadagno

17-May-07 10:15

There is an article on Code Project, A ServiceInstaller Extension That Enables Recovery and Autostart Configuration , that explains how to accomplish this.

Hope this helps!
Joseph Guadagno
http://www.josephguadagno.net

Looking for existing data...

CCG317-May-07 7:35

CCG3

17-May-07 7:35

Hello, I am trying to look in a table to see if the item already exisits before I add another one. I have a simple table with 2 fields. The primary key is one and it is an auto number, the other is the description that I am trying to check for.

The name of my table is OrdersListBoxInfo and the table name I am trying to compare with is Order. Once I get to the line "Count = cmd.ExecuteScalar" I am getting error "No value given for one or more required parameters."

Here's the code I am running. Can anyone tell me what I am missing/doing wrong?

Dim OrderName As String
OrderName = txtOrderName.Text

'Check to see if this Order already exisits

Dim Count As Integer = 0
Using Connection As New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Costco\My Documents\Visual Studio Projects\AnesXL.mdb")

Dim cmd As OleDbCommand = New OleDbCommand _
("Select Count( OrderName ) as ExistingRecords From [OrdersListBoxInfo] where [Order]=?", _
Connection)
cmd.Parameters.AddWithValue("@Order", OrderName)

Connection.Open()
Count = cmd.ExecuteScalar

End Using

If Count > 0 Then
MessageBox.Show("Number of rows found: " & Count, "Add Date", MessageBoxButtons.OK)
Return
End If

Re: Looking for existing data...

Dave Kreskowiak17-May-07 7:55

17-May-07 7:55

You said in your description you have two tables. But, this operation you're describing is only working on one table. Which is it? Shouldn't the WHERE clause lok like this:

SELECT COUNT(OrderName) As ExistingRecords FROM OrdersListBoxInfo WHERE OrderName=?

I also don't like using AddWithValue. It leaves too much up to interpretation by the OleDbParameter class. I'd do it like this instead:

cmd.Parameters.Add("@OrderName", OleDbType.VarChar, 50).Value = OrderName

You might also want to validate what's in OrderName before you assign the value to the parameter.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

shell return value

tj2817-May-07 4:50

tj28

17-May-07 4:50

I’ve got a function for sending a file to a remote host wich Is as follows

Public Sub SendFiles(strTemp As String)
Dim lngWnd As Long

Dim strTxtFile As String, strBchFile As String

strBchFile = "c:\trace.bat"
strTxtFile = "c:\trace.txt"

Open strTxtFile For Output As #1

'cchs
Print #1, "open myhostname"
Print #1, "MYUSERNAME"
Print #1, " mypassword "
Print #1, "lcd c:\"
Print #1, "cd /disk1/"
Print #1, "bin"
Print #1, "get " & strTemp
Print #1, "disconnect"

'JDP1p000.001

'tnt ftp site
Print #1, "open remotehost "
Print #1, "romote host name"
Print #1, "remote host password"
Print #1, "bin"
Print #1, "put " & strTemp
Print #1, "bye"
Close #1
lngWnd = Shell("ftp -s:" & strTxtFile, vbMinimizedFocus)
Kill "c:\" & strTemp

The problem is that I don’t have a way of knowing whether a file has been transferred successfully or not

Pls help

im a junior developer at a company called securemail in south africa

Re: shell return value

Dave Kreskowiak17-May-07 5:05

17-May-07 5:05

This has the makings of a nightmare...

First, you're app is writing a script file, then launching an external application which executes the script. Is this FTP a DOS app or a Windows app?? If DOS, then you need to pipe the FTP app's output to another file using a command line similar to:

ftp -s:scriptname > C:\ftpOutput.txt

When the Shell statement returns, you have to open the ftpOutput.txt file and read its contents and parse it up, looking for keywords that should tell you if the transfer was successful or not.

This WILL NOT WORK if FTP is a Windows app!

The best solution is to scrap all this and rewrite a new app using an actual FTP component in your app where you'll have FAR more control over the transfer process and the results of it.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Re: shell return value

tj2817-May-07 5:24

tj28

17-May-07 5:24

Hi Thank u very much for the quick response .i think i "scrap my function out"

Can u pls give me a link to a sample that i could use for my new function using an ftp component

im a junior developer at a company called securemail in south africa

Re: shell return value

Dave Kreskowiak17-May-07 5:29

Background image in VB.net

17-May-07 5:29

tj28 wrote:
Can u pls give me a link to a sample that i could use for my new function using an ftp component

I don't have any VB6 examples. I haven't used it in about 6 or 7 years now...

Googling for "VB6 ftp example" reveals a bunch[^] though.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Brizee17-May-07 4:25

17-May-07 4:25

Does anyone understand why when i put an image in the background of a form that it displays correctly for approximately 5 seconds but then the same image is applied within the window overlapping the first image but offset. The only way i've found to get around this is to set the 'Show in taskbar' to false.

I've also found that if i minimise the form and then restore it, it does exactly the same thing, the image in the form appears okay for 5 seconds and then does this overlap thing.

The form is approximately 800x600 pixels and set to appear in the centre of the desktop. If i set the form to 'manual' and have it start at position 0,0 then the overlap thing doesn't occur, or if it does, then it's not obvious as it must be overlapping in exactly the same position.

Any ideas other than putting it into a picture box, which isn't an option as i have text with it's back colour set to transparent, and the transparency is obviously lost if i put text over a picture box.

Brian Hull

Dave Kreskowiak17-May-07 5:38

17-May-07 5:38

What happens if you create a new project and set the default form's background image to this image and run it?

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Brizee17-May-07 5:57

17-May-07 5:57

I have tried making a new project, and it does exactly the same thing.

I'm beginning to think that it's a bug in the software.

Brian Hull

Dave Kreskowiak17-May-07 6:16

17-May-07 6:16

Not one I can replicate.

How about with a different image of the exact same size and color depth? What are those numbers anyway?

Is this a multi-frame image?

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Brizee17-May-07 12:49

17-May-07 12:49

I have tried this with different images of the same size and different size, but it always does it.

Sorry but i don't know what a multi frame image is.

I could always email you the screen grab and the original file for you to take a look at?

Brian Hull

Dave Kreskowiak17-May-07 15:21

17-May-07 15:21

Brizee wrote:
Sorry but i don't know what a multi frame image is.

You've seen animaed GIFs, right? That's a multiple frame image. Each step in the animation is a seperate frame. Multiple full-frame images in the same file.

Hmmm... I can't seem to duplicate the problem. BackgroundImage of the Form, right?

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Brizee17-May-07 22:27

17-May-07 22:27

Sorry for being so dense.

It's not a multiple frame image no, just a BackgroundImage on the form, an index coloured png file at that, just to try and keep the file size down.

Basically i have made a card game and in the game you choose one of 5 options and depending on the option chosen dictates which backgroundimage is visible. It's basically to give it a nice GUI, instead of a plain colour.

I am starting to think that maybe the issue lies simple with my version of VB.Net.

Brian Hull

Dave Kreskowiak18-May-07 12:47