Basically I want to write a program that can establish a
PC to PC network connection and transmit screen dumps
between one another for remote viewing.
I found the folling code (thanks to Craig Francisco)which, dumps a screen image to a form's canvas.
procedure TScrnFrm.GrabScreen;
var
DeskTopDC: HDc;
DeskTopCanvas: TCanvas;
DeskTopRect: TRect;
begin
DeskTopDC := GetWindowDC(GetDeskTopWind
ow);
DeskTopCanvas := TCanvas.Create;
DeskTopCanvas.Handle := DeskTopDC;
DeskTopRect := Rect(0,0,Screen.Width,Scre
en.Height)
;
ScrnForm.Canvas.CopyRect(D
eskTopRect
,
DeskTopCanvas,DeskTopRect)
;
ReleaseDC(GetDeskTopWindow
,DeskTopDC
);
end;
i know it works (though id like to have the ability to somehow scale the canvas down to a more easily viewable area)
anyways I can establish some basic communications between the apps thanks to François PIETTE's networking components,
but im just not sure how to go about tieing it all together.
any help would be much appreciated.
Mike
brentlin@purdue.edu
http://expert.cc.purdue.edu/~brentlin/
Good luck working it out,
Stuart.