Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
App vs. exe
Message
 
À
11/07/2001 15:53:44
Information générale
Forum:
Visual FoxPro
Catégorie:
Fonctions Windows API
Titre:
Divers
Thread ID:
00529406
Message ID:
00529721
Vues:
12
Put a little wait in your code to make sure the file is completed...

WAIT WIND 'Printing' Timeout 2

>Help:
>I've written a EXE called PrintScreen.exe in Delphi 5. This VFP program file is invoked by Shift-F5 combination from within my VFP 6.0 sp5 app. Compiled as an EXE, but run as do MRM in the command window, everything works as expected. When I run MRM.exe from Windows 2000, the PrintScreen.exe app, generates an error "Cannot open file 56347638.bmp". I'm using Steve Ruhl's ScrnPrint utilities from the files section and Ed Rauh's API_AppRun utility.
>
>I'm guessing that the BMP files isn't quite closed when PrintScreen tries to load it. After the error message, I can dbl-click on it on the HD and my Futuris Imager app, loads it just fine.
>
>TIA,
>Mike Timpe
>Micro Vane, Inc.
>
>
>
>* BEGIN PRINTSCR.PRG()
>* Description:
>* Parameters: -
>* -
>* Returns: -
>* Notes: 1.
>* 2.
>* Revisions: 07/11/2001 - MWT
>* - Created
>
>local lnSelect
>local lcProcedures
>local lcImageFileName
>lcProcedures = SET( "PROCEDURE" )
>lnSelect = select()
>
>create cursor PrintScreen (ScreenPrt G, Notes M)
>select PrintScreen
>append blank
>
>SET PROCEDURE TO appmeth additive
>lcImageFileName = SaveasBitmap()
>SET PROCEDURE TO (lcProcedures)
>oRunit = newobject("Api_AppRun", "Process.vcx")
>oRunit.icCommandline = "PrintScreen.exe " + (lcImageFileName)
>oRunit.LaunchAppAndWait()
>oRunit = .NULL.
>Delete File lcImageFileName
>
>select (lnSelect) && Restore to the original work area
>
>* END PRINTSCR.PRG()
Wayne Myers, MCSD
Senior Consultant
Forte' Incorporated
"The only things you can take to heaven are those which you give away" Author Unknown
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform