Passion of ComputerScience

Linkube_Multiloader.exe

2008. 12. - 프로토타입 최종 마무리 
  캡션바를 활용한 정보전달
            디렉토리 탐색 추가
            텍스트 메뉴 저장기능 추가
            프로그램 안정성 확보

넘어온 오류
            이미지, 텍스트의 메뉴들은 아직 미구현
                      이미지, 텍스트의 경우 스크롤이 안생김
   인터넷 브라우저 활성화시 파일 드래그앤 드랍 오픈기능이 변질됨(익스플로러)
추가된 오류
볼륨 조절기능 작동 불가
            추가할 기능
            볼륨 조절기능
                     디렉토리를 열고 다음,이전파일 열기
            이미지파일 사이즈 조절
                      이미지 확장자 추가

2008. 11. 20. 목요일 - 기타 메뉴 수정
스크립트 메뉴 즐겨찾기 추가
            스크립트 파일 php확장자 추가 
 - php파일은 웹서버의 연동이 필요하므로, 차선책으로 대응.
            텍스트 메뉴 수정기능 추가. (저장은 아직 안됌.)

넘어온 오류
            이미지, 텍스트의 메뉴들은 아직 미구현
                        이미지, 텍스트의 경우 스크롤이 안생김
인터넷 브라우저 활성화시 파일 드래그앤 드랍 오픈기능이 변질됨(익스플로러)
추가된 오류
텍스트파일 열람시 널문자를 만나면 리드 종료
            추가할 기능
            볼륨 조절기능
                        디렉토리를 열고 다음,이전파일 열기
            이미지파일 사이즈 조절
                        이미지 확장자 추가

2008. 11. 12. 수요일 - 브라우저 메뉴 수정
뒤로, 앞으로 이동버튼 추가
            HELP 메뉴 수정, 단축키 메뉴얼 추가
            11.9일 두가지오류 수정

넘어온 오류
            이미지, 텍스트의 메뉴들은 아직 미구현
                        이미지, 텍스트의 경우 스크롤이 안생김
인터넷 브라우저 활성화시 파일 드래그앤 드랍 오픈기능이 변질됨(익스플로러)
추가된 오류
텍스트파일 열람시 널문자를 만나면 리드 종료
            추가할 기능
            볼륨 조절기능
                        디렉토리를 열고 다음,이전파일 열기
            이미지파일 사이즈 조절
                        이미지 확장자 추가

2008. 11. 09. 일요일 - Alpha test 시작.

그럴땐.... waveOutSetVolume 을 이용하면 되겠네요

 

1) 관련 레지스트리는 다음과 같습니다.

  HKEY_CURRENT_USER\ControlPanel\Volume\Volume   

 

즉 waveOutSetVolume 를 호출하면 레지스트리 값을 변경하고 이벤트 정도를 device에 보내주겠군요

 

2) waveOutSetVolume  사용 예제

볼륨의 값은 0 ~ 0xFFFF 의 값입니다. 

 

void SetSoundVolume(DWORD dwVolume) {
WAVEFORMATEX wf;
wf.wFormatTag = WAVE_FORMAT_PCM;
wf.nChannels = 1;
wf.nSamplesPerSec = 8000 * 1000;
wf.wBitsPerSample = 8;
wf.nBlockAlign = wf.nChannels * wf.wBitsPerSample / 8;
wf.nAvgBytesPerSec = wf.nSamplesPerSec * wf.nBlockAlign;
wf.cbSize = 0;

HWAVEOUT hwo;
//Device를 검색하는 거죠 .. Device의 갯수를 가지고와서 open 해보고 open 되면 볼륨을 조절하는 겁니다.

 for (UINT id = 0; id < waveOutGetNumDevs(); id++) {                     

  if (waveOutOpen(&hwo, id, &wf, 0, 0, CALLBACK_NULL)
                    == MMSYSERR_NOERROR)
                {
waveOutSetVolume(hwo, dwVolume);
waveOutClose(hwo);
break;
}
}
}

 

2 -1 ) 만약 볼륨 조절을 % 로 하고 싶다면

DWORD dwSoundVolumePercents = 50;
SetSoundVolume( (DWORD)(0xFFFF*1.0*dwSoundVolumePercents/100.0) );

 

3) 전 간단히 이렇게 사용하고 있습니다.

볼륨의 단계를 총 15 단계로 구분하여 설정하기 위해 사용했습니다.

device는 하나뿐이라 0으로 했구요 .

 DWORD dwVolume = 0xFFFF*dwAudioVolume/15;
 waveOutSetVolume(0, MAKELONG(dwVolume,dwVolume));

 

3 - 1) 현재의 볼륨값 읽어 오기

void GetAudioVolume( DWORD * dwAudioVolume )
{
   waveOutGetVolume(0 , dwAudioVolume );
   *dwAudioVolume = (DWORD)(*dwAudioVolume & 0xFFFF);

   *dwAudioVolume = (*dwAudioVolume*15 / 0xFFFF);
}

이상 시골 아재였습니다.

-----------------------------
Option Explicit
Private Type WAVEFORMAT
        wFormatTag As Integer
        nChannels As Integer
        nSamplesPerSec As Long
        nAvgBytesPerSec As Long
        nBlockAlign As Integer
End Type
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long
Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long
Private Declare Function waveOutOpen Lib "winmm.dll" (lphWaveOut As Long, ByVal uDeviceID As Long, lpFormat As WAVEFORMAT, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long
Private Declare Function waveOutClose Lib "winmm.dll" (ByVal hWaveOut As Long) As Long

Private Sub setSoundVolume(ByVal dwPercent As Long)
    Dim hWaveOut As Long, wf As WAVEFORMAT, myVol As Long
    If dwPercent > 100 Then dwPercent = 100
    If dwPercent < 0 Then dwPercent = 0
    Call waveOutOpen(hWaveOut, 0, wf, &H0, 0, 0)
    myVol = CLng(Int(65535 / 100 * CDbl(dwPercent)))
    CopyMemory ByVal VarPtr(myVol) + 2, myVol, 2
    waveOutSetVolume hWaveOut, myVol
    waveOutClose hWaveOut
End Sub

Private Function getSoundVolume() As Long
    Dim hWaveOut As Long, wf As WAVEFORMAT, CurVol As Long
    Call waveOutOpen(hWaveOut, 0, wf, &H0, 0, 0)
    waveOutGetVolume hWaveOut, CurVol
    waveOutClose hWaveOut
    getSoundVolume = CLng(CDbl(LoWord(CurVol)) / 65535 * 100)
End Function

Private Function LoWord(ByVal dw As Long) As Long
    CopyMemory LoWord, dw, 2
End Function

Private Sub Command1_Click()
    MsgBox getSoundVolume
    setSoundVolume 80
End Sub
-----------------------------

 

특정 위치로의 이동은 다음 예제를 활용하시면 될 것 같습니다.
-----------------------------
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long

Dim strRetTmp As String * 1024
Dim intRetVal As Long
Dim RFSpeed As Integer

Private Function sndOpenFile(sFile As String)
    sndClose
    intRetVal = mciSendString("open " & Chr$(34) & sFile & Chr$(34) & " alias wave wait", strRetTmp, 1024, 0)
    If intRetVal <> 0 Then
        mciGetErrorString intRetVal, strRetTmp, 1024
        MsgBox strRetTmp, vbCritical, "파일 열기 실패"
        Exit Function
    End If
End Function

Private Function sndPlay()
    On Error GoTo er1
    intRetVal = mciSendString("play wave", strRetTmp, 1024, 0)
    Exit Function
er1:
End Function

Private Function sndStop()
    sndPause
End Function

Private Function sndClose()
    intRetVal = mciSendString("close wave", strRetTmp, 1024, 0)
End Function

Private Function sndPause()
    intRetVal = mciSendString("pause wave", strRetTmp, 1024, 0)
End Function

Private Function sndForward(Optional iPlace As Long = 1)
    On Error Resume Next
    Dim TmpStr As String * 128
    intRetVal = mciSendString("set wave save time format milliSeconds", strRetTmp, 1024, 0)
    intRetVal = mciSendString("status wave position wait", TmpStr, 128, 0)
    If iPlace = 1 Then
        intRetVal = mciSendString("play wave from " & CStr(CLng(TmpStr) + RFSpeed), 0, 0, 0)
    Else
        intRetVal = mciSendString("play wave from " & CStr(CLng(iPlace)), 0, 0, 0)
    End If
    intRetVal = mciSendString("set wave time format tmsf", TmpStr, 128, 0)
    intRetVal = mciSendString("pause wave", strRetTmp, 1024, 0)
End Function

Private Function sndRewind()
    On Error Resume Next
    Dim TmpStr As String * 128
    intRetVal = mciSendString("set wave time format milliSeconds", strRetTmp, 1024, 0)
    intRetVal = mciSendString("status wave position wait", TmpStr, 128, 0)
    intRetVal = mciSendString("play wave from " & CStr(CLng(TmpStr) - RFSpeed), 0, 0, 0)
    intRetVal = mciSendString("set wave time format tmsf", TmpStr, 128, 0)
End Function

Private Function GetPos() As String
    Dim sTime As String
    intRetVal = mciSendString("status wave position", strRetTmp, 1024, 0)
    GetPos = Val(strRetTmp)
End Function

Private Function GetLen() As String
    Dim sTime As String
    On Error GoTo ger1
    intRetVal = mciSendString("status wave length wait", strRetTmp, 1024, 0)
    GetLen = Val(strRetTmp)
ger1:
End Function
-----------------------------
위에서 sndForward 함수를 사용하면 특정 위치로 이동할 수 있습니다.

아 왜 하필 MFC여..ㅠㅠ

sound & video posting 2005/05/19 12:28 http://blog.naver.com/slash512/40013274160 이 포스트를 보낸곳 ()

드래그 드랍을 지원하기 위해서는 다음과 같은 속성을 윈도우에 주어야 한다.


hWnd = CreateWindowEx(WS_EX_ACCEPTFILES,.... )

저렇게해야만 드래그앤 드랍이 가능해 진다.

그리고 다음과 같은 메세지를 받을수 있다.


switch(iMessage) {
case WM_DROPFILES:
        DragQueryFile((HDROP)wParam, 0, d_filename,1024);
        loadFile(DROP_OK);
        DragFinish((HDROP) wParam);
        return 0;
.....

d_filename 으로 화일명을 받아 들일수 있다.
여기서 1024는 화일명이 받을수 있는 크기이다.

출처 : http://ggaman.com/tt/450

 

위의 플레시가 대략적인 프로그램의 모습입니다.  
큐브의 각 색상은 각 프로그램을 뜻하며,
실행시 위처럼 돌아가지는 않습니다.

그리고 개발환경이나 동작환경은
윈도우의 api나 mfc를 사용할 예정이고,
무엇보다도 절대적인 윈도우의 점유율때문에,
위 플레시처럼 윈도우에서만 작동할것입니다.

꿀뷰3라는 프로그램입니다.
이 프로그램의 모든 기능까지는 다 구현할 순없어도
GUI나 메뉴방식이 생각하고 있는 이미지와 비슷해서 참고하려고 합니다.
아쉽게도 오픈소스 프로그램은 아니라서 정보는 자력으로 구해야겠네요.