UVNC MD SDK Mirror Driver.

[Stilet]

Как и обещал. Выкладываю наработки. Пока без захвата графики.
Критика была бы уместна.

В Аттаче модуль взаимодействия с Миррором.

Основная программа:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses  windows, UVNC, Classes, SysUtils, FileUtil, Forms, Controls, Graphics,
			Dialogs, StdCtrls, ExtCtrls;

type

			{ TForm1 }

      TForm1 = class(TForm)
						ListBox1: TListBox;
						Timer1: TTimer;
						procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
      procedure FormCreate(Sender: TObject);
						procedure Timer1Timer(Sender: TObject);
      private
            { private declarations }
      public
            { public declarations }
      end;

var   vnc:TUVNC;
      Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
   vnc:=TUVNC.Create;
   if not vnc.Start then ShowMessage(AnsiToUtf8(vnc.Error));
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
      vnc.Destroy;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var r:TChangesRecord;
begin
   r:=vnc.LastChange;
 Caption:=IntToStr(vnc.Count);
 ListBox1.Items.Insert(0,format('%s move dx=%d dy=%d rect=%d right=%d top=%d bottom=%d',
  [vnc.ChangeTypeAsString(r), r.cPoint.x,r.cPoint.y,r.cRect.Left,r.cRect.Right,r.cRect.Top,r.cRect.Bottom]
 ));
end;

end.

[Пепел Феникса]

а файл писать проще, чем работать с колбэками из ядра.

[Stilet]

ХМ... Да. Об этом я как-то не подумал.