Re: UpdateResource being weird

From: Nak (a_at_a.com)
Date: 12/15/04 

Date: Wed, 15 Dec 2004 12:28:32 -0000

Hi Mick,

    Thanks for the info, I shall go and give it a try now. I've been having
numerous problems with the DLLImports, I'm probably missing most of the
attributes that are crucial to getting it working. Anyway, thanks again!
:-)

Nick.

"Mick Doherty"
<EXCHANGE#WITH@AND.REMOVE.SQUAREBRACKETS.[mdaudi100#ntlworld.com]> wrote in
message news:%233urTBj4EHA.208@TK2MSFTNGP12.phx.gbl...
> That's funny, I was working on updateresource just yesterday, only i was
> working with png files in the RCDATA section.
> This is how I declared UpdateResource:
>
> \\\
> <DllImport("kernel32", CallingConvention:=CallingConvention.Cdecl, _
> setlasterror:=True)> _
> Public Function UpdateResource(ByVal hUpdate As IntPtr, _
> ByVal lpType As IntPtr, _
> ByVal lpName As System.Text.StringBuilder, _
> ByVal wLanguage As Int16, _
> ByVal lpData As Byte(), _
> ByVal cbData As Int32) As Int32
> End Function
> ///
>
> and then I called it like this:
>
> \\\
> BeginUpdateResource(...
> ...
> Dim ResID As New System.Text.StringBuilder(somestring.ToUpper)
> 'ToUpper was crucial for extracting again using LoadResource
> ...
> UpdateResource(hUpdateRes, _
> New IntPtr(RT_RCDATA), _
> ResID, _
> 1033, _
> someArray, _
> someArray.Length)
> ...
> EndUpdateResource(...
> ///
>
> You may need to add 'CharSet:=CharSet.Unicode' in the DllImport attribute
> for String Types.
>
> --
> Mick Doherty
> http://dotnetrix.co.uk/nothing.html
>
>
> "Nak" <a@a.com> wrote in message
> news:uwbz8ji4EHA.3416@TK2MSFTNGP09.phx.gbl...
>> Hi there,
>>
>> It's probably me being weird more than the function but I'm having
>> problems with it doing as it should.
>>
>> I have a C++ application with 2 resources of custom types,
>>
>> RT_INIFILE @ 2000 (INI file)
>>
>> and
>>
>> IDR_MSISETUP @ 3000 (MSI file)
>>
>> The declaration of my UpdateResource call is as follows,
>>
>> <DllImport("kernel32.dll", SetLastError:=True)> _
>> Private Shared Function UpdateResource(ByVal hUpdate As IntPtr, ByVal
>> lpType As String, ByVal lpID As Integer, ByVal wLanguage As Integer,
>> ByVal lpData() As Byte, ByVal cbData As Integer) As Integer
>> End Function
>>
>> Right, so here's the problem. When calling the above method to update
>> the 2 resources I get no errors returned, unfortunately further
>> inspection using a resource viewer shows that the MSI file is being
>> updated (although the resource viewer has trouble reading the data) and
>> the INI file is not updated, but kind of modified, it becomes 2 resource
>> files within an item called 2000, 1 the original INI file and 1 the new
>> updated file (strange).
>>
>> Now if I try the above method by changing the lpID parameter to a
>> string it says it's worked, but hasn't, which is rather strange too. So
>> I'm beginning to wonder if I'm getting the declaration wrong or
>> something, but if that's the case how comes it even attempts to update?
>> Anyway, this is my code that updates the resource
>>
>> --- Start of file ---
>>
>> Imports System.Runtime.InteropServices
>> Imports System.ComponentModel
>> Imports System.IO
>>
>> Public Class resourceUpdater
>>
>> <DllImport("kernel32.dll", SetLastError:=True)> _
>> Private Shared Function BeginUpdateResource(ByVal pFileName As String,
>> ByVal bDeleteExistingResources As Boolean) As IntPtr
>> End Function
>>
>> <DllImport("kernel32.dll", SetLastError:=True)> _
>> Private Shared Function UpdateResource(ByVal hUpdate As IntPtr, ByVal
>> lpType As String, ByVal lpID As String, ByVal wLanguage As Integer, ByVal
>> lpData() As Byte, ByVal cbData As Integer) As Integer
>> End Function
>>
>> <DllImport("kernel32.dll", SetLastError:=True)> _
>> Private Shared Function EndUpdateResource(ByVal hUpdate As IntPtr, ByVal
>> fDiscard As Boolean) As Boolean
>> End Function
>>
>> Private cStrFileName As String
>>
>> Public Function updateResourceFromBuffer(ByVal iType As String, ByVal iID
>> As Integer, ByVal iBuffer() As Byte) As Boolean
>> Dim pIPrUpdating As IntPtr = BeginUpdateResource(cStrFileName, False)
>> If (Not pIPrUpdating.Equals(IntPtr.Zero)) Then
>> If (UpdateResource(pIPrUpdating, iType, iID.ToString, 0, iBuffer,
>> iBuffer.Length) = 1) Then
>> If (EndUpdateResource(pIPrUpdating, False)) Then
>> Return (True)
>> Else
>> Throw New Exception("Failed to end updating of resource '"
>> & iID.ToString & "' of type '" & iType & "'.")
>> End If
>> Else
>> Throw New Exception("Failed to update resource '" &
>> iID.ToString & "' of type '" & iType & "'.")
>> End If
>> Else
>> Throw New Exception("Failed to begin updating resource '" &
>> iID.ToString & "' of type '" & iType & "'.")
>> End If
>> End Function
>>
>> Public Shared Function fromFile(ByVal iFileName As String) As
>> resourceUpdater
>> If (File.Exists(iFileName)) Then
>> Dim pWRDResource As New resourceUpdater()
>> pWRDResource.cStrFileName = iFileName
>> Return (pWRDResource)
>> Else
>> Throw New FileNotFoundException("The Win32 resource file could not
>> be found.", iFileName)
>> End If
>> End Function
>>
>> End Class
>>
>> --- End of file ---
>>
>> Not much too it really, to update my resources I'm calling it like
>> this,
>>
>> Dim pRUrUpdater As resourceUpdater =
>> resourceUpdater.fromFile("c:\fubar.exe")
>> Call pRUrUpdater.updateResourceFromBuffer("RT_MSIINSTALLER", 3000,
>> pBytMSIInstaller)
>> Call pRUrUpdater.updateResourceFromBuffer("RT_INIFILE", 2000,
>> pBytINIConfig)
>>
>> Obviously the passed byte arrays contain the correct data, as I can
>> see in the resource viewer 1 of the INI files are correct, the other
>> shouldn't actually be there. The MSI installer seems to have been
>> updated correctly as I'm even extracting it from the executable again and
>> then running it, but the INI file is messing me arround.
>>
>> Any tips on how to use this function or reasons as to why it isn't
>> working correctly? Thanks loads in advance, much appreciated!
>>
>> Nick.
>>
>
>

Relevant Pages

  • Re: UpdateResource being weird
    ... That's funny, I was working on updateresource just yesterday, only i was ... > Private Shared Function UpdateResource(ByVal hUpdate As IntPtr, ... > lpType As String, ByVal lpID As Integer, ByVal wLanguage As Integer, ByVal ... > using a resource viewer shows that the MSI file is being updated (although ...
    (microsoft.public.dotnet.languages.vb)
  • [API] Win32 Resources - List Icon Resource Names
    ... private static extern IntPtr LoadLibraryEx(string FileName, ... /// Gets the string resource names for the current file. ...
    (microsoft.public.dotnet.languages.csharp)
  • Re: How to add button on Mail editor which is not outlook.??
    ... 'The bmp files are added to a resource file. ... Private Declare Function GdiplusShutdown Lib "GDIPlus" (_ ... ByVal filename As String) As StdPicture ... Dim tSI As GdiplusStartupInput ...
    (microsoft.public.office.developer.outlook.vba)
  • Re: Other version information
    ... header to locate the resource table. ... Windows PE files ... marked by a literal string. ... files in a folder, ...
    (microsoft.public.scripting.vbscript)
  • Re: Resource Files for Data
    ... A "Single string" can contain a lot, in one program I store a 1/3Meg blank ... to change the data ahead of time (Excel spreadsheet works well, ... Your example works well for a single string. ... cannot change its own resource which is what I think you are considering. ...
    (microsoft.public.vb.general.discussion)