XE2 GENERIC RECORDS als Funktionsparameter

[bernhard_LA]

ich möchte mit INDY 10 verschiedene Records zwischen Client und Server austauschen. Die Frage bezieht sich nur auf die Verwendung von Generics. Die Funktion IdTCPServerReadCommandRecord(AContext: TIdContext; ReceiveRecord : TGenericRecord<TCommBlock> ); erlaubt es mir den Generic Record Type TCommBlock vom Client zu empfangen. Soweit ist alles OK.
Die Definition von TGenericRecord findet Ihr unten.
Da ich ja verschiedene Record Typen senden und empfangen will wäre es toll wenn ich die procedure IdTCPServerReadCommandRecord(AContext: TIdContext; ReceiveRecord : TGenericRecord) umschreiben könnte und damit eine Serverfunktion zum empfangen aller verschiedener RecordTypen verwenden könnte.
Geht dies mit Generics? (und unter Verwendung meiner bisherigen Datentype ...)

Delphi-Quellcode:

procedure TServerMainForm.IdTCPServerReadCommandRecord(AContext: TIdContext; ReceiveRecord : TGenericRecord<TCommBlock> );
var  LBuffer: TBytes;
begin

  if (ReceiveBuffer(AContext, LBuffer) = False) then

  begin

    TIdNotify.NotifyMethod(ShowCannotGetDataErrorMessage);

    Exit;

  end
  else
  begin

    ReceiveRecord.value := ReceiveRecord.ByteArrayToMyRecord(LBuffer);

    Global_Receive_Record := ReceiveRecord.Value;

    TIdNotify.NotifyMethod(ShowDataReceivedMessage);

  end;

end;



procedure TServerMainForm.IdTCPServerExecute(AContext: TIdContext);
var
  aSendrecord : TGenericRecord<TCommBlock>;      ///  verschiedene generic records 
  aReceiveRecord : TGenericRecord<TCommBlock>;
  aReceiveDataRecord : TGenericRecord<TDataBlock>;
  ......
 
  LBuffer: TBytes;
begin

  aSendrecord := TGenericRecord<TCommBlock>.Create;        
  aReceiveRecord := TGenericRecord<TCommBlock>.Create;
  ....   


  ///
  ///

   TIdNotify.NotifyMethod(ShowStartServerMessage);

   IdTCPServerReadCommandRecord(AContext, aReceiveRecord);

Die Definition des generic records :

Delphi-Quellcode:

type
  TGenericRecord<TRecordType> = class

    private
    FValue : TRecordType ;
    FIsNil : Boolean;

    public
    /// <summary>
    /// Convert Byte to Record , outputtype : TRecordType
    /// </summary>
    /// <param name="ABuffer">
    /// Byte Array
    /// </param>
    function ByteArrayToMyRecord(ABuffer: TBytes): TRecordType;
    // class function ByteArrayToMyRecord(ABuffer: TBytes): TRecordType; static;

    /// <summary>
    /// Store a Record into a BYTE Array
    /// </summary>
    /// <param name="aRecord">
    /// adjust this record definition to your needs
    /// </param>
    function MyRecordToByteArray(aRecord: TRecordType): TBytes;
    // class function MyRecordToByteArray(aRecord: TRecordType): TBytes; static;


    property Value   : TRecordType  read FValue  write  FValue;
    property IsNil   : Boolean read FIsNil  write FIsNil;
  end;

[daywalker9]

Evtl <T> ergänzen bei der Deklaration der Funktion:


 TServerMainForm.IdTCPServerReadCommandRecord<T: TGenericRecord>(.., MyRecord : T) //muss vom Typ TGenericRecord sein Dann kannst Du jeden Record übergeben der vom Typ TGenericRecord ist

[bernhard_LA]

mag der compiler alles nicht


procedure IdTCPServerReadCommandRecord<T : TGenericRecord<TRecordType>>(AContext: TIdContext; ReceiveRecord : T );

hier sagt mir der compiler unbekanntes feld TRecordType

und bei

procedure IdTCPServerReadCommandRecord<T : TGenericRecord >(AContext: TIdContext; ReceiveRecord : T );

sagt mir der compiler unbekannt TGenericRecord ... die definition von TGenericRecord ist aber definitiv eingebunden , denn die Version


procedure IdTCPServerReadCommandRecord(AContext: TIdContext; ReceiveRecord : TGenericRecord<TCommBlock> );
macht ja was sie soll und hier kennt der compiler alles

[daywalker9]

So müsste es aber tun:

Delphi-Quellcode:

type
  TGenRec<TRecordType>=class
  private
    FRecTyp: TRecordType;
  public
    property Rec : TRecordType read FRecTyp write FRecTyp;
  end;

type
  TForm6 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure doit<T>(rec:TGenRec<T>);
  end;

[Uwe Raabe]

Aber so sollte es gehen:

Delphi-Quellcode:

procedure IdTCPServerReadCommandRecord<T>(AContext: TIdContext; ReceiveRecord : TGenericRecord<T> );
begin
end;

...

var
  aSendrecord : TGenericRecord<TCommBlock>; /// verschiedene generic records
  aReceiveRecord : TGenericRecord<TCommBlock>;
  aReceiveDataRecord : TGenericRecord<TDataBlock>;
  Context: TIdContext;
begin
  ...
  IdTCPServerReadCommandRecord<TCommBlock>(context, AReceiveRecord);
  IdTCPServerReadCommandRecord<TDataBlock>(context, AReceiveDataRecord);
  ...
end;

[bernhard_LA]

DANKE !! !!!!


wenn man die Lösung sieht ist eigentlich alles ganz einfach und logisch ....

[Uwe Raabe]

Zitat von bernhard_LA:

Delphi-Quellcode:

    procedure IdTCPServerSendCommandRecord(AContext: TIdContext;
      Sendrecord: TGenericRecord<T>);

Du hast ja auch das <T> im Methodennamen weggelassen!

IdTCPServerReadCommandRecord<T>