C struct nach Delphi record

**Reiner12**

Hallo DP'ler.

Wir schreiben ein werkzeug das mit Tobit David kommunizieren soll.
Im Archiv-Verzeichnis des David-Servers liegt unter anderem eine Datei names archive.dat.
Diese Daten enthält Informationen über die im Archiv enthaltenen Objekte.
Diese Informationen sind als 430 Byte große Datensätze abgespeichert und können ausgelesen werden (sollen).
Dafür liegt der Doku eine C-Struktur names TSendRec bei.

Leider sind meine C-Kentnisse mehr als dürftig und so habe ich große Schwierigkeiten diese Structur in Delphi umzusetzen.

Ich weiß dass das eine ungewöhnliche Frage ist, aber ihr würdet mir echt weiterhelfen wenn ihr mir diese Structur in Delphi übersetzt könntet.

Vielen Dank schon mal im voraus.

Hier die C-Structur TSendRec: (sorry für den langen Post)

markieren

Code:

			#ifndef TSENDREC_H_INCLUDED

#define MA_KEINE          0

#define MA_ABSCHLUSS      1

#define MA_IMMER          2

#define MA_ERROR          3

#define MA_ABSCHLUSSERROR 4

#ifdef __TURBOC__

typedef struct {

                    WORD  From;

                    WORD  Threshold;

 } TSAMCond;

#else

typedef struct {

                    WORD  From;

                    WORD  Threshold;

 } TSAMCondOld;

typedef struct {

                    long  From : 12;

                    long  To : 12;

                    long  Threshold : 8;

 } TSAMCond;

#endif

#define LineSpecL(n) (*((long*) &n))

typedef enum {

               PL_G3,

               PL_FAXPLUS,

               PL_FAXIP,

               PL_EMAIL,

               PL_WAV,

               PL_TMAIL,

               PL_SMS,

               PL_ECT,

               PL_FAX_BCAST,

               PL_EMAIL_BCAST,

               PL_SMS_BCAST,

               PL_HOUSECTRL,

               PL_COUNT

} TLineSpecNo;

#define LSN2LS(lsn) (1L << lsn)

#define LS_G3          LSN2LS(PL_G3)

#define LS_FAXPLUS     LSN2LS(PL_FAXPLUS)

#define LS_FAXIP       LSN2LS(PL_FAXIP)

#define LS_EMAIL       LSN2LS(PL_EMAIL)

#define LS_WAV         LSN2LS(PL_WAV)

#define LS_TMAIL       LSN2LS(PL_TMAIL)

#define LS_SMS         LSN2LS(PL_SMS)

#define LS_ECT         LSN2LS(PL_ECT)

#define LS_FAX_BCAST   LSN2LS(PL_FAX_BCAST)

#define LS_EMAIL_BCAST LSN2LS(PL_EMAIL_BCAST)

#define LS_SMS_BCAST   LSN2LS(PL_SMS_BCAST)

#define LS_HOUSECTRL   LSN2LS(PL_HOUSECTRL)

#define LS_ALL         (0xFFFFFFFF)

#define LS_FAX_        (LS_G3|LS_FAXPLUS|LS_FAXIP|LS_FAX_BCAST)

#define LS_FREE_MAIL   (LS_EMAIL|LS_EMAIL_BCAST|LS_SMS_BCAST)

typedef long TLineSpec;

#define SRFBDocNo NextBroadCastPos

typedef enum {

               DOC_TYPE_FAX,          //  000

               DOC_TYPE_DIR,          //  001

               DOC_TYPE_EMAIL,        //  010

               DOC_TYPE_TMAIL,        //  011

               DOC_TYPE_WAV,          //  100

               DOC_TYPE_EXT,          //  101

               DOC_TYPE_ADDR,         //  110

               DOC_TYPE_SMS,          //  111

               DOC_TYPE_UNKNOWN,      // 1000

               DOC_TYPE_SCHEDULE,     // 1001

               DOC_TYPE_ECT,          // 1010

               DOC_TYPE_LINK,         // 1011

 } TDocTypeEnum;

#define FAXHUB_ACCEPTED  0

#define FAXHUB_ACTIVE    1

#define FAXHUB_REJECTED  2

#define FAXHUB_DONE      3

#ifndef TCHKSUM

#define TCHKSUM

//see also y:\allgdef.h

typedef union {

           WORD W;

           struct { BYTE xorsum;

                    BYTE nullen;

                  };

 } TChkSum;

#endif

typedef struct {

                 BYTE Compression : 3;

                 BYTE Flash : 1;

                 BYTE Split : 4;

} TSMSFlags;

typedef union {

                 DWORD DW;

                 struct {

                 DWORD Time: 20;

                 #define SSA_BUSY         0

                 #define SSA_FREE         1

                 #define SSA_TENTATIVE    2

                 #define SSA_OUTOFOFFICE  3

                 DWORD ShowAs: 4;

                 DWORD reserved1: 4;

                 DWORD reserved: 1;

                 DWORD Private: 1;

                 DWORD WasActive: 1;

                 DWORD Active: 1;

                 };

  #define SetScheduleShowAs(v,as)    (v).ShowAs = (DWORD) (as)

  #define SetSRScheduleShowAs(sr,as) SetScheduleShowAs((sr)->ScheduleReminderOffset,as)

  #define GetScheduleShowAs(v)       (v).ShowAs

  #define GetSRScheduleShowAs(sr)    GetScheduleShowAs ((sr)->ScheduleReminderOffset)

} TScheduleReminderOffset;

#define SRSMSFlags(sr) (*((TSMSFlags*) (&(sr)->FaxBoxFlags)))

#define ARCHIVE_USER_ID (0xFFFFFFFFL)

#define SERVER_USER_ID  (-2)

typedef struct {

  #define SND_FREE                     Bit00

  #define SND_AT_TLD                   Bit01

  #define SND_DIR_ONLYMAINARCHIVE      SND_AT_TLD

  #define SND_RNDWAIT                  Bit02

  #define SND_RX                       Bit03

  #define SND_PRINTED                  Bit04

  #define SND_INHIBIT                  Bit05

  #define SND_MASTER_BROADCAST         Bit06

  #define SND_MOVE_AS_DEFAULT          SND_MASTER_BROADCAST

  #define SND_BROADCAST                Bit07

  #define SND_VIEWED                   Bit08

  #define SND_ACCOUNTED                Bit09

  #define SND_DELETED                  Bit10

  #define SND_USR_INHIBIT              Bit11

  #define SND_DEL_RND                  Bit12

  #define SND_IGNORE_TRY               Bit13

  #define SND_MASTER_COLLECTION        Bit14

  #define SND_READONLY                 Bit15

           WORD         Status;

  #define SNDO_SHORTCUT                Bit00

  #define SNDO_PRIVATE                 Bit01

  #define SNDO_PRIORITY_MASK           (Bit02|Bit03)

  #define SNDO_100x200                 Bit04

  #define SNDO_HTML                    SNDO_100x200

  #define SNDO_EMAIL_EXTERN            Bit05

  #define SNDO_DISABLE_COLLECT         Bit06

  #define SNDO_FAXMERGE                Bit07

  #define SNDO_BFX                     Bit08

  #define SNDO_NOAPPENDDEL             Bit09

  #define xxx SNDO_CALC_ACC_REQ           Bit10

  #define SNDO_FAXBOX                  Bit11

  #define SNDO_DOCTYPE_MASK            (Bit12|Bit13|Bit14)

  #define SNDO_REMINDER                Bit15

           WORD         Options;

  #define SNDF_PM_SEND_MASK            (SNDF_GOOD_BAD_MASK|SNDF_DFML|SNDF_CC|SNDF_TRACK_ENTRY|SNDF_REGISTERED_DELIVERY)

  #define SNDF_FORWARD                 Bit00

  #define SNDF_THUMBNAILCREATED        Bit01

  #define SNDF_OWNER                   Bit02

  #define SNDF_DONOTCHECKDELIVERY      Bit03

  #define SNDF_DIAL_ACCOUNTKEY         Bit04

  #define SNDF_GOOD                    Bit05

  #define SNDF_BAD                     Bit06

  #define SNDF_GOOD_BAD_MASK           (SNDF_GOOD|SNDF_BAD)

  #define SNDF_NOLOG                   Bit07

  #define SNDF_CHKSUM                  Bit08

  #define SNDF_ARCHIVE_OWNER           Bit09

  #define SNDF_SORT_UP                 Bit10      /* only in ARCHIVE.DIR */

  #define SNDF_ALLDAY_EVENT            Bit10      /* only in ARCHIVE.DAT */

  #define SNDF_AUTODEL_CORRECT         Bit11

  #define SNDF_AUTODEL_CONCLUSION      Bit12

  #define SNDF_AUTODEL                 (SNDF_AUTODEL_CORRECT | SNDF_AUTODEL_CONCLUSION)

  #define SNDF_CHECKARCHIVE            Bit13

  #define SNDF_0PAGES                  Bit14

  #define SNDF_DISABLE_IHS_REPLICATION Bit15

  #define SNDF_RESENDED_JOB            Bit16   

  #define SNDF_CALC_ACCOUNT            Bit17

  #define SNDF_CONNECT                 Bit18 

  #define SNDF_BROADCAST               Bit19

  #define SNDF_DFML                    Bit20

  #define SNDF_CC                      Bit21

  #define SNDF_MIGRATE                 Bit22

  #define SNDF_MA_DELETE_MARK          Bit23

  #define SNDF_CALC_ACC_REQ            Bit24

  #define SNDF_REPLICATE               Bit25      /* only in ARCHIVE.DIR */

  #define SNDF_TRACK_ENTRY             Bit25      /* only in ARCHIVE.DAT */

  #define SNDF_INHIBIT_REPLICATE       Bit26      /* only in ARCHIVE.DIR */

  #define SNDF_REGISTERED_DELIVERY     Bit26      /* only in ARCHIVE.DAT */

  #define SNDF_NUMBER_CLI_COMPARE      Bit27     

  #define SNDF_APPOINTMENT             Bit28

  #define SNDF_DISABLE_INDEX           Bit29       /* only in ARCHIVE.DIR */

  #define SNDF_EX_BROADCAST            Bit29       /* only in ARCHIVE.DAT */

  #define SNDF_DOCMAN                  Bit30       /* Fa: Info-SYS    */

                                                   /* Produkt: DocMan */

  #define SNDF_TELEFORM_FLAG           Bit31

  //----------------------------------------

           long         Flags;

  #define SNDX_

  #define SNDX_NO_LOCAL                Bit21

  #define SNDX_ATTENDEES               Bit22

  #define SNDX_ETRN                    Bit23

  #define SNDX_REPLYED                 Bit24

  #define SNDX_FORWARDED               Bit25

  #define SNDX_IHS_JOB                 Bit26

  #define SNDX_TLS_USED                Bit27

  #define SNDX_OVERWRITE               Bit28

  #define SNDX_USETLS                  Bit29

  #define SNDX_NOARCHIVE               Bit30

  #define SNDX_RESEARCH                Bit31

  long      FlagsEx;               //Only for internal use

  long      Owner;                 //Only for internal use

  long      QID;                   //The Queue where the job

                                   //was printed

  WORD      PageCount;             //Summary pages of the job

  Long      StatusTime;            //Time of the log according to

                                   //the status, and the time is

                                   //coded as UCT (Unsiversal

                                   //Coordinated Time). Represents

                                   //a counter of secondes since

                                   //00:00:00 1.Jan.1970

  long      SendTime;              //Sending date for the job.

                                   //Definitions are in the following 

                                   //table:

                         #define ST_IMMEDIATE     -1

                         #define ST_NIGHT         -2

                         #define xST_DY           (-10)

                         #define xST_DY_IMMEDIATE (-10)

                         #define xST_DY_QUICK     (-11)

                         #define xST_DY_NORMAL    (-12)

                         #define xST_DY_AT_BEST   (-13)

  char      TriesDone;            //Number of sending tries.

  char      ErrorNo;              //The following error codes are

                                  //obligatory for the Transport Layer

                                  //Drivers. They are stored in the 

                                  //variable ErrorNo in the TsendRec

                  0       sent

                  1..9    unknown error

                  10      unknown hardware problem

                  ...

                  97..100 unknown error

  WORD         AbortStatus;            // Reserved

  long         TotalBroadCastCnt;      //total number of broadcasts

  char         PagesSent;              //Correct transmitted pages before

                                       //an error appears

  char         FaxBoxFlags;            //Only for internal use.

                                       //Definitions are in the following 

                                       //table:

#define FBF_DELDOC    Bit00

#define FBF_APPDOC    Bit01

#define FBF_NEWDOC    (Bit00 | Bit01)

#define FBF_FORWARD   Bit02

  WORD         RndCount;               //Current broadcast counter

  WORD         BaudRate;               //In the case of the TLD.TX,

                                       //this entry contains the baud 

                                       //rate which should not be 

                                       //exceeded when sending. When 

                                       //a fax is received, the 

                                       //corresponding transmissionrate is 

                                       //entered into thisvariable in the 

                                       //file TLD.RX.

                                         0 = 2.400  Baud

                                         1 = 4.800  Baud

                                         2 = 7.200  Baud

                                         3 = 9.600  Baud

                                         4 = 12.000 Baud

                                         5 = 14.400 Baud

  char         AktLine;               //Only for internal use

  WORD         RecNo;                 //Only for internal use

  WORD         UnitsCount;            //Only for internal use

  WORD         Duration;              //If the fax hardware does NOT

                                      //support the evalution of the 

                                      //charge impulse, the entries

                                      //transmission time (in seconds)

                                      //requested for the transmission

                                      //has to be inserted in this 

                                      //variable.

  char         PrintedOn;             //Only for internal use

  char         MaxRepeats;            //Only for internal use

  char         NoticeType;            //Only for internal use

  char         xxxx_del_GraphType;    //Only for internal use

  char         SysArt;                //Kind of the log file for

                                      //example saREC, saLOG…

  long         NextBroadCastPos;      //Only for internal use

  char         Printing;              //Only for internal use

                                      //Definitions are in the following 

                                      //table:

#define DR_NEVER              0

#define DR_ONLY_IF_SENT       1

#define DR_ALWAYS             2

#define DR_ONLY_IF_NOT_SENT   3

#define DR_ON_COMPLETION      4

  long         OutPRNNo;              //Only for internal use

  char         SourceFileName [8+1];  //Only for internal use

  long         ExStatusTime;          //Only for internal use

  WORD         Account;               //Supports the fax hardware

                                      //the accounting, so is account

                                      //carying the number of tics.

  char         AllowedTLDLine;        //Only for internal use

  TChkSum      ChkSum;                //Checksum

  char         SourceFileDir;         //Number of the FileFaxService

  long         SenderID;              //Only for internal use

  TSAMCond     SAM;                   //Information about a collection

  TScheduleReminderOffset ScheduleReminderOffset;

  char       xxx_2_try_RoutNo [8 + 1];//Indentification for distribution

  char         RoutSign;              //Only for internal use.

                                      //Definitions are in the following 

                                      //table:

#define xVA_CSID      0

#define xVA_DTMF      1

#define xVA_DID       2

#define xVA_EAZ       3

  char         Application;           //To find easier the logs it is 

                                      //possible to give a job an

                                      //application number. You can do it

                                      //with the command @@APPLICATION

                                      //directly in your fax.

  long         CurrentNumber;         //Only for internal use

  char         ErrorGroup;            //Only for internal use

  char         Text [263];            //This field contains the most

                                      //important information about a log

                                      //like

                                         0 –

                                         1 Called Number

                                      //  ...

                                      //Every entry is beginning with

                                      //the string ID, look above, and

                                      //ends with NULL.

  char         Reserve [1];           //Only for internal use

  long         LastChangedTime;       //Last Replication time

                                      //(in Sec. since 01/01/1970)

  BYTE         NewDocType;            //Same as Options/SNDO_DOCTYPE_MASK

                                      //but has priority over

  long         ExpireTime;            //Expiration of message

  BYTE         ExtDocType;                     

#define SRCMD_FLAG_MASK     0xFF000000

#define SRCMDF_COPY         0x01000000

#define SRCMDF_MULTIRX      0x02000000

#define SRCMD_TCK_CMD_MASK  0x000FF000

#define SetSRCommand(sr,cmd) { (sr)->command &= ~ SRCMD_ENUM_MASK; \

                               (sr)->command |= (cmd & SRCMD_ENUM_MASK); \

                             }

#define GetSRCommand(sr)       ((sr)->command & SRCMD_ENUM_MASK) 

#define SetSRTckCmd(sr,n)    { (sr)->command &= ~SRCMD_TCK_CMD_MASK; \

                               (sr)->command |= ((((long) (n)) << 12) & SRCMD_TCK_CMD_MASK); \

                             }

#define GetSRTckCmd(sr)        (((sr)->command & SRCMD_TCK_CMD_MASK) >> 12)

#define SRCMD_ENUM_MASK     0x00000FFF

#define SRCMD_CREATEJOB              1

#define SRCMD_REMIND                 2

#define SRCMD_FAX_POLL               3

#define SRCMD_MSG_TRACKING           4

#define SRCMD_INSERTSENDREC          5

#define SRCMD_ADDTRACKINGREPLY       6

#define SRCMD_CREATEARCHIVE 200

  long         ArchiveProtocolPrinter;  //Printer entered in ServiceLayer

                                        //available Printers

  long         TrackingID [2];          //Message Tracking Information  

           #define TCKI_RECNO 0      /* RecNo in Tracking List */

           #define TCKI_JOBID 1      /* Copy of JobID          */

  long         command;                //Only for internal use

  char         SymbolColor;            //Symbol color of Archive icon

  long         ReminderBits;           //Reminder, means what kind of

                                       //remind used

  char         ServiceID;              //Only for internal use

  char         xxx_del_DirSplitNo;     //Only for internal use

  WORD         OrigDuration;           //Only for internal use

  TLineSpec    LineSpec;               //Only for internal use

  char         RatesNo;                //Is used the accounting area

  long         StopTime;               //Calendar stop time of entry

  char         Delivery;               //Only for internal use

                                       //Definitions are in the following 

                                       //table:

#define DY_OPTIMIZEDVALUE 10000

#define DY_IMMEDIATE 0

#define DY_QUICK     1

#define DY_NORMAL    2

#define DY_OPTIMIZED 3

  long         JobID;                  //Only for internal use

  char         SymNumber;              //Only for internal use

  long         Creator;                //Only for internal use

 } TSendRec;

#define SetSRDocType(sr,DocType)               { \

          (sr)->Options &= ~SNDO_DOCTYPE_MASK;   \

          (sr)->Options |= (DocType << 12);    }

#define GetDocType(options) ((options & SNDO_DOCTYPE_MASK) >> 12)

#define GetSRDocType(sr) GetDocType ((sr)->Options)

#define GetSRDocTypeEx(sr) (((sr)->Flags & SNDF_APPOINTMENT) ? DOC_TYPE_SCHEDULE : \

                            ((sr)->Flags & SNDF_CONNECT) ? DOC_TYPE_ECT : \

                            GetSRDocType (sr))

#define IsValidExpireTime(ExpireTime) ( (ExpireTime == 0) || (ExpireTime > flGetTime ()) )

#define IsSRValidExpireTime(sr) (IsValidExpireTime ((sr)->ExpireTime))

#define IsSpecialExpireTimeFlag(ExpireTime) ((ExpireTime == 1))

#define IsSRSpecialExpireTimeFlag(sr) (IsSpecialExpireTimeFlag((sr)->ExpireTime))

#define LOW_PRIORITY      1

#define NORMAL_PRIORITY   0

#define HIGH_PRIORITY     2

#ifndef _WINDOWS

#define GetPriority(o)    ((o & SNDO_PRIORITY_MASK) >> 2)

#define GetSRPriority(sr) (GetPriority ((sr)->Options))

#else

#define _GetPriority(o)   ((o & SNDO_PRIORITY_MASK) >> 2)

#define GetSRPriority(sr) (_GetPriority ((sr)->Options))

#endif

#define SetSRPriority(sr,priority)              { \

          (sr)->Options &= ~SNDO_PRIORITY_MASK;   \

          (sr)->Options |= ((priority&3) << 2); }

#define SR_NORMAL 0

#define SR_GOOD   1

#define SR_BAD    2

#define GetGoodBad(f)      ((f & SNDF_GOOD_BAD_MASK) >> 5)

#define GetSRGoodBad(sr)   (GetGoodBad((sr)->Flags))

#define SetSRGoodBad(sr,goodbad)                { \

          (sr)->Flags &= ~SNDF_GOOD_BAD;          \

          (sr)->Flags |= ((goodbad&3) << 5);    }

#define IsSRReminderOffset(sr)    ((sr)->ScheduleReminderOffset.Active != 0) 

#define GetSRReminderOffset(sr)   (IsSRReminderOffset(sr) ? (60L * (sr)->ScheduleReminderOffset.Time) : 0)

#define GetSRReminderDateTime(sr) ( ((sr)->ScheduleReminderOffset.Active == 0) ? \

                                    (sr)->SendTime :                                     \

                                    (sr)->SendTime - (60L * (sr)->ScheduleReminderOffset.Time) )

#define TRECRec TSendRec

#define TSENDREC_H_INCLUDED

#endif

Danke und Grüße
Reiner

**Binärbaum**

Ich habe leider nicht die Zeit, den kompletten Code nach Delphi zu übersetzen, aber ich mache mal einen Anfang, indem ich das folgende übersetze:

markieren

Code:

			typedef struct {

                    WORD  From;

                    WORD  Threshold;

 } TSAMCond;

typedef struct {

                    WORD  From;

                    WORD  Threshold;

 } TSAMCondOld;

typedef enum {

               PL_G3,

               PL_FAXPLUS,

               PL_FAXIP,

               PL_EMAIL,

               PL_WAV,

               PL_TMAIL,

               PL_SMS,

               PL_ECT,

               PL_FAX_BCAST,

               PL_EMAIL_BCAST,

               PL_SMS_BCAST,

               PL_HOUSECTRL,

               PL_COUNT

} TLineSpecNo;

typedef enum {

               DOC_TYPE_FAX,          //  000

               DOC_TYPE_DIR,          //  001

               DOC_TYPE_EMAIL,        //  010

               DOC_TYPE_TMAIL,        //  011

               DOC_TYPE_WAV,          //  100

               DOC_TYPE_EXT,          //  101

               DOC_TYPE_ADDR,         //  110

               DOC_TYPE_SMS,          //  111

               DOC_TYPE_UNKNOWN,      // 1000

               DOC_TYPE_SCHEDULE,     // 1001

               DOC_TYPE_ECT,          // 1010

               DOC_TYPE_LINK,         // 1011

 } TDocTypeEnum;

Die Entsprechung in Delphi ist:

zusammenfalten · markieren

Delphi-Quellcode:

			type

  TSAMCond = record

               From, Treshold: Word;

  end;

  TSAMCondOld = record

               From, Treshold: Word;

  end;

  TLineSpecNo = (

               PL_G3,

               PL_FAXPLUS,

               PL_FAXIP,

               PL_EMAIL,

               PL_WAV,

               PL_TMAIL,

               PL_SMS,

               PL_ECT,

               PL_FAX_BCAST,

               PL_EMAIL_BCAST,

               PL_SMS_BCAST,

               PL_HOUSECTRL,

               PL_COUNT

              );

  TDocTypeEnum = (

               DOC_TYPE_FAX,          //  000

               DOC_TYPE_DIR,          //  001

               DOC_TYPE_EMAIL,        //  010

               DOC_TYPE_TMAIL,        //  011

               DOC_TYPE_WAV,          //  100

               DOC_TYPE_EXT,          //  101

               DOC_TYPE_ADDR,         //  110

               DOC_TYPE_SMS,          //  111

               DOC_TYPE_UNKNOWN,      // 1000

               DOC_TYPE_SCHEDULE,     // 1001

               DOC_TYPE_ECT,          // 1010

               DOC_TYPE_LINK         // 1011

              );

Einige der anderen Typdeklarationen lassen sich analog dazu übersetzen. Das Wort struct steht für "structure" und entspricht einem Record in Delphi, enum steht für "enumeration type", also Aufzählungstyp.

MfG
Binärbaum

Es ist ratsam den Compiler-Schalter {$MINENUMSIZE 4} zu setzen (C-enums haben die Größe eines int).

**Reiner12**

Danke Binärbaum,

die typedef struct und typedef enum hab ich alle übersetzt so wie du es gezeigt hast.
Ich nehme an #define sind Konstanten.
Ein WORD bleibt ein WORD, ein DWORD ein DWORD und ein BYTE ein BYTE.

Was ist ein LONG?

In der Doku habe ich noch folgendes gefunden:

Zitat:

Attention: The TSendRec struct was designed for 16 bit compilers, so check the following definitions, and use Struct Member 1 Byte Alignment within the compiler.
INT 2 Byte
LONG 4 Byte
WORD 2 Byte
BYTE 1 Byte

Ist ein LONG ein LongWord in Delphi?

Entspricht

markieren

Code:

char Text [263];

einem Text : String[263]; oder eher einem Text : Array [0..262] of char; Und was heißt deschar SourceFileName [8+1]; Wieso +1?

Und was mach ich mit typedef union?

Grüße
Reiner

Zitat von Reiner12:

Was ist ein LONG?

LongInt (32-Bit, vorzeichenbehaftet).

Zitat von Reiner12:

use Struct Member 1 Byte Alignment within the compiler.

packed record.

Zitat von Reiner12:

Entspricht

markieren

Code:

char Text [263];

einem Text : String[263]; oder eher einem Text : Array [0..262] of char;

Letzteres.

Zitat von Reiner12:

Und was heißt deschar SourceFileName [8+1]; Wieso +1?

s.o., nur dass der Entwickler verdeutlichen wollte, dass ein Byte (möglicherweise Null-Byte-Terminator oder Längenbyte...) zu den 8 Zeichen dazu kommt.

Zitat von Reiner12:

Und was mach ich mit typedef union?

Das lässt sich mit varianten Teilen eines Records übersetzen (siehe Hilfe zu 'case').

Zitat von Binärbaum:

Die Entsprechung in Delphi ist:

markieren

Delphi-Quellcode:

			type

  TSAMCond = record

               From, Treshold: Word;

  end;

Nur am Rande: Bitte die Strukturmitglieder einzeln deklarieren. In diesem Falle tritt kein Problem auf; aber es gab Compiler-Bugs, bei denen die Ausrichtung in solchen Deklarationen nicht beachtet wurde...
...also:

markieren

Delphi-Quellcode:

			type

  PSAMCond = ^TSAMCond;

  TSAMCond = record

    From    : Word;

    Treshold: Word;

  end;

**Reiner12**

Super. Ich habe die Structur im Großen und Ganzen in Delphi übersetzen können.
Funktioniert auch, liest wunderbar meine Datensätze ein.

Nur mit typedef union hab ich noch Verständnisprobleme.
Die Varianten Teile in Records habe ich zwar kappiert, aber irgendwie läßt sich das für mich nicht auf dieses Konstrukt anwenden:

markieren

Code:

			typedef union {

           WORD W;

           struct { BYTE xorsum;

                    BYTE nullen;

                  };

 } TChkSum;

Ist mir völlig unlogisch.

Wenn Variente Teile in Records mittels Case definiert werden und Case Konstanten verlangt, in der Structur aber keine Konstanten drin sind ...

Fest steht, das TChkSum ein WORD groß ist. Sonst passt das Ganze TSendRecord nicht mehr.
Und der Inhalt sind entwerder NULLen oder was anderes.

Die Structur TScheduleReminderOffset z.B. kann ich mir wiederum erklären.

Aber ich merke schon. Ich muß fitter werden in C.

Ist es im C-Source eigendlich normal das #define in mitten den Structuren stehen?

Und was bedeuten das?

markieren

Code:

			#define GetGoodBad(f)      ((f & SNDF_GOOD_BAD_MASK) >> 5)

#define GetSRGoodBad(sr)   (GetGoodBad((sr)->Flags))

#define SetSRGoodBad(sr,goodbad)                { \

          (sr)->Flags &= ~SNDF_GOOD_BAD;          \

          (sr)->Flags |= ((goodbad&3) << 5);    }

#define <> Konstante ??

Grüße
Reiner

P.S.: Bevor ihr mich haut, das C++ Buch ist bestellt.

**Der_Unwissende**

Zitat von Reiner12:

Nur mit typedef union hab ich noch Verständnisprobleme.
Die Varianten Teile in Records habe ich zwar kappiert, aber irgendwie läßt sich das für mich nicht auf dieses Konstrukt anwenden:

markieren

Code:

			typedef union {

           WORD W;

           struct { BYTE xorsum;

                    BYTE nullen;

                  };

 } TChkSum;

Ist mir völlig unlogisch.

Die Idee ist eigentlich ganz einfach, du legst für "struct { Byte xorsum, Byte nullen}" einen neuen Type an, dann erstellst du ein

markieren

Delphi-Quellcode:

			TChkSum = record

  case Integer of

   0 : (w : Word);

   1 : (n : NeuerTyp); 

end;

Hier kannst du dann mit TChkSum entweder TChkSum.w benutzen oder halt TChkSum.n.xorsum und TChkSum.n.nullen, dabei wird ein solches variantes Record immer nur den maximalen Platzbedarf reservieren. Deutlicher wäre es, wenn z.B. n 32 Bit hätte, dann wäre w < 32 Bit (16 Bit), aber dein Record immer genau 32 Bit groß.

Die benutzten Konstanten sind eigentlich völlig egal.

Zitat von Reiner12:

Ist es im C-Source eigendlich normal das #define in mitten den Structuren stehen?

Und was bedeuten das?

markieren

Code:

			#define GetGoodBad(f)      ((f & SNDF_GOOD_BAD_MASK) >&gt; 5)

#define GetSRGoodBad(sr)   (GetGoodBad((sr)-&gt;Flags))

#define SetSRGoodBad(sr,goodbad)                { \

          (sr)-&gt;Flags &amp;= ~SNDF_GOOD_BAD;          \

          (sr)-&gt;Flags |= ((goodbad&amp;3) <&lt; 5);    }

#define <> Konstante ??

Willkommen in der Welt von C / Präprozessoren. Mit #define legst du eigentlich nur makros fest. Der präprozessor düst dann durch den Code und ersetzt einfach nur die mittels #define deklarierten Blöcke. Ab Delphi 2005 müsste es inline geben, was dann gleichwertig ist.
Also für GetGoodBad(f) ist es einfach nur ein Makro. Du kannst genauso gut eine Methode verwenden, aber die hätte dann immer den Overhead des Aufrufs (ablegen auf dem Stack, ...). Ist eigentlich eher bei sehr hardwarenaher Programmierung (insbesondere wenn die Ressourcen knapp sind) von Bedeutung, auf heutigen Rechnern ist der Overhead einer Prozedur/Funktion doch stark zu vernachlässigen (imho).

Gruß Der Unwissende

Zitat von Reiner12:

markieren

Code:

			typedef union {

           WORD W;

           struct { BYTE xorsum;

                    BYTE nullen;

                  };

 } TChkSum;

zusammenfalten · markieren

Delphi-Quellcode:

			type

  PChkSum = ^TChkSum;

  TChkSum = record

    case Integer of

      0: (

        W: Word;

        );

      1: (

        xorsum: Byte;

        nullen: Byte;

        );

  end;

C struct nach Delphi record

C struct nach Delphi record

Re: C struct nach Delphi record

Re: C struct nach Delphi record

Re: C struct nach Delphi record

Re: C struct nach Delphi record

Re: C struct nach Delphi record

Re: C struct nach Delphi record

Re: C struct nach Delphi record

Re: C struct nach Delphi record

Forumregeln

NicoDE (Gast) n/a Beiträge	#3 Re: C struct nach Delphi record 13. Dez 2005, 19:21 Es ist ratsam den Compiler-Schalter {$MINENUMSIZE 4} zu setzen (C-enums haben die Größe eines int).
	Zitat