AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

XE2 GENERIC RECORDS als Funktionsparameter

Ein Thema von bernhard_LA · begonnen am 28. Jun 2012 · letzter Beitrag vom 28. Jun 2012
Antwort Antwort
bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.068 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

XE2 GENERIC RECORDS als Funktionsparameter

  Alt 28. Jun 2012, 09:59
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;
  Mit Zitat antworten Zitat
daywalker9

Registriert seit: 1. Jan 2010
Ort: Leer
594 Beiträge
 
Delphi XE3 Professional
 
#2

AW: XE2 GENERIC RECORDS als Funktionsparameter

  Alt 28. Jun 2012, 10:44
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
Lars

Geändert von daywalker9 (28. Jun 2012 um 10:53 Uhr)
  Mit Zitat antworten Zitat
bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.068 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#3

AW: XE2 GENERIC RECORDS als Funktionsparameter

  Alt 28. Jun 2012, 11:21
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
  Mit Zitat antworten Zitat
daywalker9

Registriert seit: 1. Jan 2010
Ort: Leer
594 Beiträge
 
Delphi XE3 Professional
 
#4

AW: XE2 GENERIC RECORDS als Funktionsparameter

  Alt 28. Jun 2012, 13:42
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;
Lars
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
9.849 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: XE2 GENERIC RECORDS als Funktionsparameter

  Alt 28. Jun 2012, 13:44
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;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.068 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#6

AW: XE2 GENERIC RECORDS als Funktionsparameter

  Alt 28. Jun 2012, 17:37
DANKE !! !!!!


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

Geändert von bernhard_LA (28. Jun 2012 um 17:50 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
9.849 Beiträge
 
Delphi 11 Alexandria
 
#7

AW: XE2 GENERIC RECORDS als Funktionsparameter

  Alt 28. Jun 2012, 17:42
Delphi-Quellcode:

    procedure IdTCPServerSendCommandRecord(AContext: TIdContext;
      Sendrecord: TGenericRecord<T>);
Du hast ja auch das <T> im Methodennamen weggelassen!

IdTCPServerReadCommandRecord<T>
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:16 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf