<SCRIPT SRC="/wavemaster.internal/v4.1/tools/cookie.js"></SCRIPT>
<HTML>
<HEAD>
<STYLE TYPE="text/css"><!--
.hw-annotation { text-decoration: none; color: black; background:#f3ca81; font-weight: bold; }
--></STYLE>
<META NAME="ObjectID" CONTENT="0x000000d4">
<META NAME="Type" CONTENT="Document">
<META NAME="DocumentType" CONTENT="text">
<META NAME="Author" CONTENT="gnagler">
<META NAME="TimeCreated" CONTENT="1998/06/15 07:50:23">
<META NAME="TimeModified" CONTENT="1998/06/15 07:52:43">
<META NAME="Title" CONTENT="en:Embedding GN-Tools in Visual BASIC 5.0">
<META NAME="Name" CONTENT="vbplugin.txt">
<META NAME="MimeType" CONTENT="text/htf">
<META NAME="Path" CONTENT="DC0x000d9dc5 0x000007e1">
<META NAME="Parent" CONTENT="Cpub">
<META NAME="GOid" CONTENT="0x811bc833_0x00584b38">
<TITLE>Embedding GN-Tools in Visual BASIC 5.0</TITLE>
<BASE HREF="http://www2.iicm.edu/vbplugin.txt">
</HEAD>
<BODY alink="#0b134c" bgcolor="#ffffff" link="#1829a5" text="#000000" vlink="#0b134c">
<SCRIPT>
<!--
window.defaultStatus = "Hyperwave - Organize your future - You are logged in as guest !"
// -->
</SCRIPT>
<SCRIPT>
<!--
function ba(bu) {
}
function bia(bu,num) {
}
// -->
</SCRIPT>
<TABLE WIDTH="600" BORDER="0" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD><A
HREF="http://www2.iicm.edu/vbplugin.txt;internal&action=_identify.action" ONMOUSEOVER="ba('li');window.status='Login at the Hyperwave server as an identified user';return true" ONMOUSEOUT="bia('li','1')"><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/mm_login1.gif;internal&inline=true" ALT="Login" BORDER="0" WIDTH="66" HEIGHT="18" NAME="li"></A><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/mm_edit0.gif;internal&inline=true" ALT="Edit-login first" BORDER="0" WIDTH="48" HEIGHT="18" NAME="ed"><A
HREF="http://www2.iicm.edu/vbplugin.txt;internal&action=extended.search.action" ONMOUSEOVER="ba('se');window.status='Start a Hyperwave Search';return true" ONMOUSEOUT="bia('se','1')"><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/mm_search1.gif;internal&inline=true" ALT="Search" BORDER="0" WIDTH="67" HEIGHT="18" NAME="se"></A><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/mm_annotate0.gif;internal&inline=true" ALT="Annotate-login first" BORDER="0" WIDTH="82" HEIGHT="18" NAME="an"><A
HREF="http://www2.iicm.edu/vbplugin.txt;internal&action=preferences.action" ONMOUSEOVER="ba('pf');window.status='Set your preferences for a Hyperwave session';return true" ONMOUSEOUT="bia('pf','1')"><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/mm_preferences1.gif;internal&inline=true" ALT="Preferences" BORDER="0" WIDTH="101" HEIGHT="18" NAME="pf"></A><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/mm_admin0.gif;internal&inline=true" ALT="Admin" BORDER="0" WIDTH="62" HEIGHT="18" NAME="ad"><A
HREF="http://www2.iicm.edu/wavemaster.internal/applications/navigationexplorer_en.html?object=%2Fvbplugin.txt" ONMOUSEOVER="ba('na');window.status='Go to the Hyperwave navigation aids start page';return true" ONMOUSEOUT="bia('na','1')"><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/mm_navi1.gif;internal&inline=true" ALT="Navigation aids" BORDER="0" WIDTH="51" HEIGHT="18" NAME="na"></A><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/mm_space.gif;internal&inline=true" WIDTH="13" HEIGHT="18" NAME="space"><A
HREF="http://www2.iicm.edu/vbplugin.txt;internal&action=_help.action" ONMOUSEOVER="ba('he');window.status='Get Help on Hyperwave features';return true" ONMOUSEOUT="bia('he','1')"><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/mm_help1.gif;internal&inline=true" ALT="Help" BORDER="0" WIDTH="51" HEIGHT="18" NAME="he"></A><A
HREF="http://www2.iicm.edu/vbplugin.txt;internal&action=about.action" ONMOUSEOVER="window.status='About Hyperwave';return true"><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/mm_logo1.gif;internal&inline=true" ALT="About Hyperwave" BORDER="0" WIDTH="59" HEIGHT="18" NAME="logo"></A></TD></TR>
<TR>
<TD><A
HREF="http://www2.iicm.edu/rootcollection" ONMOUSEOVER="ba('ho');window.status='Go to the global Hyperwave homecollection on the server';return true" ONMOUSEOUT="bia('ho','1')"><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/me_ho1.gif;internal&inline=true" ALT="Global Home Collection" BORDER="0" WIDTH="48" HEIGHT="18" NAME="ho"></A><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/me_ph0.gif;internal&inline=true" ALT="Private Home - login first" BORDER="0" WIDTH="30" HEIGHT="18" NAME="ph"><A
HREF="http://www2.iicm.edu/Cpub" ONMOUSEOVER="ba('up');window.status='Go one level up to the parent of the current document';return true" ONMOUSEOUT="bia('up','1')"><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/me_up1.gif;internal&inline=true" ALT="Up one level" BORDER="0" WIDTH="30" HEIGHT="18" NAME="up"></A><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/me_space.gif;internal&inline=true" WIDTH="30" HEIGHT="18"><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/me_space.gif;internal&inline=true" WIDTH="30" HEIGHT="18"><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/me_space.gif;internal&inline=true" WIDTH="120" HEIGHT="18"><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/me_space.gif;internal&inline=true" WIDTH="180" HEIGHT="18"><A
HREF="http://www2.iicm.edu/vbplugin.txt?hyperwave=action%3dplain.action" ONMOUSEOVER="ba('hf');window.status='Disable the Hyperwave header and footer for this document';return true" ONMOUSEOUT="bia('hf','1')"><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/me_hf1.gif;internal&inline=true" ALT="Header/Footer off" BORDER="0" WIDTH="30" HEIGHT="18" NAME="hf"></A><A
HREF="http://www2.iicm.edu/vbplugin.txt;internal&action=attributes.action" ONMOUSEOVER="ba('at');window.status='Show the Hyperwave attributes for the current document';return true" ONMOUSEOUT="bia('at','1')"><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/me_at1.gif;internal&inline=true" ALT="Show Attributes" BORDER="0" WIDTH="30" HEIGHT="18" NAME="at"></A><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/me_space.gif;internal&inline=true" WIDTH="17" HEIGHT="18"><A HREF="http://www2.iicm.edu/vbplugin.txt;internal&action=about.action" ONMOUSEOVER="window.status='About Hyperwave';return true"><IMG
SRC="http://www2.iicm.edu/v4.1/m/en/me_logo1.gif;internal&inline=true" ALT="About Hyperwave" BORDER="0" WIDTH="55" HEIGHT="18"></A></TD></TR>
</TABLE>
<P> </P>
<H1>Subject: Embedding GN-Tools in Visual BASIC 5.0
</h1><pre>From: "Open Mind Productions" <openmind@bigfoot.com>
A while ago I promised to send you the code to embed your tools in Visual
BASIC.
Well, here it is !
As an example I use MIDINOTE, but it should work with all DOS executables.
--------------------------------------------------------------------
' Change the work directory to the application directory
' midinote.exe should be located there !
ChDir App.Path
' Copy the original midi-file to the work-file "temp.mid"
' This solves the long filename problem for DOS
FileCopy lblFileName.Caption, App.Path & "\temp.mid"
' Create a batch file to run midinote.exe
Open App.Path & "\PlugIn.bat" For Output As #1
Print #1, "midinote -values temp.mid > output.tmp"
Print #1, "copy output.tmp 0.tmp"
Close #1
' Run the PlugIn batch file
runPlugin = Shell(App.Path & "\PlugIn.bat", vbHide)
' Make the Visual BASIC application wait for "0.tmp" to be created.
' This means that the batch file has finished and "output.tmp" has been
created.
On Error GoTo plugInWait
plugInReady:
Open App.Path & "\0.tmp" For Input As #1
Line Input #1, xx1
Close #1
Kill App.Path & "\0.tmp"
Kill App.Path & "\temp.mid"
GoTo startProcessing
plugInWait:
Close #1
Resume plugInReady
startProcessing:
' This is where you can put code to process "output.tmp"
...
...
...
...
' Erase "output.tmp" when it's not needed anymore
Kill App.Path & "output.tmp"
--------------------------------------------------------------------
This code can be copied directly into a VB application.
I hope the embedded comment lines will do.
Thanks for your great C++ apps !!
Alex
====================================================================
没有合适的资源?快使用搜索试试~ 我知道了~
MIDI 示例程序 包括MIDI的各种应用
共42个文件
zip:40个
txt:2个
需积分: 13 14 下载量 102 浏览量
2009-06-01
15:55:14
上传
评论
收藏 1.44MB ZIP 举报
温馨提示
MIDI 示例程序 包括MIDI的各种应用 内有42个压缩包 是学习MIDI的最佳选择
资源推荐
资源详情
资源评论
收起资源包目录
MIDI_ALL.zip (42个子文件)
miditrim.zip 29KB
midicmp.zip 42KB
miditime.zip 29KB
midinote.zip 53KB
midi01.txt 8KB
midreset.zip 26KB
rmi2mid.zip 11KB
midi0to1.zip 27KB
midipat.zip 51KB
mididmp.zip 44KB
midimono.zip 25KB
midsplit.zip 30KB
midi2hex.zip 30KB
midifix.zip 19KB
txt2midi.zip 101KB
midi2gm.zip 35KB
midistat.zip 26KB
mididir.zip 52KB
midimode.zip 37KB
midifade.zip 72KB
dmp2midi.zip 41KB
mididrum.zip 35KB
mapnotes.zip 28KB
midisort.zip 41KB
midimap.zip 28KB
midiio.zip 50KB
vbplugin.txt 9KB
midi2to0.zip 27KB
note2mid.zip 51KB
midifind.zip 26KB
midivol.zip 27KB
miditran.zip 31KB
miditrk.zip 37KB
midifmt.zip 25KB
midcopyr.zip 30KB
midi1to0.zip 33KB
midi2txt.zip 48KB
midigrab.zip 12KB
midiprog.zip 41KB
midicat.zip 29KB
midicut.zip 42KB
midierr.zip 45KB
共 42 条
- 1
资源评论
wertywang2
- 粉丝: 1
- 资源: 6
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功