Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Header Übersetzung -> Delphi (https://www.delphipraxis.net/108301-header-uebersetzung-delphi.html)

Johnny_W 24. Feb 2008 16:05

Re: Header Übersetzung -> Delphi
 
Hallo,

ich brauche wieder mal Hilfe bei der Übersetzung.
Der Union ist neu für mich und BYTE Abs:1<--- ist das hier ein Initialisierungswert, oder wie verstehe ich die Zahl?

Code:
typedef struct
{
DWORD Version;
DWord FeatureID; //Steht für den Typ z.b. Balance
union
{
    struct
    {
      BYTE Abs:1;
      WORD Value;
      float Abs_Value;
    } Std;

    struct
    {
      BYTE Abs:1;
      BYTE On_Off:1;
      BYTE Auto_M:1;
      float Abs_Value;
    } Balance;
    BOOL Exec_Flag;
    BOOL PowerOn_Flag;
} u;
}ZCL_GETFEATUREVALUE,
Das ist mein Versuch :
Delphi-Quellcode:
type
  ZCL_GETFEATUREVALUE= record
  Version : DWord;
  FeatureID : DWord;
  u : record
    case integer of
    0:
    (
      std : record
        Abs : Byte;
        Value : Word;
        Abs_Value : Single;
      end;
    );
    1:
    (
      Balance : record
        Abs : Byte;
        On_Off: Byte;
        Auto_M: Byte;
        Abs_Value : single;
     
      end;
    );
    Exec_Flag : bool;
    PowerOn_Flag : bool;
  end;
end;
Der Record wird an eine Funktion übergeben, die diesen je nach FeatureID "füllt" .

Ist dieser Funktion durch den Aufbau des Records "u" bekannt, welche Inneren Records mit Werten belegt werden müssen,
oder wie kann ich das verstehen?

Viele Grüße!

Johnny_W 25. Feb 2008 17:12

Re: Header Übersetzung -> Delphi
 
Ich schiebe das Thema mal dezent hoch. :)

viele Grüße!

halinchen 25. Feb 2008 17:33

Re: Header Übersetzung -> Delphi
 
Zitat:

Zitat von Johnny_W
Der Union ist neu für mich und BYTE Abs:1<--- ist das hier ein Initialisierungswert, oder wie

Das ist ein Bitfeld. Sowas gibt es in Delphi meines Wissens nicht. Es dient nur zur Datenkomprimierung und müsste in Delphi weggelassen werden können. (Solange die Daten nicht extern verwendet werden, also an ein Gerät geschickt werden, etc.)

Aber 100% sicher bin ich mir nicht.

Mit Unions habe ich noch nicht gearbeitet und habe keine Ahnung.

Johnny_W 27. Feb 2008 06:39

Re: Header Übersetzung -> Delphi
 
Danke Dir Halinchen,

dann bekomme ich das mit Bitmasken dementsprechend schon hin.
Na dann sitze ich wenigstens nicht alleine im Boot, was Unions anbetrifft. :)

viele Grüße!


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:27 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz