Link to home
Start Free TrialLog in
Avatar of Karamja
Karamja

asked on

Remote Screen

Hello, I need a client and server program where you can see the desktop of where the server is running.
I need an example.

Thx Karamja

{ Note: I will give upto 735 points but dew to limit I can only put 500, I will give you the rest of the points in a diff question }
ASKER CERTIFIED SOLUTION
Avatar of alsantos
alsantos

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of Karamja
Karamja

ASKER

Hello, Can you upload this project for me to download
Avatar of Karamja

ASKER

That url dont work? lol, Could you e-mail it to webmaster@express-hosting.co.uk
Avatar of Karamja

ASKER

Thx, Sorry about the uploading and e-mail stuff
Thanks too. :)

alsantos
Avatar of kretzschmar
hmm, there is a memory-leak i guess
-> the result of the captureScreen-function is never freed
Yes.... sorry... put "Jpeg.Free;" after the savetostream

procedure TForm1.Button1Click(Sender: TObject);
var
  msSend: TMemoryStream;
  Jpeg: TJPEGImage;
begin
  idClient.Port:=9090;
  idClient.Host:='127.0.0.1';
  idTCpServer1.DefaultPort:=9090;
  idTcpServer1.Active:=True;
  idClient.Connect;
  Jpeg := CaptureScreen;
  msSend := TMemoryStream.Create;
  Jpeg.SaveToStream(msSend); // jpeg.free after the savetostream
  Jpeg.Free; // here
  if idClient.Connected then
  begin
    idClient.WriteLn(IntToStr(msSend.Size));
    idClient.WriteStream(msSend);
  end;
  msSend.Free;
  idClient.Disconnect;
end;

:)

alsantos
Yep, better :-))