XProfan

Français

Georg
Hovenbitzer

allô zusammen,

pour längerer Abwesenheit meiner personne, muss je euch direct la fois wieder avec einer Frage belästigen.
de Stefan Töngi gibt es depuis court Zeit qui AudioGenie DLL, auparavant était es une OCX qui Dank Pascal sous Profan fonctionne.

eh bien voulais je versuchen cet DLL sous Profan 11.R6 zum courir trop apporter, quoi Je ne gelungen ist.
Es venez ne...aucune brauchbares Ergebnis chez den Codes raus, angezeit sollte qui Versionsnummer et une 2 pour une gültige MP3 Dossier.
je hänge la fois mon verschiedenen Versuche à, peut-être hat oui einer une concept.

1.Versuch
Kompilieren Marque Séparation

Def GetAudioGenieVersion(0) !AudioGenie2.dll,GetAudioGenieVersion
Def AUDIOAnalyzeFile(1) !AudioGenie2.dll,AUDIOAnalyzeFile
Declare File$
Declare Dll&
Declare Tmp&
Cls
File$ = Test.mp3
Dll& = @UseDLL(AudioGenie2.dll)
Print Handle DLL = ,Dll&
Tmp& = GetAudioGenieVersion()
Print Version = ,Tmp&
Print oder so = ,@String$(Tmp&,0)
Tmp& = AUDIOAnalyzeFile(File$)
Print bei MP3 sollte 2 kommen = ,Tmp&
WaitInput
FreeDLL Dll&
Fin

2. Versuch
Kompilieren Marque Séparation

Déclarer File$
Déclarer Dll&
Déclarer Tmp&
Cls
File$ = Test.mp3
Dll& = importDLL(AudioGenie2.dll, My_)
Imprimer Handle = ,Dll&
Tmp& = My_GetAudioGenieVersion()
Imprimer Version = ,Tmp&
Imprimer ou bien so = ,@String$(Tmp&,0)
Tmp& = My_AUDIOAnalyzeFile(File$)
Imprimer chez MP3 sollte 2 venons = ,Tmp&
WaitInput
Fin

3.Versuch
Kompilieren Marque Séparation

Déclarer Tmp&
Déclarer File$
Cls
@Set(CallConv,STDCALL) ou bien CDECL
File$ = Test.mp3
Tmp& = @Externe(AudioGenie2.dll,GetAudioGenieVersion)
Imprimer Version = ,Tmp&
Imprimer ou bien so = ,@String$(Tmp&,0)
Tmp& = @Externe(AudioGenie2.dll,AUDIOAnalyzeFile,@Addr(File$))
Imprimer Tmp&
WaitInput
Fin

quoi klappt ist, sich alle Funktionen qui DLL Montrer trop laisser.
Kompilieren Marque Séparation

Cls
importDLL(AudioGenie2.dll, *)
ListBox$(DLL Funktionen,3)
WaitInput
Fin

qui DLL findet son sous www.audiogenie.de hätte sich aussi anhängen peut, sais mais pas si ca erlaubt ist.

je hoffe très vous avez une concept et peut mir weiterhelfen.

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

06.06.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Versuch fois le Adressen de Cordes trop transfert:
Kompilieren Marque Séparation

File$ = C:\meinmp3.mp3 + z vielleicht auch mit angehängtem Nullbyte
Tmp& = AUDIOAnalyzeFile(Addr(File$))e>

cela ici gibt aussi chez beiden Aufrufconventionen rien brauchbares zurück?
Kompilieren Marque Séparation

Tmp& = @External(AudioGenie2.dll,GetAudioGenieVersion)

aussi pas:
Kompilieren Marque Séparation

tmp$ = @External(AudioGenie2.dll,GetAudioGenieVersion)

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

06.06.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Georg
Hovenbitzer

allô Jörg,

cet Varianten habe je aussi déjà alle probiert, là venez pas vernünftiges chez rum.
Seltsam ist es, dass avant dem Aufruf de AUDIOAnalyzeFile cela PopUp la fenêtre qui DLL venez, alors passiert oui quoi.

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

06.06.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

je werds ce soir la fois testen.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

06.06.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

Salut,

qui DLL benutzt WideChar-Cordes, chez denen chaque marque 2 Bytes grand ist. Pour den europäischen Zeichensatz bedeutet cela, dass chaque marque aus dem gewohnten Byte gefolgt de einem zéro-Byte besteht. cela String-Ende wird par un doppeltes zéro-Byte (zz) angezeigt. j'ai la fois deux Prozeduren incorporé, qui qui Umwandlung entier sans API vornehmen. So funktioniert Dein Programme:
Kompilieren Marque Séparation

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/'>Fin

BTW: MP3 hat qui Kennziffer 1. qui 2 steht pour WMA. Siehe ici: [...]

Salut
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.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

... et ici fois le quelque chose Avancé Version avec ImportDLL, quoi sich ici anbietet et deutlich einfacher trop programmieren ist, comme avec DEFs. Es volonté maintenant aussi Titel, un album et Interpret angezeigt:
Kompilieren Marque Séparation

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/'>Fin

Salut
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.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Georg
Hovenbitzer

allô Roland,

quoi soll je dire, ES KLAPPT

Vielen Dank pour qui Aider, puis wäre je nie gekommen.
un gültiges MP3 gibt une 1 zurück, je hatte mich là vertan, mais chez mir kam sowieso toujours 0.

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

06.06.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation