Add files via upload

chunmingwang · Sep 27, 2024 · ba200a4 · ba200a4
1 parent 905ffc2
commit ba200a4
Show file tree

Hide file tree

Showing 25 changed files with 65 additions and 49 deletions.
diff --git a/capturesound.bas b/capturesound.bas
@@ -1,6 +1,6 @@
 #pragma once
 'capturesound声音捕捉
-' Copyright (c) 2023 CM.Wang
+' Copyright (c) 2024 CM.Wang
 ' Freeware. Use at your own risk.
 
 #include once "capturesound.bi"
@@ -177,7 +177,7 @@ Private Function RecordStart() As HRESULT
 
 	hr = g_pDSBCapture->lpVtbl->Start(g_pDSBCapture, DSCBSTART_LOOPING)
 	DXTRACE_MSG("RecordStart()g_pDSBCapture->lpVtbl->Start", hr)
-	
+
 	Return hr
 End Function
 

diff --git a/capturesound.bi b/capturesound.bi
@@ -1,9 +1,8 @@
 #pragma once
 'capturesound声音捕捉
-' Copyright (c) 2023 CM.Wang
+' Copyright (c) 2024 CM.Wang
 ' Freeware. Use at your own risk.
 
-
 #include once "mff/ComboBoxEdit.bi"
 Using My.Sys.Forms
 

diff --git a/capturesound.vfp b/capturesound.vfp
@@ -11,7 +11,7 @@ OpenProjectAsFolder=false
 MajorVersion=0
 MinorVersion=0
 RevisionVersion=0
-BuildVersion=764
+BuildVersion=866
 AutoIncrementVersion=false
 ApplicationTitle="capturesound"
 ApplicationIcon=""
@@ -38,7 +38,4 @@ CreateDebugInfo=false
 AndroidSDKLocation=""
 AndroidNDKLocation=""
 JDKLocation=""
-ControlLibrary="Controls/MariaDBBox"
 ControlLibrary="Controls/MyFbFramework"
-ControlLibrary="Controls/ScintillaControl"
-ControlLibrary="Controls/SQLite3"
diff --git a/dsbase.bas b/dsbase.bas
@@ -1,3 +1,7 @@
+'dsbase ds基础库
+' Copyright (c) 2024 CM.Wang
+' Freeware. Use at your own risk.
+
 #pragma once
 #include once "dsbase.bi"
 

diff --git a/dsbase.bi b/dsbase.bi
@@ -1,5 +1,6 @@
 #pragma once
-' Copyright (c) 2023 CM.Wang
+'dsbase ds基础库
+' Copyright (c) 2024 CM.Wang
 ' Freeware. Use at your own risk.
 
 #include once "mff/ComboBoxEdit.bi"

diff --git a/enumdevices.bas b/enumdevices.bas
@@ -1,5 +1,5 @@
 ' enumdevices设备枚举
-' Copyright (c) 2023 CM.Wang
+' Copyright (c) 2024 CM.Wang
 ' Freeware. Use at your own risk.
 
 #include once "enumdevices.bi"

diff --git a/enumdevices.bi b/enumdevices.bi
@@ -1,5 +1,5 @@
 'enumdevices设备枚举
-' Copyright (c) 2023 CM.Wang
+' Copyright (c) 2024 CM.Wang
 ' Freeware. Use at your own risk.
 
 #include once "dsbase.bi"

diff --git a/enumdevices.vfp b/enumdevices.vfp
@@ -11,7 +11,7 @@ OpenProjectAsFolder=false
 MajorVersion=0
 MinorVersion=0
 RevisionVersion=0
-BuildVersion=45
+BuildVersion=142
 AutoIncrementVersion=false
 ApplicationTitle="enumdevices"
 ApplicationIcon=""

diff --git a/frmcapturesound.frm b/frmcapturesound.frm
@@ -1,4 +1,8 @@
-'#Region "Form"
+'capturesound声音捕捉
+' Copyright (c) 2024 CM.Wang
+' Freeware. Use at your own risk.
+
+'#Region "Form"
 	#if defined(__FB_MAIN__) AndAlso Not defined(__MAIN_FILE__)
 		#define __MAIN_FILE__
 		#ifdef __FB_WIN32__
@@ -16,7 +20,7 @@
 	#include once "mff/Dialogs.bi"
 
 	#include once "capturesound.bi"
-	#include once "../../MDINotepad/text.bi"
+	#include once "../MDINotepad/text.bi"
 	Using My.Sys.Forms
 
 	Type Form1Type Extends Form
@@ -232,15 +236,14 @@ End Function
 Private Sub Form1Type.CaptureSound()
 	nLength = 0
 	Dim hr As HRESULT
+	Dim filename As ZString Ptr
+	TextToAnsi(TextBox1.Text, filename)
 
-	Dim filename As String = TextToAnsi(TextBox1.Text)
-
-	WaveFileCreate(Cast(ZString Ptr, StrPtr(filename)), CLng(ComboBoxEdit2.Items.Item(ComboBoxEdit2.ItemIndex)), CLng(ComboBoxEdit3.Items.Item(ComboBoxEdit3.ItemIndex)), CLng(ComboBoxEdit4.Items.Item(ComboBoxEdit4.ItemIndex)))
+	WaveFileCreate(filename, CLng(ComboBoxEdit2.Items.Item(ComboBoxEdit2.ItemIndex)), CLng(ComboBoxEdit3.Items.Item(ComboBoxEdit3.ItemIndex)), CLng(ComboBoxEdit4.Items.Item(ComboBoxEdit4.ItemIndex)))
 
 	hr = InitDirectSound(Handle, Cast(GUID Ptr, ComboBoxEdit1.ItemData(ComboBoxEdit1.ItemIndex)))
 	WaveFormatSet(CInt(ComboBoxEdit2.ItemData(ComboBoxEdit2.ItemIndex)), CInt(ComboBoxEdit3.ItemData(ComboBoxEdit3.ItemIndex)), CInt(ComboBoxEdit4.ItemData(ComboBoxEdit4.ItemIndex)), @g_wfxInput)
 	hr = CreateCaptureBuffer(@g_wfxInput)
-	'hr = OnSaveSoundFile(Cast(LPTSTR, StrPtr(filename)))
 	hr = InitNotifications()
 	hr = RecordStart()
 
@@ -259,7 +262,7 @@ Private Sub Form1Type.CaptureSound()
 			'a piece of the buffer, so we need to fill the circular
 			'buffer with new sound from the wav file
 
-			nLength += RecordCapturedData(Cast(ZString Ptr, StrPtr(filename)))
+			nLength += RecordCapturedData(filename)
 			DXTRACE_MSG("==RecordCapturedData==", hr)
 		Case WAIT_OBJECT_0 + 1
 			DXTRACE_MSG("Windows messages are available", 0)
@@ -269,13 +272,12 @@ Private Sub Form1Type.CaptureSound()
 	DXTRACE_MSG("While(bStarting)=false", 0)
 
 	hr = RecordStop()
-	nLength += RecordCapturedData(Cast(ZString Ptr, StrPtr(filename)))
-
-	WaveFileClose(Cast(ZString Ptr, StrPtr(filename)))
+	nLength += RecordCapturedData(filename)
 
+	WaveFileClose(filename)
 	FreeDirectSound()
-
 	CtlEnabled(True)
+	Deallocate(filename)
 End Sub
 
 Private Sub Form1Type.CtlEnabled(b As Boolean)

diff --git a/frmcapturesound.rc b/frmcapturesound.rc
@@ -3,8 +3,8 @@
 #define APP_TITLE_STR               "capturesound\0"
 #define VER_FILEDESCRIPTION_STR     "capturesound\0"
 
-#define VER_FILEVERSION             0,0,0,764
-#define VER_FILEVERSION_STR         "0.0.0.764\0"
+#define VER_FILEVERSION             0,0,0,866
+#define VER_FILEVERSION_STR         "0.0.0.866\0"
 
 #define VER_LEGALCOPYRIGHT_STR      "Cm.Wang\0"
 

diff --git a/frmenumdevices.frm b/frmenumdevices.frm
@@ -1,4 +1,8 @@
-'#Region "Form"
+'enumdevices设备枚举
+' Copyright (c) 2024 CM.Wang
+' Freeware. Use at your own risk.
+
+'#Region "Form"
 	#if defined(__FB_MAIN__) AndAlso Not defined(__MAIN_FILE__)
 		#define __MAIN_FILE__
 		#ifdef __FB_WIN32__

diff --git a/frmenumdevices.rc b/frmenumdevices.rc
@@ -3,8 +3,8 @@
 #define APP_TITLE_STR               "enumdevices\0"
 #define VER_FILEDESCRIPTION_STR     "enumdevices\0"
 
-#define VER_FILEVERSION             0,0,0,45
-#define VER_FILEVERSION_STR         "0.0.0.45\0"
+#define VER_FILEVERSION             0,0,0,142
+#define VER_FILEVERSION_STR         "0.0.0.142\0"
 
 #define VER_LEGALCOPYRIGHT_STR      "Cm.Wang\0"
 

diff --git a/frmfullduplexfilter.frm b/frmfullduplexfilter.frm
@@ -1,4 +1,8 @@
-'#Region "Form"
+'fullduplexfilter全双工滤波器
+' Copyright (c) 2024 CM.Wang
+' Freeware. Use at your own risk.
+
+'#Region "Form"
 	#if defined(__FB_MAIN__) AndAlso Not defined(__MAIN_FILE__)
 		#define __MAIN_FILE__
 		#ifdef __FB_WIN32__

diff --git a/frmfullduplexfilter.rc b/frmfullduplexfilter.rc
@@ -3,8 +3,8 @@
 #define APP_TITLE_STR               "fullduplexfilter\0"
 #define VER_FILEDESCRIPTION_STR     "fullduplexfilter\0"
 
-#define VER_FILEVERSION             0,0,0,386
-#define VER_FILEVERSION_STR         "0.0.0.386\0"
+#define VER_FILEVERSION             0,0,0,482
+#define VER_FILEVERSION_STR         "0.0.0.482\0"
 
 #define VER_LEGALCOPYRIGHT_STR      "Cm.Wang\0"
 

diff --git a/frmsoundfx.frm b/frmsoundfx.frm
@@ -1,4 +1,8 @@
-'#Region "Form"
+'soundfx声音效果器
+' Copyright (c) 2024 CM.Wang
+' Freeware. Use at your own risk.
+
+'#Region "Form"
 	#if defined(__FB_MAIN__) AndAlso Not defined(__MAIN_FILE__)
 		#define __MAIN_FILE__
 		#ifdef __FB_WIN32__
@@ -307,13 +311,13 @@ End Sub
 
 Private Sub Form1Type.Form_Create(ByRef Sender As Control)
 	'Initialize COM
-	CoInitialize(NULL)
+	'CoInitialize(NULL)
 End Sub
 
 Private Sub Form1Type.Form_Destroy(ByRef Sender As Control)
 	'Uninitialize COM
 	MusicStop()
-	CoUninitialize()
+	'CoUninitialize()
 End Sub
 
 Private Sub Form1Type.TrackBar_Change(ByRef Sender As TrackBar, Position As Integer)

diff --git a/frmsoundfx.rc b/frmsoundfx.rc
@@ -3,8 +3,8 @@
 #define APP_TITLE_STR               "soundfx\0"
 #define VER_FILEDESCRIPTION_STR     "soundfx\0"
 
-#define VER_FILEVERSION             0,0,0,81
-#define VER_FILEVERSION_STR         "0.0.0.81\0"
+#define VER_FILEVERSION             0,0,0,178
+#define VER_FILEVERSION_STR         "0.0.0.178\0"
 
 #define VER_LEGALCOPYRIGHT_STR      "Cm.Wang\0"
 

diff --git a/frmwavegenerator.frm b/frmwavegenerator.frm
@@ -1,4 +1,8 @@
-'#Region "Form"
+'wavegenerator波形发生器
+' Copyright (c) 2024 CM.Wang
+' Freeware. Use at your own risk.
+
+'#Region "Form"
 	#if defined(__FB_MAIN__) AndAlso Not defined(__MAIN_FILE__)
 		#define __MAIN_FILE__
 		#ifdef __FB_WIN32__

diff --git a/frmwavegenerator.rc b/frmwavegenerator.rc
@@ -3,8 +3,8 @@
 #define APP_TITLE_STR               "wavegenerator\0"
 #define VER_FILEDESCRIPTION_STR     "wavegenerator\0"
 
-#define VER_FILEVERSION             0,0,0,163
-#define VER_FILEVERSION_STR         "0.0.0.163\0"
+#define VER_FILEVERSION             0,0,0,263
+#define VER_FILEVERSION_STR         "0.0.0.263\0"
 
 #define VER_LEGALCOPYRIGHT_STR      "Cm.Wang\0"
 

diff --git a/fullduplexfilter.bas b/fullduplexfilter.bas
@@ -1,5 +1,5 @@
 'fullduplexfilter全双工滤波器
-' Copyright (c) 2023 CM.Wang
+' Copyright (c) 2024 CM.Wang
 ' Freeware. Use at your own risk.
 
 #include once "fullduplexfilter.bi"

diff --git a/fullduplexfilter.bi b/fullduplexfilter.bi
@@ -1,6 +1,6 @@
 #pragma once
 'fullduplexfilter全双工滤波器
-' Copyright (c) 2023 CM.Wang
+' Copyright (c) 2024 CM.Wang
 ' Freeware. Use at your own risk.
 
 #include once "dsbase.bi"

diff --git a/fullduplexfilter.vfp b/fullduplexfilter.vfp
@@ -11,7 +11,7 @@ OpenProjectAsFolder=false
 MajorVersion=0
 MinorVersion=0
 RevisionVersion=0
-BuildVersion=386
+BuildVersion=482
 AutoIncrementVersion=false
 ApplicationTitle="fullduplexfilter"
 ApplicationIcon=""
@@ -38,7 +38,4 @@ CreateDebugInfo=false
 AndroidSDKLocation=""
 AndroidNDKLocation=""
 JDKLocation=""
-ControlLibrary="Controls/MariaDBBox"
 ControlLibrary="Controls/MyFbFramework"
-ControlLibrary="Controls/ScintillaControl"
-ControlLibrary="Controls/SQLite3"
diff --git a/soundfx.vfp b/soundfx.vfp
@@ -9,7 +9,7 @@ OpenProjectAsFolder=false
 MajorVersion=0
 MinorVersion=0
 RevisionVersion=0
-BuildVersion=81
+BuildVersion=178
 AutoIncrementVersion=false
 ApplicationTitle="soundfx"
 ApplicationIcon=""

diff --git a/wavegenerator.bas b/wavegenerator.bas
@@ -1,6 +1,6 @@
 #pragma once
 'wavegenerator波形发生器
-' Copyright (c) 2023 CM.Wang
+' Copyright (c) 2024 CM.Wang
 ' Freeware. Use at your own risk.
 
 #include once "wavegenerator.bi"

diff --git a/wavegenerator.bi b/wavegenerator.bi
@@ -1,6 +1,6 @@
 #pragma once
 'wavegenerator波形发生器
-' Copyright (c) 2023 CM.Wang
+' Copyright (c) 2024 CM.Wang
 ' Freeware. Use at your own risk.
 
 #include once "dsbase.bi"

diff --git a/wavegenerator.vfp b/wavegenerator.vfp
@@ -11,7 +11,7 @@ OpenProjectAsFolder=false
 MajorVersion=0
 MinorVersion=0
 RevisionVersion=0
-BuildVersion=163
+BuildVersion=263
 AutoIncrementVersion=false
 ApplicationTitle="wavegenerator"
 ApplicationIcon=""