Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
General field to clipboard
Message
From
12/07/2001 15:45:25
 
General information
Forum:
Visual FoxPro
Category:
Windows API functions
Miscellaneous
Thread ID:
00529829
Message ID:
00529956
Views:
27
Claude:
The following code is used to put the screen into a general field.

* "Press" or for the user
declare integer keybd_event in Win32API integer, ;
integer, integer, integer
vk_snapshot = 44

* Copy the active application window to the clipboard
* (equivalent to )
=keybd_event(vk_snapshot, 0, 0, 0)


lnSelect = select()

define window PrintScr from 500, 500 TO 600, 600
activate window PrintScr

* Let the user know we are working, wait one second to allow print screen to finish
wait window "Preparing Screen Print" timeout 1

create cursor PrintScreen (ScreenPrt G, Notes M)
select PrintScreen
append blank

* * ScreenPrt general field
* = Save changes to and close the ScreenPrt general
* field
keyboard '{Ctrl+V}{Ctrl+W}' plain clear
modify general ScreenPrt window PrintScr


Using this code from Gentofil.prg
CASE FSEEK(liHandlein,599)>0 AND FREAD(liHandlein,2)="BM"
lcExtension="BMP"
liEndOffset=FSEEK(liHandlein,599)+83

(which is very similar to your suggestion)
The debugger tells me that FREAD(liHandlein,2) is " " when the screen was saved on a Windows 98 box and
2 odd characters (1 of which is a funny "y". I commented out the AND above and saved to a file with a .BMP
extension and tried to open it with Futuris Imager. There is nothing there to show me.

Any ideas?
Mike
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform