Jump to content


This is a ready-only archive of the InstallSite Forum. You cannot post any new content here. / Dies ist ein Archiv des InstallSite Forums. Hier können keine neuen Beiträge veröffentlicht werden.
Photo

Need CA to stream bmp into binary table


1 reply to this topic

rflum

rflum
  • Full Members
  • 40 posts

Posted 27 February 2002 - 23:39

Does anyone have a CA that will stream a bitmap into the Binary table?
I'd rather do it that way so it's self-documenting.
ORCA and Power Editor are too manual; easy to forget to tell my replacement that I did it.
 thanks, Rob


jhunt

jhunt
  • Members
  • 11 posts

Posted 16 April 2002 - 04:25

This reply is abit late. but for reference purposes.
I use this VB code.

(m_View and m_DB and m_Installer previously defined)

Public Sub InsertBinaryStream(ByVal strStreamName As String, ByVal strImportPath As String)
   Dim objRecord As WindowsInstaller.Record
   Dim strSQL As String
   
   strSQL = "SELECT `Name`,`Data` FROM Binary"
   
   Set m_View = m_DB.OpenView(strSQL)
   
   Set objRecord = m_Installer.CreateRecord(2)
   objRecord.StringData(1) = strStreamName
   
   Call m_View.Execute(objRecord)
   
   Call objRecord.SetStream(2, strImportPath)
   
   Call m_View.Modify(msiViewModifyAssign, objRecord)
   
   
   m_View.Close

End Sub