Bonjour à tous.

J'ai un nouveau problème à vous soumettre.
Je voudrais utiliser une DLL, et je dois utiliser ces variables:

TCdRom = record
HaId : Byte;
Target : Byte;
Lun : Byte;
Vendor : ShortString;
ProductId : ShortString;
Revision : ShortString;
VendorSpec: ShortString;
end;

TCdRoms = record
CdRomCount: Byte;
CdRom : array[0..25] of TCdRom;
end;

TTOC = record
M: Byte;
S: Byte;
F: Byte;
AudioTrack: Boolean; // indicates if the track is an audio or data track
end;

TCdToc = record
TracksOnCD: Byte;
LeadOut : TTOC;
Tracks : array[0..99] of TTOC;
end;

Je voudrais savoir comment les déclarer?
En variable composée, classe ou structure?

Merci.

je pense à des structures... c'est généralement ce qui est utilisé pour les API.

Pour les correspondances des types, en référer à WDAPI livré avec WinDev 8

Record = structure.

Tu as récupéré ce code sur Delphi?

Je sais aps si c'est du delphi ou pas. en fait je veux calculer le discID d'un cd audio pour avoir acces à freedb.org
J'ai une DLL avec les fonctions suivante et les déclarations de variables à faire(cf premier message). Je ne savais pas comment on déclarait les variable. maintenant, je vais pouvoir essayer de passer des paramètre pour comment marche ces fonctions.

Merci pour votrez aide.

voici les fonctions contenue dans la DLL:

AspiInstalled

The AspiInstalled function checks if the Aspi drivers are correctly installed.
function AspiInstalled: Integer;
Return Values

If the function succeeds, the return value is the number of hosts installed in the system.
If the function fails, the return value is -1.


CalcDiscID

The CalcDiscID calculates the DiscID from the TOC (Table of Contents).
function CalcDiscID(CdToc: TCdToc): Cardinal;
Parameters

CdToc
Return Values

The return value is the DiscID.


GetCdRomDrives

The GetCdRomDrives scans for Cd-Rom installed on the system and retrieves informations over the Cd-Rom drive.
function GetCdRomDrives(var CdRoms: TCdRoms): Boolean;
Parameters

CdRoms
Return Values

If the function succeeds, the return value is TRUE.
If the function fails, the return value is FALSE.

ReadCdToc

The ReadCdToc read the TOC from a spedified Cd-Rom drive.
function ReadCdTOC(CdRom: TCdRom; var Toc: TCdToc): Boolean;
Parameters

CdRom

Toc
Return Values

If the function succeeds, the return value is TRUE.
If the function fails, the return value is FALSE.