screen shot

Kig lidt på nedenstående eksempel:

http://borrisholt.com/Grapichs/DelphiSource/ScreenCapture2.zip

Snowball

kan jeg ikke få nogle simple koder istedet, er det ikke bare en smule kode der skal til?

Har du overhovedet kigget på eksemplet !? Der er en funktion på ca. 10-15 linier kode og en knap med ca. 10 linier kode på !

uses
JPEG;

function ScreenCapture:TBitmap;
// this function captures the screen
var
  ScreenDC: HDC;
ARect:TRect;
begin
  Result := TBitmap.Create;
  ARect := Rect(0,0,Screen.Width,Screen.Height);
  Result.Width := ARect.Right - ARect.Left;
  Result.Height := ARect.Bottom - ARect.Top;
  ScreenDC := GetDC( 0 );
  try
    BitBlt( Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, ScreenDC, ARect.Left, ARect.Top, SRCCOPY );
  finally
    ReleaseDC( 0, ScreenDC );
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  BitmapImage : TBitmap;
  JPEGImage : TJPEGImage;
begin

BitmapImage := ScreenCapture();
JpegImage := TJPEGImage.Create;

Try
  JPEGImage.Assign(BitmapImage);
  Image1.Picture.Assign(JPEGImage);
Finally
  JPEGImage.Free;
  BitMapImage.Free;
end
end;

Snowball

Nej jeg har ikke kikket exemplet pga. at jeg er på min skole lige nu og jeg har ikke delphi på disse computere, en ellers tak, jeg kan først prøve det i weekenden.

eehhmm....krab & allan_jeak = samme bruger !?

Snowball

Hvad sker der?

Sorry, allan er en af mine venner!! jeg lod ikke lige mærke til at han ikke havde logget af!!! MIN FEJL.