| |
| |
|
Georg
Hovenbitzer | Hello together,
to längerer absence of my person, must I you right time again of/ one question molest.
From Stefan Töngi there since kurzer Time The AudioGenie DLL, before was is a OCX The Thanks Pascal under Profan runs.
now wished I try these DLL under Profan 11.R6 to that walk To bring, what I do not been successful is.
it comes no brauchbares Result with whom Codes out, angezeit ought to The version number and a 2 for a gültige MP3 File.
I slopes time my different try on, Perhaps has Yes of/ one a idea.
1.attempt
CompileMarkSeparation
2. attempt
CompileMarkSeparation
3.attempt
CompileMarkSeparation
what works is, itself any functions the DLL Show To let.
CompileMarkSeparation
The DLL finds your under www.audiogenie.de had itself too append can, white but not whether this allows is.
I hope very you have a idea and can me help on. |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 06/06/08 ▲ |
|
| |
|
|
Jörg
Sellmeyer | |
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 06/06/08 ▲ |
|
| |
|
|
Georg
Hovenbitzer | Hello Jörg,
these mutants have so did i already any probiert, there comes not vernünftiges with rum.
strange is it, that to the appeal of AUDIOAnalyzeFile the PopUp Window the DLL comes, means happens Yes what. |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 06/06/08 ▲ |
|
| |
|
|
Jörg
Sellmeyer | | I werds tonight test times. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 06/06/08 ▲ |
|
| |
|
|
RGH | Hi,
The DLL using WideChar-Strings, with them each characters 2 Bytes big is. for the europäischen Zeichensatz means the, that each characters from the gewohnten byte followed of a zero-byte exists. the String-end becomes through one doppeltes zero-byte (zz) displayed. I have time two Procedures installed, The The conversion integrally without API distinguished. so functions your Program:
CompileMarkSeparation
Proc Str2WideChar
Wandelt den Ansi-String Ansi$ in einen WideChar-String um
Parameters Ansi$
Declare Wide$
WhileLoop 1, Len(Ansi$)
Wide$ = Wide$ + Substr$(Ansi$, &loop) + z
EndWhile
Return Wide$
EndProc
Proc WideCharAddr2Str
Ermittelt aus der Adresse eines WideChar-Strings buf&
den entsprechenden Ansi-String
Parameters buf&
Declare I%, Ansi$, WChar$
I% = 0
WChar$ = Char$(buf&, I%, 2)
While WChar$ <> zz
Ansi$ = Ansi$ + Char$(buf&, I%, 1)
Inc I%, 2
WChar$ = Char$(buf&, I%, 2)
EndWhile
Return Ansi$
EndProc
Def GetAudioGenieVersion(0) !AudioGenie2.dll,GetAudioGenieVersion
Def AUDIOAnalyzeFile(1) !AudioGenie2.dll,AUDIOAnalyzeFile
Declare File$
Declare Dll&
Declare Tmp&
Cls
File$ = Str2WideChar(Test.mp3)
Dll& = @UseDLL(AudioGenie2.dll)
Print Handle DLL = ,Dll&
Tmp& = GetAudioGenieVersion()
Print Version = + WideCharAddr2Str(Tmp&)
Tmp& = AUDIOAnalyzeFile(Addr(File$))
Print bei MP3 sollte 1 kommen = ,Tmp&
WaitInput
FreeDLL Dll&
../../function-references/XProfan/end/'>End
BTW: MP3 has The Kennziffer 1. The 2 standing for WMA. See here: [...] 
Greeting
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 06/06/08 ▲ |
|
| |
|
|
RGH | ... and here times the something erweiterte Version with ImportDLL, what itself here anbietet and explicit plainer to program is, as with DEFs. it go now too cover, album and Interpret displayed:
CompileMarkSeparation
Proc Str2WideChar
Wandelt den Ansi-String Ansi$ in einen WideChar-String um
Parameters Ansi$
Declare Wide$
WhileLoop 1, Len(Ansi$)
Wide$ = Wide$ + Substr$(Ansi$, &loop) + z
EndWhile
Return Wide$
EndProc
Proc WideCharAddr2Str
Ermittelt aus der Adresse eines WideChar-Strings buf&
den entsprechenden Ansi-String
Parameters buf&
Declare I%, Ansi$, WChar$
I% = 0
WChar$ = Char$(buf&, I%, 2)
While WChar$ <> zz
Ansi$ = Ansi$ + Char$(buf&, I%, 1)
Inc I%, 2
WChar$ = Char$(buf&, I%, 2)
EndWhile
Return Ansi$
EndProc
Declare File$
Declare Dll&
Declare Tmp&
Cls
File$ = Str2WideChar(Test.mp3)
Dll& = @ImportDLL(AudioGenie2.dll, My_)
Print Handle DLL = ,Dll&
Tmp& = My_GetAudioGenieVersion()
Print Version = + WideCharAddr2Str(Tmp&)
Tmp& = My_AUDIOAnalyzeFile(Addr(File$))
Print bei MP3 sollte 1 kommen = ,Tmp&
Tmp& = My_GetID3V1Album()
Print Album = + WideCharAddr2Str(Tmp&)
Tmp& = My_GetID3V1Artist()
Print Artist = + WideCharAddr2Str(Tmp&)
Tmp& = My_GetID3V1Title()
Print Title = + WideCharAddr2Str(Tmp&)
WaitInput
FreeDLL Dll&
='./../../function-references/XProfan/end/'>End
Greeting
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 06/06/08 ▲ |
|
| |
|
|
Georg
Hovenbitzer | Hello Roland,
what should I say, ES KLAPPT 
Vielen Thanks for Help, hereon would I never come.
One gültiges MP3 gives a 1 back, I had me there vertan, but by me coming anyhow always 0. |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 06/06/08 ▲ |
|
| |
|
(907)
Deutsch
English
Français
Español
Italia