Screen Capture Tool für Delphi?

[CreativeMD]

So wie der Titel schon sagt suche ich eine Delphi Komponente mit der ich den Bildschirm aufnehmen kann.
Ich hab eine ganz gute und kostenlose Komponente gefunden, doch irgendetwas mache ich falsch.

Die Komponente ist VideoLab:
http://www.mitov.com/html/videolab.html

Ich hab ScreenCapture mit AVILogger verbunden, doch leider speichert er das Video ab während eraufnimmt, was dazu führt, dass er nur wenige Frames pro Sekunde aufnimmt, also zeitraffer.

Kennt irgendjemand eine gute und kostenlose Komponente oder die Lösung zu meinem Problem?

Ist es eigentlich auch möglich so etwas selbst zu programmieren?

Vielen Dank im voraus

[DeddyH]

Wie ist es hiermit? http://www.torry.net/quicksearchd.ph...nent&Title=Yes

[CreativeMD]

leider ist der aber nicht mehr mit Delphi XE2 kompatibel
wie kann ich den das ganze umschreiben?

EDIT
Neben ein paar kleineren Fehler die sich schnell beheben ließen.
ist doch nun ein größerer Fehler eingetroffen

Delphi-Quellcode:

uses
  // Use professional screen camera units
  scConsts,
  scAboutBox,
  ScrCam,

  // Use delphi standard units
  Classes,
  Forms,
  ToolsAPI,
  SysUtils,
  Graphics,
  {$IFDEF VERSION6}
  DesignIntf,
  DesignEditors;
  {$ELSE}
  dsgnintf;
  {$ENDIF}

[DCC Fataler Fehler] scReg.pas(147): F1026 Datei nicht gefunden: 'dsgnintf.dcu'

EDIT 2

ich hab die Datei heruntergeladen und eingebunden
doch jetzt kommt der fehler
[DCC Fehler] dsgnintf.pas(179): E2003 Undeklarierter Bezeichner: 'IDesigner'

Delphi-Quellcode:

type
  IFormDesigner = interface(IDesigner)
    ['{ADDD444D-1B03-11D3-A8F8-00C04FA32F53}']
    function CreateMethod(const Name: string; TypeData: PTypeData): TMethod;
    function GetMethodName(const Method: TMethod): string;
    procedure GetMethods(TypeData: PTypeData; Proc: TGetStrProc);
    function GetPrivateDirectory: string;
    procedure GetSelections(const List: IDesignerSelections);
    function MethodExists(const Name: string): Boolean;
    procedure RenameMethod(const CurName, NewName: string);
    procedure SelectComponent(Instance: TPersistent);
    procedure SetSelections(const List: IDesignerSelections);
    procedure ShowMethod(const Name: string);
    procedure GetComponentNames(TypeData: PTypeData; Proc: TGetStrProc);
    function GetComponent(const Name: string): TComponent;
    function GetComponentName(Component: TComponent): string;
    function GetObject(const Name: string): TPersistent;
    function GetObjectName(Instance: TPersistent): string;
    procedure GetObjectNames(TypeData: PTypeData; Proc: TGetStrProc);
    function MethodFromAncestor(const Method: TMethod): Boolean;
    function CreateComponent(ComponentClass: TComponentClass; Parent: TComponent;
      Left, Top, Width, Height: Integer): TComponent;
    function IsComponentLinkable(Component: TComponent): Boolean;
    procedure MakeComponentLinkable(Component: TComponent);
    procedure Revert(Instance: TPersistent; PropInfo: PPropInfo);
    function GetIsDormant: Boolean;
    function HasInterface: Boolean;
    function HasInterfaceMember(const Name: string): Boolean;
    procedure AddToInterface(InvKind: Integer; const Name: string; VT: Word;
      const TypeInfo: string);
    procedure GetProjectModules(Proc: TGetModuleProc);
    function GetAncestorDesigner: IFormDesigner;
    function IsSourceReadOnly: Boolean;
    function GetContainerWindow: TWinControl;
    procedure SetContainerWindow(const NewContainer: TWinControl);
    function GetScrollRanges(const ScrollPosition: TPoint): TPoint;
    procedure Edit(const Component: IComponent);
    function BuildLocalMenu(Base: TPopupMenu; Filter: TLocalMenuFilters): TPopupMenu;
    procedure ChainCall(const MethodName, InstanceName, InstanceMethod: string;
      TypeData: PTypeData);
    procedure CopySelection;
    procedure CutSelection;
    function CanPaste: Boolean;
    procedure PasteSelection;
    procedure DeleteSelection;
    procedure ClearSelection;
    procedure NoSelection;
    procedure ModuleFileNames(var ImplFileName, IntfFileName, FormFileName: string);
    function GetRootClassName: string;
    property IsDormant: Boolean read GetIsDormant;
    property AncestorDesigner: IFormDesigner read GetAncestorDesigner;
    property ContainerWindow: TWinControl read GetContainerWindow write SetContainerWindow;
  end;

und noch viele ähnliche Fehler dazu
Hab ich vielleicht die falsche Datei?

[Andreas L.]

So sollte es gehen:

Delphi-Quellcode:

  Classes,
  Forms,
  ToolsAPI,
  SysUtils,
  Graphics,
  DesignIntf,
  DesignEditors;

[CreativeMD]

jetzt habe ich ein neues Problem
die Demo nimmt nur mit 3-4 Frames per second auf.
Hab irgendwie die falschen Einstellungen getätigt.