RDP viewer in Pascal

[shonay]

Hows it going fam?

Please Any ideas on how one can go about Creating a Remote Desktop Viewer in Pascal with Mouse Control.
Any ideas

[Eugene Loza]

I've never done any such thing, so my answer will be very "theoretical".

First you have to make a pair of applications (transmitter and receiver).
Then you have to set up a network link between them. I'd try looking here http://wiki.freepascal.org/Networking
Then you'll have to transfer a full-screen screenshots (e.g. see  http://forum.lazarus.freepascal.org/index.php?topic=18560.0 ) across the network. You'd better optimize the process by compressing difference between the old and new image and sending this compressed stream.
Then you'll have to grab global mouse cursor position and synchronize it between the transmitter form (namely, image displaying the remote desktop) and receiver. I.e. you get the transmitter mouse location, send it to receiver and assign to the global cursor (e.g. see http://forum.lazarus.freepascal.org/index.php/topic,16257.msg87984.html#msg87984).

The "Skeleton" looks pretty simple, but the implementation seems relatively complex to me.

[Thaddy]

Hows it going fam?

Please Any ideas on how one can go about Creating a Remote Desktop Viewer in Pascal with Mouse Control.
Any ideas

Translate X into Pascal. Very doable, very time consuming.

[avra]

http://wiki.freepascal.org/Lazarus_Application_Gallery#CheckRide

[johnsson]

I'm not doing exactly a RDP, but here is a little example of my program running against the ammy.

http://youtu.be/qiQDksOqzmI

I also tested a lot benchmark like team viewer, vnc and others.
The version displayed on video is about 3 years ago.

Btw, it's 100% Lazarus free pascal code.

[dieselnutjob]

I am looking for some code that I can modify (and re-release open source or whatever) so that I can run a "screen viewer / clicker / keyboard" on one computer (pref Windows) and a computer remote control daemon on another (probably Linux).  The modification I want to make is this:-

I want it to work with no dependance on TCP/IP or layer 3 networking protocol. I want to be able to connect the client to the server over an RS232 null modem or other "serial like" interface.

The reason for this is that it will be useful in environments where security policies do not allow support engineers for example to connect their own laptop to the network of the server, or maybe it is difficult to get on the network as the Ethernet ports are controlled.

Also it would be useful when you want a laptop to do two things at the same time (like home/work) but you can't connect to an internal corporate network and the public Internet at the same time.  This way you could have your corporate laptop on the corporate network and connect a Pi zero to public hotspot and export the screen over USB into a window on the laptop without risking the corporate network security.  You could also monitor your private email / web whatever without your colleagues realising what you are up to

Which would be the easiest open source thing that I could mess with in Lazarus/Freepascal to acheive this?

Projects that I am aware of are Checkride and Delphivnc

[sulecio]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
  activexcontainer, MSTSCLib_1_0_TLB,Registry;

type

  { TForm1 }

  TForm1 = class(TForm)
    ActiveXContainer1: TActiveXContainer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  RDP: TEvsMsRdpClient2;
begin
 RDP:=TEvsMsRdpClient2.Create(self);
 RDP.ComServer.UserName:='';
 RDP.ComServer.Server:='127.0.0.2';
 RDP.ComServer.AdvancedSettings3.RDPPort:=3389;
 RDP.ComServer.Connect;
 ActivexContainer1.ComServer:= RDP.ComServer;
 ActivexContainer1.Active:=true;

end;

end.

[ArminLinder]

Hi all,

I wanted to give this a try, but failed to find any trace of MSTSCLib_1_0_TLB and TEvsMsRdpClient2.

Anyone who knows these?

Thnx, Armin.

[rvk]

I wanted to give this a try, but failed to find any trace of MSTSCLib_1_0_TLB and TEvsMsRdpClient2.

Anyone who knows these?

You probably need to create that one yourself.
Seeing the name _TLB it's probably an import of the MSTSCLib library.

You can read how to do that here (via Tools / Import / Type library)
https://wiki.lazarus.freepascal.org/LazActiveX

You can try to import the c:\windows\system32\MSTSC.dll and see what you get.
(I'm not behind a computer to try)