DataChannels

[snook]

Tja das ist eigentlich das, was der User dann erweitern soll^^. Nee im Ernst, dass ist ja gerade der Witz an der Sache, die "Empfänger" der Daten dachte ich mir als eine BasisKlasse, die eine Methode zum Übersetzen der Daten bereitstellt. Für eine neue Datenquelle muss dann nur diese Methode überschrieben werden. Der Witz ist vielmehr der, dass dieser "Empfänger", oben nannte ich die Teile Übersetzer, einen beliebigen Socket füttern soll. Was dann am Ende der Sockets dranhängt, also ein Channel der nen String zurückgibt, oder einen der nen Array zurückgibt, darüber habe ich keine Macht. Es wäre daher großartig, wenn es generische Datentypen geben würde, die ich dazu auch noch über Programmmodule hinweg (denn der Übersetzer ist ein PlugIn) weiterreichen könnte, sodass am Ende bei dem Channel der gerade am Socket horcht, der richtige Datentyp ankommt.

Wo cih gerade dabei bin, ich habe da eine interessante Konstruktion gefunden, kann die evtl jemand erklären, besonders warum das Interface als Variant verwendet wird und wie ich sowas evtl selber verwenden könnte?

Delphi-Quellcode:

// Dies ist ein Auszug aus der Unit zur Kommunikation mit LabView
type
  CWData = ICWData;
  CWDataSocket = INIDSCtl;


// *********************************************************************//
// Interface: ICWData
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {AC74EF34-F94C-11D0-80F9-00A02454310A}
// *********************************************************************//
  ICWData = interface(IDispatch)
    ['{AC74EF34-F94C-11D0-80F9-00A02454310A}']
    function Get_Value: OleVariant; safecall;
    procedure Set_Value(pVal: OleVariant); safecall;
    function Get__Value: OleVariant; safecall;
    procedure Set__Value(pVal: OleVariant); safecall;
    function GetAttribute(Name: OleVariant; Default: OleVariant): CWData; safecall; //<-- diese Stelle
    procedure SetAttribute(Name: OleVariant; Value: OleVariant); safecall;
    function HasAttribute(Name: OleVariant): WordBool; safecall;
    procedure DeleteAttribute(Name: OleVariant); safecall;
    procedure CopyFrom(const Source: CWData); safecall;
    procedure Reset; safecall;
    function GetAttributeNames: OleVariant; safecall;
    function GetFlexString: OleVariant; safecall;
    procedure SetFromFlexString(FlexString: OleVariant); safecall;
    procedure Set__SetOPCQuality(Param1: CWDSOPCQuality); safecall;
    property Value: OleVariant read Get_Value write Set_Value;
    property _Value: OleVariant read Get__Value write Set__Value;
    property _SetOPCQuality: CWDSOPCQuality write Set__SetOPCQuality;
  end;

// jetzt kann ich sowas anstellen

function TLabViewSocket.ReceiveData(out AData: IComDataStruct): integer;
var
  LVar: Array[0..4] of Variant;
  LAttribute:string;
  i: integer;
  pData: PSocketData;
begin
  if FAcces = atRead then
  begin
    for i := 0 to 4 do
      begin
        case i of
          0: LAttribute:='ChannelName';
          1: LAttribute:='Value';
          2: LAttribute:='UnitString';
          3: LAttribute:='TimeStamp';
          4: LAttribute:='OwningVI';
        end;
      LVar[i]:=FSocket.Data.GetAttribute(LAttribute,'0'); //<-- hier wird aus dem interface ein string
    end;
  end;
end;