Page 1 of 1

Screen Capture project

Posted: 21 Sep 2010 18:58
by Steve Lympany
Find attached a VIP3 project that captures the screen (picture), and displays it in a form.

It is simply an update of Rob K's work (Vitalik) (thanks Rob)

http://discuss.visual-prolog.com/viewtopic.php?t=6896

The project contains his dll in the EXE folder.

Maybe there are other ways, without the need for the DLL....??

Steve

Posted: 22 Sep 2010 8:07
by Vitaly Markov
I did capture of the screen (static picture only) as follows (2000 year, Visual Prolog 5.2):
1. The size of task window should be maximal.
2. The window should be transparent.
3. Capture of screen (VIP5.2):

Code: Select all

  task_win_eh(_Win,e_MouseDbl(_PNT,_ShiftCtlAlt,_Button),0):-!,         H = vpi_GetAttrVal(attr_screen_height),         % get screen height         W = vpi_GetAttrVal(attr_screen_width),          % get screen width         PICTURE = pict_GetFromWin(_Win,rct(0,0,W,H)),          % capture         PICTURE1 = pict_Rotate(PICTURE,pictRotate_180deg),  % rotation of "screen"         pict_Draw(_Win,PICTURE1,pnt(0,0),rop_SrcCopy),        %  :-))         pict_Destroy(PICTURE),         !.
This code till now works.
I believe, that the main idea is made in points 1 and 2.