Records von Delphi in VB6 verwenden

[ConnorMcLeod]

Da: (aber ich glaube, das hattet Ihr schon besprochen, oder?)

Zitat von EWeiss:

Die erste Type/Record.

Delphi-Quellcode:

type
    TAudioAttributes = packed record
        SampleCount: UInt64;
    end;

Code:

Public Type TAudioAttributes
    SampleCount   As Currency  ' number of total samples
End Type

zweite Record

Delphi-Quellcode:

type
    TMPEGAudioAttributes = packed record
        Position: Int64;                //* Position of header in bytes
        FrameCount: Int64;              //* Total number of MPEG frames (by header)
        Bytes: Int64;                   //* Total bytes
    end;

Code:

Public Type TMPEGAudioAttributes
    Position      As Currency               '* Position of header in bytes
    FrameCount    As Currency               '* Total number of MPEG frames (by header)
    Bytes         As Currency               '* Total bytes
End Type