MIDI-OX User Forum - Print Page


    
      
        MIDI-OX User Forum
        (http://www.midiox.com/cgi-bin/yabb/YaBB.pl)
      

        MIDI-OX >> Scripting Questions >> script to initiate and receieve Midi Sample Dump
        
(Message started by: mercury on Nov 25^th, 2018, 4:44pm)

Title: script to initiate and receieve Midi Sample Dump
Post by mercury on Nov 25^th, 2018, 4:44pm

Hi,

I have managed to hack together a script in Windows PowerShell to send and receive SysEx messages but I'm now scratching my head on how to expand this to support SDS messages. The issue as I see it may be the handshaking.

I haven't figured out how to implement a sink method in PowerShell yet so for now I am simply looking for the end-of-exclusive byte to break the receive loop. SDS responses will have multiple messages so I need to change things to support that.

What I would like to achieve is to issue a command to receive a specific sample and store the result in a variable and eventually export this to a wav file. I have code and some command line programs that will convert a .syx file to .wav so If I can just get the syx format or even the full string that MIDI-OX will receive by default that would get me across the line.

FYI, this is a for a project of mine to archive samples from my ancient Peavey DPM SP sample player. So far I have got working code to Load a bank from Disk, pull all the SysEx info for all objects and generate a keymap description for all the presets. Given the proprietary disk format I need to rely on SDS to recover the samples to my PC. Once that is achieved I can then create new sound programs in a virtual sampler such as ESX24.

Obviously the use of PowerShell is my choice but I'll be happy to receive VBScript code for the solution which I can then try and translate.

Here is my function that returns either an array of hex values or a concatenated string (with a space delimiter). It expects an array of hex values as input:

function Get-SysExResponseMessage{
param(
[object]$SysExCommand,
[switch]$AsText
)

$EOX = "F7"
$IsEOX = $false

If($SysExCommand[$SysExCommand.GetUpperBound(0)] -ne $EOX){$SysExCommand += @($EOX)} # Attach missing EOX if required

[string]$SysExString = $SysExCommand -join " "

$MOX.SendSysExString($SysExString)
$SysExResponseMessage = ""

While ($IsEOX -eq $false){
$MidiResponseMessage = $MOX.GetMidiInput()
If ($MidiResponseMessage -ne "") {
Write-Host "MSG Receiving...($SysExResponseMessage)" -for cyan
If (([Int](($MidiResponseMessage -Split ",")[1]) ) -eq 240) { # SysEx, must ask for SysEx string message "&HF0"
Write-Host "Receiving SysEx Dump" -for green
$SysExResponseMessage += $MOX.GetSysExInput()
if($SysExResponseMessage -like "*$EOX*"){$IsEOX = $true}
}
}
}

If ($AsText -eq $true){
Return $SysExResponseMessage.Trim()
}
else {
Return $SysExResponseMessage.Trim() -split " "
}
}

Title: Re: script to initiate and receieve Midi Sample Du
Post by mercury on Dec 2^nd, 2018, 2:35am

Success! example script below.

I over-thought some of it initially, I should be doing checksums and sending hand-shaking messages but 3 seconds of no more messages does the job for now.

Code:

function Get-SysExResponseMessage{
param(
[string]$SysExCommand,
[switch]$AsText
)

Write-Host "." -NoNewline -ForegroundColor white # crude progress indicator

$MOX.SendSysExString($SysExCommand)
$SysExResponseMessage = ""
$TimeoutSeconds = 3
$LastMessageTime = get-date
$Continue = $true

While ($Continue -eq $true){
$MidiResponseMessage = $MOX.GetMidiInput()
If ($MidiResponseMessage -ne "") {
$LastMessageTime = get-date
Write-Host "." -NoNewline -ForegroundColor Green
If (([Int](($MidiResponseMessage -Split ",")[1]) ) -eq 240) { # SysEx detected, retreive the message
$SysExResponseMessage += $MOX.GetSysExInput()
}
}
# Check duration of 'No Response'
if(((Get-date) - $LastMessageTime).totalSeconds -lt $TimeoutSeconds){$Continue = $true}
else{$Continue = $false} # Break loop
}

Write-Host "." -ForegroundColor white

If ($AsText -eq $true){
Return $SysExResponseMessage.Trim()
}
else {
Return $SysExResponseMessage.Trim() -split " "
}
}

# Main

$MOX = new-object -ComObject "Midiox.moxscript.1"
$MOX.FireMidiInput = 0
$MOX.DivertMidiInput = 1

Write-Host "Get Sample 00" -ForegroundColor Yellow
$Sample00_String = Get-SysExResponseMessage -SysExCommand "F0 7E 7F 03 00 00 F7" -AsText

Write-Host "Get Sample 01" -ForegroundColor Yellow
$Sample01_String = Get-SysExResponseMessage -SysExCommand "F0 7E 7F 03 01 00 F7" -AsText

# Cleanup, needed in Visual Studio Code
[System.Runtime.InteropServices.Marshal]::ReleaseComObject( $MOX ) | out-null # Closes Midi-OX
[System.GC]::Collect() | out-null # Note sure if this is required
[System.GC]::WaitForPendingFinalizers | out-null # Note sure if this is required