Looking for a .ISO UDF

[MrKm]

Hi all,
Anyone know  a UDF or any leads to how I can make

a disk image file as a .iso and package some files in it programmatically?
 

[Danyfirex]

Hello, I think there is not an UDF for such thing. But You could probably write your own one using IMAPI.

 

Saludos

[mLipok]

http://www.vbaexpress.com/forum/archive/index.php/t-17420.html

[MrKm]

7 hours ago, mLipok said:

http://www.vbaexpress.com/forum/archive/index.php/t-17420.html

Thank you so much! Good luck to me converting this to au3!

[Danyfirex]

Here is a sample I converted from internet. It's a good start.

Removed

Edited. I removed the code. It's not working. I'll update with a new code later I think.

Correct Code here.

 

Saludos

Edited August 22, 2022 by Danyfirex

[MrKm]

  

On 8/12/2022 at 7:44 PM, Danyfirex said:

I removed the code. It's not working

Code removed by initial author for an update. See below.

Edited August 20, 2022 by MrKm
code update.

[Danyfirex]

I removed the code in my previous comment.  It does not work. I tested a C++ code I don't know why I posted that sorry. I'm a little crazy  😨 these days. 

I'll try to convert the C++ code I tested.

 

Saludos

Edited August 15, 2022 by Danyfirex

[Danyfirex]

Hello again. Here is the correct example:

;~ #AutoIt3Wrapper_UseX64=y

_CreateISO()

Func _CreateISO()
    Local $sSourceDirectory = @ScriptDir & "\Test"
    Local $sOutFileIso = @ScriptDir & "\MyFile.iso"
    Local $oFS = ObjCreate("IMAPI2FS.MsftFileSystemImage")
    $oFS .FreeMediaBlocks = 0
    $oFS.VolumeName = "MyISOName"
    $oFS.Root.AddTree($sSourceDirectory, False)
    Local $oRImage = $oFS.CreateResultImage()
    Local $oImgStream = ObjCreateInterface($oRImage.ImageStream(), '{0000000c-0000-0000-C000-000000000046}', _
            "D1 hresult();D2 hresult();D3 hresult();D4 hresult();CopyTo hresult(ptr;UINT64;UINT64*;UINT64*);" & _
            "D8 hresult();D9 hresult();D10 hresult();D11 hresult();Stat hresult(struct*;dword);")

    Local $tSTATSTG = DllStructCreate("byte[" & (@AutoItX64 ? 80 : 72) & "]")
    $oImgStream.Stat($tSTATSTG, 0x1)
    Local $icbSize = (DllStructCreate("UINT64 cbSize", DllStructGetPtr($tSTATSTG) + (@AutoItX64 ? 16 : 8))).cbSize
    Local $pFileStream = __MD_SHCreateStreamOnFile($sOutFileIso)
    Local $iRead, $iWritten
    $oImgStream.CopyTo($pFileStream,  $icbSize, $iRead, $iWritten)
EndFunc   ;==>_CreateIso

;Create File Stream
Func __MD_SHCreateStreamOnFile($sFilePath, $igrfMode = 0x00001001)
    Local $aCall = DllCall("shlwapi.dll", "long", "SHCreateStreamOnFileW", "wstr", $sFilePath, "dword", $igrfMode, "ptr*", 0)
    If $aCall[0] = 0 Then
        Return $aCall[3]
    EndIf
    Return 0
EndFunc   ;==>__MD_SHCreateStreamOnFile

 

I'm not so mad today. 🤭

 

Saludos

[MrKm]

On 8/14/2022 at 7:40 PM, Danyfirex said:

Hello again. Here is the correct example:

 

I'm not so mad today. 🤭

 

Saludos

Working! Thank you so much @Danyfirex 

[argumentum]

On 8/14/2022 at 12:40 PM, Danyfirex said:

Local $sOutFileIso = @ScriptDir & "\MyFile.iso"

..any way to make a DVD instead of a CD  ? ( if is just adding a declaration or something simple )

[Danyfirex]

@argumentum I'm not sure what you mean. If you could point to an example made in other programming language I could convert it.

 

Saludos

[argumentum]

On 8/18/2022 at 8:51 AM, Danyfirex said:

If you could point to an example

oh, no. I just tested what you posted and I'm like, hmm, makes a CD. Could it make a DVD, to put more than 600 megs.
But that was the question. I thought maybe a "$oFS.MediaType = DVD_for_argumentum" and that was as simple as that.  

Edit: ...randomly clicking..., found me answer:

Local $oFS = ObjCreate("IMAPI2FS.MsftFileSystemImage")
    $oFS.ChooseImageDefaultsForMediaType(0x12) ; 2=CDR, 6=DVDPLUSR, 0x12=BR ( https://www.autoitscript.com/forum/topic/73782-cddvd-burning-udf/ )
    $oFS.FreeMediaBlocks = 0

Have not tested anything as far as burning the ISO or even creating an ISO to test sizes but, the definition it's there. 

Edited August 21, 2022 by argumentum
found it

[MrKm]

On 8/12/2022 at 7:44 PM, Danyfirex said:

I removed the code. It's not working

Code removed by initial author for an update. See below.