AGB  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

C struct nach Delphi record

Ein Thema von Reiner12 · begonnen am 13. Dez 2005 · letzter Beitrag vom 14. Dez 2005
Antwort Antwort
Reiner12

Registriert seit: 30. Jun 2004
5 Beiträge
 
#1

C struct nach Delphi record

  Alt 13. Dez 2005, 13:11
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)
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
  Mit Zitat antworten Zitat
Benutzerbild von Binärbaum
Binärbaum

Registriert seit: 19. Jan 2005
Ort: Elstra
764 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: C struct nach Delphi record

  Alt 13. Dez 2005, 18:31
Ich habe leider nicht die Zeit, den kompletten Code nach Delphi zu übersetzen, aber ich mache mal einen Anfang, indem ich das folgende übersetze:

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:

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
There are exactly 10 kinds of people: those who understand binary, and those who don't.
---
"Software reift beim Kunden. Bei Hardware ist es anders: Hardware fault beim Kunden." - Rainer G. Spallek
  Mit Zitat antworten Zitat
NicoDE
(Gast)

n/a Beiträge
 
#3

Re: C struct nach Delphi record

  Alt 13. Dez 2005, 19:21
Es ist ratsam den Compiler-Schalter {$MINENUMSIZE 4} zu setzen (C-enums haben die Größe eines int).
  Mit Zitat antworten Zitat
Reiner12

Registriert seit: 30. Jun 2004
5 Beiträge
 
#4

Re: C struct nach Delphi record

  Alt 14. Dez 2005, 11:27
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
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
  Mit Zitat antworten Zitat
NicoDE
(Gast)

n/a Beiträge
 
#5

Re: C struct nach Delphi record

  Alt 14. Dez 2005, 11:33
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
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').
  Mit Zitat antworten Zitat
NicoDE
(Gast)

n/a Beiträge
 
#6

Re: C struct nach Delphi record

  Alt 14. Dez 2005, 11:38
Zitat von Binärbaum:
Die Entsprechung in Delphi ist:

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:
Delphi-Quellcode:
type
  PSAMCond = ^TSAMCond;
  TSAMCond = record
    From : Word;
    Treshold: Word;
  end;
  Mit Zitat antworten Zitat
Reiner12

Registriert seit: 30. Jun 2004
5 Beiträge
 
#7

Re: C struct nach Delphi record

  Alt 14. Dez 2005, 14:40
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:
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?
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.
  Mit Zitat antworten Zitat
Der_Unwissende

Registriert seit: 13. Dez 2003
Ort: Berlin
1.756 Beiträge
 
#8

Re: C struct nach Delphi record

  Alt 14. Dez 2005, 15:07
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:
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
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?
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 &lt;&gt; 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
  Mit Zitat antworten Zitat
NicoDE
(Gast)

n/a Beiträge
 
#9

Re: C struct nach Delphi record

  Alt 14. Dez 2005, 15:36
Zitat von Reiner12:
Code:
typedef union {
           WORD W;
           struct { BYTE xorsum;
                    BYTE nullen;
                  };
 } TChkSum;
Delphi-Quellcode:
type
  PChkSum = ^TChkSum;
  TChkSum = record
    case Integer of
      0: (
        W: Word;
        );
      1: (
        xorsum: Byte;
        nullen: Byte;
        );
  end;
  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:

Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:34 Uhr.
Powered by vBulletin® Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2017 by Daniel R. Wolf