function test_lowlevel($window)
{
    global $maintab;
    $result = "TEST LOW-LEVEL FUNCTIONS\n\n";
    $result .= "Peek/poke a string\n";
    $str = "Test string.";
    $addr = wb_get_address($str);
    $result .= wb_peek($addr) . "\n";
    wb_poke($addr, "Roo");
    $result .= wb_peek($addr) . "\n";
    $result .= "{$str}\n\n";
    $result .= "Peek/poke a long integer\n\n";
    $num = 1234;
    $array = unpack("Vnum", wb_peek(wb_get_address($num), 4));
    $result .= "{$array['num']}\n";
    wb_poke(wb_get_address($num), pack("V", 800), 4);
    $array = unpack("Vnum", wb_peek(wb_get_address($num), 4));
    $result .= "{$array['num']}\n";
    $result .= "{$num}\n\n";
    $result .= "Peek/poke a double float\n\n";
    $num = 100.01;
    $array = unpack("dnum", wb_peek(wb_get_address($num), 8));
    $result .= "{$array['num']}\n";
    wb_poke(wb_get_address($num), pack("d", 800.02), 8);
    $array = unpack("dnum", wb_peek(wb_get_address($num), 8));
    $result .= "{$array['num']}\n";
    $result .= "{$num}\n\n";
    $result .= "Peek/poke control data\n\n";
    $id = ID_RESETHANDLER;
    $result .= "Getting control handle...\n";
    $ctrl = wb_get_control($window, $id);
    $wbobj = unpack(WBOBJ, wb_peek($ctrl, WBOBJ_SIZE));
    $result .= sprintf("Original item # is %d\n", $wbobj["item"]);
    $result .= "Changing the value of member 'item'...\n";
    // The offset of member 'item' in struct WBOBJ is 12
    wb_poke($ctrl + 12, pack("V", 1200), 4);
    $wbobj = unpack(WBOBJ, wb_peek($ctrl, WBOBJ_SIZE));
    $result .= sprintf("Current item # is now %d\n", $wbobj["item"] . "\n");
    $result .= "Peek/poke window callback\n\n";
    $result .= "Current window data:\n";
    $wbobj = unpack(WBOBJ, wb_peek($window, WBOBJ_SIZE));
    $result .= print_r($wbobj, true);
    $orig_address = wb_get_address($wbobj["handler"]);
    $orig_handler = wb_peek($wbobj["handler"]);
    $result .= "Name of original window handler: \"{$orig_handler}\"\n";
    $result .= "Changing handler using wb_poke()...\n";
    $newname = "dummy_callback";
    // The offset of member 'pszCallBackFn' in struct WBOBJ is 28
    wb_poke($window + 28, pack("V", wb_get_address($newname)), 4);
    $wbobj = unpack(WBOBJ, wb_peek($window, WBOBJ_SIZE));
    $handler = wb_peek($wbobj["handler"]);
    $result .= "Window handler is now \"{$handler}\"\n\n";
    $result .= "END TESTS\n\n";
    wb_set_text(wb_get_control($maintab, IDC_EDIT6002), $result);
}
Example #2
0
function FreeImage_GetVersion()
{
    global $FI;
    static $pfn = null;
    if ($pfn === null) {
        $pfn = wb_get_function_address("FreeImage_GetVersion", $FI);
    }
    // Must use wb_peek because this function returns a string pointer
    $version = wb_peek(wb_call_function($pfn));
    return $version;
}
function EnableCloseButton($hwnd, $enable)
{
    global $USER;
    static $emi = null, $gsm = null;
    $wbobj = unpack(WBOBJ, wb_peek($hwnd, WBOBJ_SIZE));
    if ($emi === null) {
        $emi = wb_get_function_address("EnableMenuItem", $USER);
    }
    if ($gsm === null) {
        $gsm = wb_get_function_address("GetSystemMenu", $USER);
    }
    $sysmenu = wb_call_function($gsm, array($wbobj["hwnd"], false));
    return wb_call_function($emi, array($sysmenu, SC_CLOSE, !$enable));
}
Example #4
0
 /**
  * fmod_StreamNetState
  *
  * Gathers informations about the current netstream like buffer-progress in
  * percent, playback bitrate, datatype and status.
  *
  * @return bool
  * @access public
  */
 function fmod_StreamNetState()
 {
     $statusstr = pack('i', 0);
     $status = wb_get_address($statusstr);
     $bufferstr = pack('i', 0);
     $buffer = wb_get_address($bufferstr);
     $bitratestr = pack('i', 0);
     $bitrate = wb_get_address($bitratestr);
     $flagsstr = pack('i', 0);
     $flags = wb_get_address($flagsstr);
     $result = $this->fmodlib_GetNetStatus($this->fmodStream, $status, $buffer, $bitrate, $flags);
     if ($result) {
         $bitrate_array = unpack('iBitrate', wb_peek($bitrate, 4));
         $buffer_array = unpack('iBuffer', wb_peek($buffer, 4));
         $status_array = unpack('iStatus', wb_peek($status, 4));
         $flags_array = unpack('iFlags', wb_peek($flags, 4));
         $netReturn['buffer'] = $buffer_array['Buffer'] . "%";
         $netReturn['bitrate'] = $bitrate_array['Bitrate'];
         $netReturn['status'] = $status_array['Status'];
         switch ($status_array['Status']) {
             case 1:
                 $netReturn['statustext'] = 'Not Connected';
                 break;
             case 2:
                 $netReturn['statustext'] = 'Connecting';
                 break;
             case 3:
                 $netReturn['statustext'] = 'Playing';
                 break;
             case 4:
                 $netReturn['statustext'] = 'Ready';
                 break;
             case 5:
                 $netReturn['statustext'] = 'Error';
                 break;
         }
         switch ($flags_array['Flags']) {
             // Possible Network Resources
             case 1:
                 $netReturn['format'] = 'Shoutcast';
                 break;
             case 2:
                 $netReturn['format'] = 'Icecast';
                 break;
             case 4:
                 $netReturn['format'] = 'HTTP';
                 break;
                 // Stream is type of MPEG
             // Stream is type of MPEG
             case 65536:
                 $netReturn['format'] = 'MPEG';
                 break;
             case 65537:
                 $netReturn['format'] = 'Shoutcast MPEG';
                 break;
             case 65538:
                 $netReturn['format'] = 'Icecast MPEG';
                 break;
             case 65540:
                 $netReturn['format'] = 'HTTP MPEG';
                 break;
                 // Stream is type of OGG
             // Stream is type of OGG
             case 131072:
                 $netReturn['format'] = 'OGG';
                 break;
             case 131073:
                 $netReturn['format'] = 'Shoutcast OGG';
                 break;
             case 131074:
                 $netReturn['format'] = 'Icecast OGG';
                 break;
             case 131076:
                 $netReturn['format'] = 'HTTP OGG';
                 break;
         }
         $this->fmodNetStatus = $netReturn;
         $result = true;
     } else {
         $this->fmodLastErrorMsg = $this->fmodlib_GetErrorMessage();
     }
     return $result;
 }