Verständnisproblem mit Strukturen

[ts-soft]

Ich möchte folgende Strukturen nach XProfan umsetzen:

typedef struct SDL_CDtrack {
    Uint8 id;        /**< Track number */
    Uint8 type;        /**< Data or audio track */
    Uint16 unused;
    Uint32 length;        /**< Length, in frames, of this track */
    Uint32 offset;        /**< Offset, in frames, from start of disk */
} SDL_CDtrack;

/** This structure is only current as of the last call to SDL_CDStatus() */
typedef struct SDL_CD {
    int id;            /**< Private drive identifier */
    CDstatus status;    /**< Current drive status */

    /** The rest of this structure is only valid if there's a CD in drive */
        /*@{*/
    int numtracks;        /**< Number of tracks on disk */
    int cur_track;        /**< Current track position */
    int cur_frame;        /**< Current frame offset within current track */
    SDL_CDtrack track[SDL_MAX_TRACKS+1];
        /*@}*/
} SDL_CD;

Die vererbte Strukture mit Array ist mir nicht ganz klar. Meine bisherige Umsetzung sieht wie folgt aus:

Def SDL_MAX_TRACKS& = 99
Struct SDL_CDTRACK = id#(1), type#(1), unused%, length&, offset&
Struct SDL_CD = id&, status&, numtracks&, cur_track&, cur_frame&, SDL_CDTRACK(SDL_MAX_TRACKS& + 1)' <-- ??

Bei Erfolg sollte die Strukture SDL_CD eine größe von 1220 Bytes haben.

Wie setzt man das um?

Gruß
Thomas

[iF_]

Hallo Thomas,

hier liegt eher eine Vorhaltung als Vererbung vor da ich auch keine Zuweisungen als Pointer erkenne - an der Stelle "SDL_CDtrack track[SDL_MAX_TRACKS+1]" sollte einfach das Vorhalten von sizeof(SDL_CDtrack)*(SDL_MAX_TRACKS+1) Bytes schon funktionieren - vlt. kannst Du das mal so ausprobieren.

[ts-soft]

Zitat von iF_

Hallo Thomas,

hier liegt eher eine Vorhaltung als Vererbung vor da ich auch keine Zuweisungen als Pointer erkenne - an der Stelle "SDL_CDtrack track[SDL_MAX_TRACKS+1]" sollte einfach das Vorhalten von sizeof(SDL_CDtrack)*(SDL_MAX_TRACKS+1) Bytes schon funktionieren - vlt. kannst Du das mal so ausprobieren.

Was ist Vorhaltung?
Meinst Du, ich sollte an der Stelle lediglich eine Bereichsvariable stellen, in
der passenden größe und den dort ankommenden pointer dann auf einer
SDL_CDtrack strukturieren Bereich zuweisen?

Sehr unkomfortabel. Eigentlich sollten strukturierte Typen in strukturen in
XProfan doch funktionieren. Bloß als Array will das irgendwie nicht klappen.

Vielleicht kommen ja noch andere Vorschläge, schließlich hab ich jede
Menge solcher Strukturen umzusetzen

Gruß
Thomas

[ts-soft]

Ich sehe schon, ich als Profan Anfänger muß das wohl alleine lösen

Soweit bin ich jetzt:

Struct SDL_CD = id&, status&, numtracks&, cur_track&, cur_frame&, SDL_CDTRACK#(1200)
Struct SDL_CDTRACK = id#(1), type#(1), unused%, length&, offset&

Declare SDL_CDTRACK#[99], SDL_CD#

Dim SDL_CDTRACK#[], SDL_CDTRACK
Dim SDL_CD#, SDL_CD

SDL_CDTRACK#[0] = SDL_CD#.SDL_CDTRACK# ' ist das so möglich?

Größe des SDL_CD# Bereichs stimmt, geht nur noch um die Zuweisung an
die Array-Bereichvariable. Vielleicht hat jemand sowas schon gemacht?

Will auf jedenfall nicht mit OffsetOf * SizeOf usw. arbeiten.

[Andreas Miethe]

Hallo Thomas,

meinst Du etwas in dieser Art ?

DEF &SDL_MAX_TRACKS 99

Struct SDL_CDTRACK = id#(1), type#(1), unused%, length&, offset&
Struct SDL_CD = id&, status&, numtracks&, cur_track&, cur_frame&, CD!SDL_CDTRACK

Declare SDL_CD#[&SDL_MAX_TRACKS]
Dim SDL_CD#[],SDL_CD

SDL_CD#[0].CD!offset& = 50
SDL_CD#[99].CD!offset& = 150
Print SDL_CD#[0].CD!offset&
Print SDL_CD#[99].CD!offset&


waitinput
end

[ts-soft]

Hallo Andreas,

sieht schon mal sehr gut aus, bin mir aber nicht sicher, ob die
Bereichsvariable auch 1220 Bytes groß ist. Mit SizeOf bekomme ich keinen
korrekten Wert (kann auch daran liegen, das ich mit Bereichsvariablen immer
noch auf Kriegsfuß stehe).

Ich muss den Bereich ja an eine DLL übergeben. Die geht davon aus, das sie
so viel Platz hat.

Gruß
Thomas

[Andreas Miethe]

Zitat von ts-soft

Hallo Andreas,

sieht schon mal sehr gut aus, bin mir aber nicht sicher, ob die
Bereichsvariable auch 1220 Bytes groß ist.

Ist sie nicht, die 3100 nochwas gross.

Für das, was Du da vorhast musst Du wohl einen Umweg gehen.
In dieser Art etwa

Def MoveMemory(3) !"KERNEL32","RtlMoveMemory"
DEF &SDL_MAX_TRACKS 99

Struct SDL_CDTRACK = id#(1), type#(1), unused%, length&, offset&
Struct SDL_CD = id&, status&, numtracks&, cur_track&, cur_frame&, SDL_CDTRACK#(1200)

Var SD# = New(SDL_CD)
Print "Strukturgrösse :";sizeof(sd#)," Bytes"

Clear sd#

'hier zum lesen schicken

'dann auslesen

Declare SDL_CDTRACK#[&SDL_MAX_TRACKS]
Dim SDL_CDTRACK#[],SDL_CDTRACK

'Trackdaten kopieren
MoveMemory(SDL_CDTRACK#[0],SD#+20,1200)
Print SDL_CDTRACK#[0].offset&

waitinput
end

[ts-soft]

Danke Andreas, das sollte klappen!

Schön ist es trotzdem nicht

Gruß
Thomas

[Andreas Miethe]

Da ist mir grad' noch was eingefallen.

Kopieren ist vielleicht nicht nötig. Solte auch so

SDL_CDTRACK#[0] = SD#+20

gehen.

[ts-soft]

Das wäre schon schöner, werde ich testen, danke.