Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 187
  • Last Modified:

Screen Capture - all screen

i 'am building program that i want to take screen capture of hole screen and send it to the server machine (client/server)

take screen capture of client machine and send the picture to server machine

Trausti
0
trausti
Asked:
trausti
  • 8
  • 5
  • 2
  • +2
1 Solution
 
ZifNabCommented:
Hi

Epsylon has answered this already, see Q.10297975

Zif.
0
 
EpsylonCommented:
Here it is:

procedure TForm1.Button2Click(Sender: TObject);
var
  WndDC: HDc;
  WndRect: TRect;
  WndCanvas: TCanvas;
  Wnd: HWND;
  WWidth, WHeight: Integer;
begin
  Image1.AutoSize := false; // important!!!
  Wnd := GetDesktopWindow;
  WndDC := GetWindowDC(Wnd);
  WndCanvas := TCanvas.Create;
  WndCanvas.Handle := WndDC;
  GetWindowRect(Wnd, WndRect);

  WWidth := WndRect.Right - WndRect.Left;
  WHeight := WndRect.Bottom - WndRect.Top;

  Image1.Width := WWidth;
  Image1.Height := WHeight;
  Image1.Canvas.CopyRect(Rect(0, 0, WWidth, WHeight), WndCanvas, Rect(0, 0, WWidth, WHeight));
  WndCanvas.Free;
  ReleaseDC(Wnd,WndDC);
end;
0
 
EpsylonCommented:
Sending the image is another story...
What kind of connecton do you have in mind?
0
Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
intheCommented:
listening..
0
 
traustiAuthor Commented:
Adjusted points to 120
0
 
traustiAuthor Commented:

i'am on 'local area network' and like to send the picture to another computer on same network

Trausti
0
 
FreakyCommented:

Which Delphi-version do you use ?

Greets

 Sascha
0
 
FreakyCommented:

Which Delphi-version do you use ?

Greets

 Sascha
0
 
FreakyCommented:

Which Delphi-version do you use ?

Greets

 Sascha
0
 
traustiAuthor Commented:
Delphi 4.0 and Delphi 5.0, Professional

Trausti
0
 
traustiAuthor Commented:
Delphi 4.0 and Delphi 5.0, Professional

Trausti
0
 
FreakyCommented:

Transfer the bitmap as Stream using the
Server/Client socket components.

It works pretty well.

Greets

 Sascha

0
 
traustiAuthor Commented:
any example?

Trausti
0
 
FreakyCommented:

Posting the code in here would be a bit too much, but you can have a look at the example shipped with delphi.

It shows you the basics of using the socket-components.

It's in $(DELPHI)\DEMOS\INTERNET\CHAT


feel free asking me further questions

 Greets

  Sascha
0
 
traustiAuthor Commented:
thanks, i will test the demo and try

hear you again later...

Trausti
0
 
traustiAuthor Commented:
all works fine.

..<Trausti>.



0
 
traustiAuthor Commented:
all works fine.

..<Trausti>.



0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 8
  • 5
  • 2
  • +2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now