Pb avec UpdateResource - VB/VBA/VBS - Programmation
Marsh Posté le 03-10-2003 à 03:09:59
Si je lis bien ce que tu as écrit, la fonction ne renvoie même pas de code d'erreur, c'est ça ? Tu as un plantage de ton application ?
Si c'est effectivement le cas, tu dois vérifier que tu envoie bien les bons paramètres à UpdateResource. Je pense notamment à la conversion Basic -> C.
Le mieux serait de faire le test en C/C++. Et une fois que le fonctionnement de la fonction est validé, soit de le conserver tel quel en en faisant une DLL appelée par ton application VB, soit de l'adapter en VB.
Pour l'utilisation en C/C++, tu trouveras pas mal de liens sur google.
Par contre, comme le problème vient, je pense, de l'adaptation VB, le sujet serait sûrement bien mieux dans la sous-cat VB.
Marsh Posté le 03-10-2003 à 02:49:36
Je sais c'est du VB mais déja qu'j'espere même pas avoir
une reponse ici....
Declare Function UpdateResource Lib "kernel32" Alias "UpdateResourceA" (ByVal hUpdate _
As Long, ByVal lpType As Long, ByVal lpName As Long, ByVal wLanguage As Long, _
lpData As Any, ByVal cbData As Long) As Long
Dim HUpt As Long
Dim BytesPerLine As Long
Dim picbits() As Byte
Dim NameID As Long
Dim Lang As Long
Dim Ret As Long
Dim RC_BITMAP as Long
NameID = CLng("4368" )
Lang = CLng("1036" )
RC_BITMAP = 2&
HUpt = BeginUpdateResource("c:\test.dll", False)
Dim Pic As New StdPicture
Set Pic = LoadPicture("c:\test.bmp" )
BytesPerLine = (Pic.Width * 3 + 3) And &HFFFFFFFC
ReDim picbits(1 To BytesPerLine * Pic.Height * 3) As Byte
GetBitmapBits Pic.Handle, UBound(picbits), picbits(1)
Ret = UpdateResource(HUpt, RC_BITMAP, NameID, Lang , VarPtr(picbits(1)), UBound(picbits))
c'est tout con mais ça plante mechamment arrivé a UpdateResource.
Et pis les infos concernant "UpdateResource" et VB y en a pas
enormement sur "Google"....
En vous r'merciant.
Message édité par bubu le 03-10-2003 à 09:04:15