Problem mit X10 Fernbedienung

[omata]

Hallo Delphi Star,

sorry hatte deinen Text nicht vollständig gelesen. Da du die Komponente aus der Komponentenleiste nimmst, wird wohl immer noch der alte Code benutzt. Kopiere einfach die geänderte Unit X10_TLB in dein Projektverzeichnis und füge sie zum Projekt hinzu. Dann erstellst du die Komponente einfach selber...

Delphi-Quellcode:

interface

uses
  ... X10_TLB ...
:
  private
    { Private-Deklarationen }
    FX10Interface: TX10Interface;
:

procedure TForm.FormCreate(Sender: TObject);
begin
  FX10Interface:=TX10Interface.Create(Self);
  FX10Interface.Parent:=Self;
  FX10Interface.OnX10Command:=FX10Interface1X10Command;
end;

procedure TForm.FormDestroy(Sender: TObject);
begin
  FX10Interface.Free;
end;

procedure TForm.FX10Interface1X10Command(ASender: TObject;
  const bszCommand: WideString; eCommand: TOleEnum; lAddress: Integer;
  EKeyState: TOleEnum; lSequence: Integer; eCommandType: TOleEnum;
  varTimestamp: TDateTime);
begin
...
end;

Gruss
Thorsten