I.T. Discussion Community!
-Collapse +Expand
Delphi
Search Delphi Group:

Advanced
-Collapse +Expand Delphi To/From
To/FromCODEGuides
-Collapse +Expand Delphi Store
PRESTWOODSTORE

Prestwood eMagazine

April Edition
Subscribe now! It's Free!
Enter your email:

   ► MB LobbyPascal and Delphi Coding BoardDelphi VCL Topic   Print This     

How to get the any computers network desktop scree

How to get the any computers network desktop scree in Delphi VCL topic (part of our Pascal and Delphi Coding group).

Quick Search: computers   network   desktop   How get   How get any   computers network   desktop scree  
Mucan
 (Inactive)
Gemlik
How to get the any computers network desktop screen?

I make i for my computer, like

procedure TForm1.Button1Click(Sender: TObject);
var
DCDesk: HDC;
begin
DCDesk:=GetWindowDC(GetDesktopWindow);
BitBlt(Image1.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,DCDesk, 0, 0,SRCCOPY);
ReleaseDC(GetDesktopWindow, DCDesk);
end;


but how make it any network computer
 Posted 19 years ago (Thread Starter)
Comment Quote
About Mucan -Collapse +Expand
Visit Profile
Inactive member.
Member does not subscribe to this thread.
Email Not Verified!
Once email is verified, we will review and approve the account.
Web Presence Hidden.
Once above is taken care of, full Profile content will display including back links, about me, my message, custom Profile html, social networking links, message board signature, company profile, etc.

Post ID #1071, 3 replies
Thread Started 2/21/2001 3:46:00 PM
View Counter=2490
Last Reply Posted 4/19/2001 2:35:00 AM)
Location=Gemlik  
Joined=19 years ago   MB Posts=2  
Larry J. Rutledge
Prestwood IT
Citrus Heights, CA USA
To accomplish this you will need two applications, a server and a client. The client application would sit on each machine on the network and listen to a specific TCP port. When contacted by the server application, this application would copy the desktop into a bitmap and then stream the bitmap to the server application.

The server application would allow you to specify a computer on the network and then ask that computer to send its desktop. Finally, the server application would receive the bitmap stream from the client application.

------------------
Larry J. Rutledge

Programmer / Analyst
Prestwood Software & Consulting
7525 Auburn Blvd., #8
Citrus Heights, CA 95610


Old UBB Archived Link: [URL=http://www.prestwood.com]www.prestwood.com[/URL]


Serving your IT needs since 1984!
Larry J. Rutledge

Analyst

Prestwood Software

www.prestwood.com
 Posted 19 years ago
Comment Quote
About Larry J. Rutledge -Collapse +Expand
Visit Profile
Approved member.
Member subscribes to this thread with a verified email.
About Larry J. Rutledge
I worked for Prestwood Software as a Delphi developer from 1997 through 2002. During that time I enjoyed working with Mike Prestwood and the other developers at Prestwood.

Post ID #1167 (Level 1.1)  Reply to 1071
Thread Started 2/28/2001 10:44:00 AM
View Counter=2
Location=Citrus Heights, CA USA 
Joined=20 years ago   MB Posts=73   KB Posts=9  
Mucan
 (Inactive)
Gemlik
How make it.if you are to make public I happy.
Which component and how?

Thanks.
 Posted 19 years ago (Thread Starter)
Comment Quote
About Mucan -Collapse +Expand
Visit Profile
Inactive member.
Member does not subscribe to this thread.
Email Not Verified!
Once email is verified, we will review and approve the account.
Web Presence Hidden.
Once above is taken care of, full Profile content will display including back links, about me, my message, custom Profile html, social networking links, message board signature, company profile, etc.

Post ID #1220 (Level 1.2)  Reply to 1071
Reply Posted 3/4/2001 1:41:00 PM
Location=Gemlik  
Joined=19 years ago   MB Posts=2  
Most Recent Post
Mido
 (Inactive)
-- USA
Hi,

try to use this code:

procedure TForm1.Button1Click(Sender: TObject);
var BrowseInfo: TBrowseInfo;
ComputerName: array [0..50] of Char;
begin
BrowseInfo.hwndOwner := Application.Handle;
BrowseInfo.pidlRoot := nil;
BrowseInfo.pszDisplayName := ComputerName;
BrowseInfo.lpszTitle := 'Select a computer';
BrowseInfo.lpfn := nil;
BrowseInfo.ulFlags := BIF_BROWSEFORCOMPUTER;

// Limit selection Scope to NETWORK
SHGetSpecialFolderLocation(Application.Handle, CSIDL_NETWORK,
BrowseInfo.pidlRoot);

// Show dialog
SHBrowseForFolder(BrowseInfo);


and don't forget to add SHLOBJ to uses
 Posted 19 years ago
Comment Quote
About Mido -Collapse +Expand
Visit Profile
Inactive member.
Member does not subscribe to this thread.
Email Not Verified!
Once email is verified, we will review and approve the account.
Web Presence Hidden.
Once above is taken care of, full Profile content will display including back links, about me, my message, custom Profile html, social networking links, message board signature, company profile, etc.

Post ID #1786 (Level 1.3)  Reply to 1071
Reply Posted 4/19/2001 2:35:00 AM
Location=-- USA 
Joined=19 years ago   MB Posts=21  

Revive Thread!

Add a comment to revive this old thread and make this archived thread more useful.

Write a Comment...
Full Editor
...
Sign in...

If you are a member, Sign In. Or, you can Create a Free account now.


Anonymous Post (text-only, no HTML):

Enter your name and security key.

Your Name:
Security key = P184A1
Enter key:
Icon: A Post    Thread    Idea    Important!    Cool    Sad    No    Yes    Includes a Link...   
Thread #1071 Counter
2490
Since 4/2/2008

Follow PrestwoodBoards on: 


©1995-2020 PrestwoodBoards  [Security & Privacy]
Professional IT Services: Coding | Websites | Computer Tech