Discussion :

[waste]

bonjour, j'aime bien mettre une musique dans mes applications,

pour l'instant j'utilise un controle windows media pour lire un mp3 que je rend invisible ,

mais je dois ensuite binder mon exécutable et le mp3 avec iexpress pour ne faire qu'un fichier , c'est contraignant et de plus , iexpress est détecté par certain anti virus et peut faire passer mon prog pour un fichier backdooré,

est -il possible de mettre le mp3 sous forme de .res pour l'utiliser , ou il est
préferable que je passe par une api ? je ne sais pas si winm.dll lis le mp3

[l_autodidacte]

Tu peux garder le contrôle Windows Media et intégrer le fichier mp3 dans l'exécutable via un fichier .res. Donne au fichier mp3 intégré un nom significatif.
A la lecture du son, tu fais l'extraction dudit fichier que tu passeras ensuite en paramètre à ton contrôle de lecture.

Ensuite, à la fin de la lecture ou à la fermeture du programme, tu peux supprimer le fichier extrait (par le code bien sûr).

[waste]

merci pour l'info , j'ai cherché de mon coté , j'ai bien crée mon fichier .res ,

et malgré deux gros bouquins sur le vb6 , j'ai pas réussi à trouver comment

l'extraire , je ne vois pas s'il faut utiliser LoadResData ou pas

[l_autodidacte]

En effet, il s'agit d'une extraction binaire avec LoadResData.
En voici un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub ExtractResData(FileName As String, ID As Variant, Section As String)
 
   Dim sFile As String, Result$,  b() As Byte, intFile As Integer
 
   ' b reçoit la donnée à extraire de la ressource
   b = LoadResData(ID, Section)
   intFile = FreeFile
   'Création d'un fichier pour recevoir la ressource extraite.
   Open FileName For Binary Access Write Lock Read As #intFile
   Put #intFile, , b
   Close #intFile
   intFile = 0
End Sub

FileName est le fichier de destination; ID = Identificateur(Integer) de la ressource à extraire et Section est le nom de la section sous laquelle sont stockées les données.
Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ExtractResData Dest + "\Nom_Fichier", 1, "ICON"