Bonjour,
J'utilise couramment les fichiers ressources pour le=20
texte, les images et le son.
Maintenant, je cherche =E0 stocker un fichier AVI dans un=20
fichier ressources pour le r=E9cup=E9rer en code VB afin de le=20
charger dans un contr=F4le animation.
D'apr=E8s mes recherches sur le Web, cela n'est pas possible.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ng
Salut,
Tu peux utiliser une ressource personnalisée et utiliser ce code pour récupérer le fichier :
'Dans un module : Option Explicit
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Public Function SaveResBinaryFile(id As Integer) As String Dim k As Integer, tblOctets() As Byte 'récupère un tableau d'octet contenant la ressource tblOctets = LoadResData(id, 2) 'enregistre la ressource SaveResBinaryFile = ObtTemp & "res_temp.tmp" k = FreeFile Open SaveResBinaryFile For Binary As #k Put #k, , tblOctets Close #k Erase tblOctets End Function
Private Function ObtTemp() As String 'repertoire temp Dim strTemp As String strTemp = String(100, Chr$(0)) GetTempPath 100, strTemp strTemp = Left$(strTemp, InStr(strTemp, Chr$(0)) - 1) If Right$(strTemp, 1) <> "" Then strTemp = strTemp & "" ObtTemp = strTemp End Function
'dans ta form, par exemple : Option Explicit
Dim sChe As String Private Sub Form_Load() Dim sChe As String sChe = SaveResBinaryFile(101) 'traitement du fichier Call Kill(sChe) End Sub
Cf ce thread : http://groups.google.fr/groups?q=ressource+group:*fr.vb*+author:ng&hl=fr&lr &ie=UTF-8&oe=UTF-8&selm=O8j0ZMr3DHA.2296%40TK2MSFTNGP11.phx.gbl&rnum=3
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
"Phi" a écrit dans le message de news: 13c8501c3f7a5$fd8481d0$ Bonjour, J'utilise couramment les fichiers ressources pour le texte, les images et le son. Maintenant, je cherche à stocker un fichier AVI dans un fichier ressources pour le récupérer en code VB afin de le charger dans un contrôle animation. D'après mes recherches sur le Web, cela n'est pas possible.
Quelqu'un connaît-il la voie à suivre? Merci
Salut,
Tu peux utiliser une ressource personnalisée et utiliser ce code pour
récupérer le fichier :
'Dans un module :
Option Explicit
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA"
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Public Function SaveResBinaryFile(id As Integer) As String
Dim k As Integer, tblOctets() As Byte
'récupère un tableau d'octet contenant la ressource
tblOctets = LoadResData(id, 2)
'enregistre la ressource
SaveResBinaryFile = ObtTemp & "res_temp.tmp"
k = FreeFile
Open SaveResBinaryFile For Binary As #k
Put #k, , tblOctets
Close #k
Erase tblOctets
End Function
Private Function ObtTemp() As String
'repertoire temp
Dim strTemp As String
strTemp = String(100, Chr$(0))
GetTempPath 100, strTemp
strTemp = Left$(strTemp, InStr(strTemp, Chr$(0)) - 1)
If Right$(strTemp, 1) <> "" Then strTemp = strTemp & ""
ObtTemp = strTemp
End Function
'dans ta form, par exemple :
Option Explicit
Dim sChe As String
Private Sub Form_Load()
Dim sChe As String
sChe = SaveResBinaryFile(101)
'traitement du fichier
Call Kill(sChe)
End Sub
Cf ce thread :
http://groups.google.fr/groups?q=ressource+group:*fr.vb*+author:ng&hl=fr&lr &ie=UTF-8&oe=UTF-8&selm=O8j0ZMr3DHA.2296%40TK2MSFTNGP11.phx.gbl&rnum=3
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
"Phi" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
13c8501c3f7a5$fd8481d0$a601280a@phx.gbl...
Bonjour,
J'utilise couramment les fichiers ressources pour le
texte, les images et le son.
Maintenant, je cherche à stocker un fichier AVI dans un
fichier ressources pour le récupérer en code VB afin de le
charger dans un contrôle animation.
D'après mes recherches sur le Web, cela n'est pas possible.
Tu peux utiliser une ressource personnalisée et utiliser ce code pour récupérer le fichier :
'Dans un module : Option Explicit
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Public Function SaveResBinaryFile(id As Integer) As String Dim k As Integer, tblOctets() As Byte 'récupère un tableau d'octet contenant la ressource tblOctets = LoadResData(id, 2) 'enregistre la ressource SaveResBinaryFile = ObtTemp & "res_temp.tmp" k = FreeFile Open SaveResBinaryFile For Binary As #k Put #k, , tblOctets Close #k Erase tblOctets End Function
Private Function ObtTemp() As String 'repertoire temp Dim strTemp As String strTemp = String(100, Chr$(0)) GetTempPath 100, strTemp strTemp = Left$(strTemp, InStr(strTemp, Chr$(0)) - 1) If Right$(strTemp, 1) <> "" Then strTemp = strTemp & "" ObtTemp = strTemp End Function
'dans ta form, par exemple : Option Explicit
Dim sChe As String Private Sub Form_Load() Dim sChe As String sChe = SaveResBinaryFile(101) 'traitement du fichier Call Kill(sChe) End Sub
Cf ce thread : http://groups.google.fr/groups?q=ressource+group:*fr.vb*+author:ng&hl=fr&lr &ie=UTF-8&oe=UTF-8&selm=O8j0ZMr3DHA.2296%40TK2MSFTNGP11.phx.gbl&rnum=3
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
"Phi" a écrit dans le message de news: 13c8501c3f7a5$fd8481d0$ Bonjour, J'utilise couramment les fichiers ressources pour le texte, les images et le son. Maintenant, je cherche à stocker un fichier AVI dans un fichier ressources pour le récupérer en code VB afin de le charger dans un contrôle animation. D'après mes recherches sur le Web, cela n'est pas possible.
Quelqu'un connaît-il la voie à suivre? Merci
ng
Petite erreur, il faut remplacer tblOctets = LoadResData(id, 2) par tblOctets = LoadResData(id, 10)
Et attention, 64K max donc pour des petits AVI genre ceux qu'on trouve dans C:Program FilesMicrosoft Visual StudioCommonGraphicsVideos
Plus d'infos ici : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vb98/html/v bmthLoadResData.asp
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
"ng" a écrit dans le message de news:
Salut,
Tu peux utiliser une ressource personnalisée et utiliser ce code pour récupérer le fichier :
'Dans un module : Option Explicit
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Public Function SaveResBinaryFile(id As Integer) As String Dim k As Integer, tblOctets() As Byte 'récupère un tableau d'octet contenant la ressource tblOctets = LoadResData(id, 2) 'enregistre la ressource SaveResBinaryFile = ObtTemp & "res_temp.tmp" k = FreeFile Open SaveResBinaryFile For Binary As #k Put #k, , tblOctets Close #k Erase tblOctets End Function
Private Function ObtTemp() As String 'repertoire temp Dim strTemp As String strTemp = String(100, Chr$(0)) GetTempPath 100, strTemp strTemp = Left$(strTemp, InStr(strTemp, Chr$(0)) - 1) If Right$(strTemp, 1) <> "" Then strTemp = strTemp & "" ObtTemp = strTemp End Function
'dans ta form, par exemple : Option Explicit
Dim sChe As String Private Sub Form_Load() Dim sChe As String sChe = SaveResBinaryFile(101) 'traitement du fichier Call Kill(sChe) End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
"Phi" a écrit dans le message de
news:
13c8501c3f7a5$fd8481d0$ Bonjour, J'utilise couramment les fichiers ressources pour le texte, les images et le son. Maintenant, je cherche à stocker un fichier AVI dans un fichier ressources pour le récupérer en code VB afin de le charger dans un contrôle animation. D'après mes recherches sur le Web, cela n'est pas possible.
Quelqu'un connaît-il la voie à suivre? Merci
Petite erreur, il faut remplacer tblOctets = LoadResData(id, 2) par
tblOctets = LoadResData(id, 10)
Et attention, 64K max donc pour des petits AVI genre ceux qu'on trouve dans
C:Program FilesMicrosoft Visual StudioCommonGraphicsVideos
Plus d'infos ici :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vb98/html/v
bmthLoadResData.asp
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
"ng" <ng@ngsoft-fr.com> a écrit dans le message de news:
uO5J9869DHA.1804@TK2MSFTNGP12.phx.gbl...
Salut,
Tu peux utiliser une ressource personnalisée et utiliser ce code pour
récupérer le fichier :
'Dans un module :
Option Explicit
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA"
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Public Function SaveResBinaryFile(id As Integer) As String
Dim k As Integer, tblOctets() As Byte
'récupère un tableau d'octet contenant la ressource
tblOctets = LoadResData(id, 2)
'enregistre la ressource
SaveResBinaryFile = ObtTemp & "res_temp.tmp"
k = FreeFile
Open SaveResBinaryFile For Binary As #k
Put #k, , tblOctets
Close #k
Erase tblOctets
End Function
Private Function ObtTemp() As String
'repertoire temp
Dim strTemp As String
strTemp = String(100, Chr$(0))
GetTempPath 100, strTemp
strTemp = Left$(strTemp, InStr(strTemp, Chr$(0)) - 1)
If Right$(strTemp, 1) <> "" Then strTemp = strTemp & ""
ObtTemp = strTemp
End Function
'dans ta form, par exemple :
Option Explicit
Dim sChe As String
Private Sub Form_Load()
Dim sChe As String
sChe = SaveResBinaryFile(101)
'traitement du fichier
Call Kill(sChe)
End Sub
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
"Phi" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:
13c8501c3f7a5$fd8481d0$a601280a@phx.gbl...
Bonjour,
J'utilise couramment les fichiers ressources pour le
texte, les images et le son.
Maintenant, je cherche à stocker un fichier AVI dans un
fichier ressources pour le récupérer en code VB afin de le
charger dans un contrôle animation.
D'après mes recherches sur le Web, cela n'est pas possible.
Petite erreur, il faut remplacer tblOctets = LoadResData(id, 2) par tblOctets = LoadResData(id, 10)
Et attention, 64K max donc pour des petits AVI genre ceux qu'on trouve dans C:Program FilesMicrosoft Visual StudioCommonGraphicsVideos
Plus d'infos ici : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vb98/html/v bmthLoadResData.asp
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
"ng" a écrit dans le message de news:
Salut,
Tu peux utiliser une ressource personnalisée et utiliser ce code pour récupérer le fichier :
'Dans un module : Option Explicit
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Public Function SaveResBinaryFile(id As Integer) As String Dim k As Integer, tblOctets() As Byte 'récupère un tableau d'octet contenant la ressource tblOctets = LoadResData(id, 2) 'enregistre la ressource SaveResBinaryFile = ObtTemp & "res_temp.tmp" k = FreeFile Open SaveResBinaryFile For Binary As #k Put #k, , tblOctets Close #k Erase tblOctets End Function
Private Function ObtTemp() As String 'repertoire temp Dim strTemp As String strTemp = String(100, Chr$(0)) GetTempPath 100, strTemp strTemp = Left$(strTemp, InStr(strTemp, Chr$(0)) - 1) If Right$(strTemp, 1) <> "" Then strTemp = strTemp & "" ObtTemp = strTemp End Function
'dans ta form, par exemple : Option Explicit
Dim sChe As String Private Sub Form_Load() Dim sChe As String sChe = SaveResBinaryFile(101) 'traitement du fichier Call Kill(sChe) End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
"Phi" a écrit dans le message de
news:
13c8501c3f7a5$fd8481d0$ Bonjour, J'utilise couramment les fichiers ressources pour le texte, les images et le son. Maintenant, je cherche à stocker un fichier AVI dans un fichier ressources pour le récupérer en code VB afin de le charger dans un contrôle animation. D'après mes recherches sur le Web, cela n'est pas possible.
