Aufzählungstyp per indy versenden.....

[Thomas83]

hi,

habe einen Aufzählungstyp und möchte diesen gerne per indy versenden.

Delphi-Quellcode:

Type
  TMyTyp = (mtEins,mrZwei,mtDrei);

...

var
  mytyp : TMyTyp;
begin
  mytyp := mtZwei;  
  fIdTcpClient.WriteBuffer(mytyp,sizeof(TMyTyp)); //<-vielleicht so
  //oder doch
  case mytyp of
    mtEins : fIdTcpClient.WriteInteger(1);
    mtZwei : fIdTcpClient.WriteInteger(2);
    mtDrei : fIdTcpClient.WriteInteger(3);
  end;
  //...
end;

[Neutral General]

Hi,

Das müsste beides gehn und ich glaube es könnte sogar:

Delphi-Quellcode:

fIdTcpClient.WriteInteger(mytyp);

funktionieren.

Gruß
Neutral General

[SirThornberry]

den Typ kannst du nicht versenden aber eine den Wert einer Variablen dieses Types. Ein Aufzählungstyp ist auch nur ein ordinaler Wert daher kannst du die Funktionen zum versenden von ordinalen Werten verwenden.

[Muetze1]

Siehe auch (schon sprachlich) die Funktion Ord()

[Thomas83]

Zitat:

Zitat von Neutral General

Hi,

Das müsste beides gehn und ich glaube es könnte sogar:

Delphi-Quellcode:

fIdTcpClient.WriteInteger(mytyp);

funktionieren.

Gruß
Neutral General

funktioniert nicht "ungültiger typ TmyTyp und integer"

Zitat:

Zitat von SirThornberry

den Typ kannst du nicht versenden aber eine den Wert einer Variablen dieses Types. Ein Aufzählungstyp ist auch nur ein ordinaler Wert daher kannst du die Funktionen zum versenden von ordinalen Werten verwenden.

möchte ja auch nicht den Typen versenden sondern die variable vom typ TmyTyp

[Neutral General]

Hi,

Dann versuch es so:

Delphi-Quellcode:

fIdTcpClient.WriteInteger(Integer(mytyp));

Gruß
Neutral General

[SirThornberry]

wie NeutralGenereal schon gepostet hat musst du casten. Das ist eine Eigenschaft von Delphi weshalb die Sprache auch für Anfänger so gut geeignet ist. Durch die Typen-Strenge passiert es nicht so schnell das man variablen verschiedenen types wild durcheinander würfelt.