Here is an example in C#. (It uses a huge amount of memory:)
http://www.codeproject.com/csharp/csCaptureScreen1.asp

Let us know if you can't convert it into J#.

Lars-Inge T?nnessen
www.larsinge.com

Hi,

.NET provides Platform Invocation Services, or PInvoke, that enables J# to
access WinAPI.

Thanks,
Rahul
VJ# Team



--------------------

Tried using Robot, but since that is 1.3, it is not supported.
Any .NET classes that do this?
If not, how would I access WINAPI from J#?

Thank you.

the program below is a command-line utility authored in Delphi (Object
Pascal) to grab a screen part (or all of it) and put it on the clipboard.
You can easily convert it to C if you wish and add code to save to a Windows
Bitmap, then call the command-line utility from J# as you wish (using the
appropriate "System" or "Runtime" class static methods you can execute an
external application). At the Delphi code I don't use {$APPTYPE CONSOLE} at
the start of the code so that it doesn't show a black command-line window
when it's executed from Java or other environment

I have a similar Screen2Printer utility if anyone needs such (to print a
screen part or the whole from Java/J# etc.)
Beware that parts of a window that are out of the screen will be shown as
black (not sure why, something related to the clip region probably, maybe
should update
it first to include the part of the "virtual" desktop to be grabbed, then
grab it)

cheers,
George

//Screen2Clipboard - (C)2001 George Birbilis <birbilis@kagi.com>
//
//This program is FREEWARE!
//Feel free to modify and distribute as long as you give due credit and also
//distribute together with your modified source the original source
unmodified.
//Source parts are from ClipCopy utility used in the "Gaia" educational
software
//
//Version: 5Sep2001

program Screen2Clipboard;
uses Windows,SysUtils;

resourcestring msgSyntax='Syntax: Screen2Clipboard [x1 y1 x2 y2]';
resourcestring msgSyntaxError='Syntax error!';
resourcestring msgNotNumber='x1, y1, x2, y2 must all be numbers!';

function CopyScreenToBitmap(x1,y1, x2,y2:integer):HBITMAP;
var screenDC, memDC : HDC;
   bitmap, oldBitmap : HBITMAP;
   nWidth, nHeight : integer;
begin
//screenDC := CreateDC('DISPLAY'#0, nil, nil, nil); //the 'DISPLAY' string
must be null-terminated, that's why #0 is appended to it

screenDC := GetWindowDC(0);
memDC := CreateCompatibleDC(screenDC);

nWidth := x2-x1+1;
nHeight := y2-y1+1;

bitmap := CreateCompatibleBitmap(screenDC, nWidth, nHeight);
oldBitmap := HBITMAP(SelectObject(memDC, bitmap));

BitBlt(memDC, 0, 0, nWidth, nHeight, screenDC, x1, y1, SRCCOPY);

bitmap := HBITMAP(SelectObject(memDC, oldBitmap));

DeleteDC(screenDC);
DeleteDC(memDC);

result:=bitmap;
end;

function copyBitmapToClipboard(bitmap:HBITMAP):boolean;
begin
result:=OpenClipboard(0{hwndGaia});
if(result) then
 begin
 EmptyClipboard();
 SetClipboardData(CF_BITMAP, bitmap);
 CloseClipboard();
 end;
end;

var x1,y1, x2,y2:integer;
   screenDC:HDC;
begin

if paramCount=0 then
 begin
 screenDC:=GetWindowDC(0);
 x1:=0;
 y1:=0;
 x2:=GetDeviceCaps(screenDC,HORZRES)-1;
 y2:=GetDeviceCaps(screenDC,VERTRES)-1;
 end
else if paramCount=4 then
 try
  x1:=StrToInt(paramStr(1));
  y1:=StrToInt(paramStr(2));
  x2:=StrToInt(paramStr(3));
  y2:=StrToInt(paramStr(4));
 except
  on EConvertError do
   begin
   MessageBox(0,pchar(msgNotNumber),pchar(msgSyntaxError),MB_ICONERROR);
   halt(2);
   exit; //add this here to avoid warning about x1,y1,x2,y2 possibility of
not being initialized
   end;
 end
else
 begin
 MessageBox(0,pchar(msgSyntax),pchar(msgSyntaxError),MB_ICONERROR);
 halt(1);
 exit; //add this here to avoid warning about x1,y1,x2,y2 possibility of
not being initialized
 end;

if CopyBitmapToClipboard(CopyScreenToBitmap(x1,y1,x2,y2))
 then halt(0)
 else halt(3);

end.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
George Birbilis <birbilis@kagi.com>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ QuickTime VCL and ActiveX controls (for PowerPoint/VB/Delphi etc.)
+ Plugs VCL and ActiveX controls (InterProcess/Internet communication)
+ TransFormations, VB6 forms to ASP.net WebForms convertion
http://www.kagi.com/birbilis
+ Robotics
http://www.mech.upatras.gr/~robgroup
........................................................................