Tilted Forum Project Discussion Community  

Go Back   Tilted Forum Project Discussion Community > Interests > Tilted Technology


 
 
LinkBack Thread Tools
Old 09-02-2003, 09:01 AM   #1 (permalink)
Riiiiight........
 
C++ / VBA question

So i have a executable written in C++, and i wish to call this executable in Visual Basic, and be able to read results from running the C++ program.

The C program outputs its results in a text file when it's done running.

So my question is, how do I check, from Visual Basic for Applications, that the C program is done running?

thanks.
dimbulb is offline  
Old 09-02-2003, 11:08 AM   #2 (permalink)
Insane
 
Location: Plugged In
The shell command will work,but the program will continue executing as soon as the shell command is started.

shell "c:\program.exe"

Also check this out:

http://groups.google.com/groups?q=vi...ome.com&rnum=1
Boner is offline  
Old 09-02-2003, 12:03 PM   #3 (permalink)
kel
WARNING: FLAMMABLE
 
Location: Ask Acetylene
Have your program idle

and periodically check in to see if the file has been written and is available... put a special marker at the end of the file.... hopefully the file won't be to long. If it is going to be long then create a 2nd file @ completion and put the marker in there. Don't forget to implement reasonable timelimits and retries in case the C++ program fails.

There are options for making the two programs communicate... using .NET, you can basically import all the C++ code and convert the main into a function and simply return a data structure with the stuff you want. But getting .NET working isn't fun :-(. It is however the most elegant solution.

I don't know all the other mechanism that exist for transferring data and objects between programs, but they exist.
__________________
"It better be funny"

Last edited by kel; 09-02-2003 at 12:12 PM..
kel is offline  
Old 09-02-2003, 02:07 PM   #4 (permalink)
Riiiiight........
 
I think I will probably try the wait and check solution. I was already leaning towards this solution of having the C program generate a indicator text file when complete.

It doesn't have to be very elegant. Implementing my professor's reseach, so as long as it works reasonably well, it'll do. Problem is that I'm not familar with C++ and only somewhat competent in VBA. so I'm contented with relatively simple tricks here.
dimbulb is offline  
Old 09-02-2003, 09:44 PM   #5 (permalink)
Junkie
 
Location: North Hollywood
ick no!!! software that periodcally checks for changes like this, bad, bad! loading regmon or filemon watching all those programs rabidly checking for registry or file changes is horrible.

even on a simple system, you are opening a can of worms.
FindFirstChangeNotification, WaitForSingleObject etc

implement semaphores, windows has some very powerful functions for talking between apps.

http://msdn.microsoft.com arguably has the best technical docs/resources for any OS.

afrer a few mins looking msdn i found this

Code:
Example Program
This program shows how you can use the Shell function and the GetNumTasks function to execute an MS-DOS program. This program assumes that you have the PKUNZIP program stored in the UTILS directory and that you have previously created a destination directory called DESTDIR on your hard drive. 

Create a new project in Visual Basic. Form1 is created by default. 
Add the following statements to the General Declarations section of Form1: 
Dim ActiveApps As Integer
Private Declare Function GetNumTasks Lib "Kernel" () As Integer

Add a Command Button control to Form1. Command1 is created by default. 
Add the following code to the Click event for Command1: 
Private Sub Command1_Click()
    Dim AppDir As String
    Dim Zip As String
    Dim Y As Integer
    Dim X As Integer
    
    AppDir = "c:\destdir"
    ActiveApps = GetNumTasks()
    
    Zip = "c:\utils\pkunzip " & "c:\destdir\" & "test.zip" & " " & AppDir
    X = Shell(Zip, 2)
    SendKeys "%{enter}EXIT%{ }n"
    
    Do While GetNumTasks() <> ActiveApps
        Y = DoEvents()
    Loop
    MsgBox "Pkunzip is finished", 0, "Demo Program"
    
End Sub

Then this
http://support.microsoft.com/default...kb;en-us;96844

Code:
     Private Declare Function GetModuleUsage% Lib "Kernel" _
         (ByVal hModule%)

      Private Function TestFunc(ByVal lVal As Long) As Integer
      'this function is necessary since the value returned by Shell is an
      'unsigned integer and may exceed the limits of a VB integer
         If (lVal And &H8000&) = 0 Then
           TestFunc = lVal And &HFFFF&
         Else
           TestFunc = &H8000 Or (lVal And &H7FFF&)
         End If
      End Function
						
Add the following code to the Form_Click event procedure of Form1:       Sub Form_Click()
        lRet& = Shell("NOTEPAD.EXE")       ' Modify the path as necessary.
        x% = TestFunc(lRet&)
        While GetModuleUsage(x%) > 0    ' Has Shelled program finished?
           z% = DoEvents()              ' If not, yield to Windows.
        Wend
        MsgBox "Shelled application just terminated", 64
      End Sub
charliex is offline  
 

Tags
question, vba


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On



All times are GMT -8. The time now is 12:14 AM.

Tilted Forum Project

Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Optimization by vBSEO 3.6.0 PL2
© 2002-2012 Tilted Forum Project

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360