XProfan

Español

Georg
Hovenbitzer

¡Hola zusammen,

después de längerer Abwesenheit meiner Person, muss Yo euch direkt veces otra vez con uno Cuestión belästigen.
Von Stefan Töngi hay seit corto Tiempo el AudioGenie DLL, vorher war lo una OCX el Dank Pascal bajo Profano se ejecuta.

Nun Yo quería versuchen esta DLL bajo Profano 11.R6 para laufen a bringen, qué No gelungen es.
Lo kommt kein brauchbares Ergebnis en el Codes fuera, angezeit debería el Versionsnummer y una 2 para una gültige MP3 Expediente.
Yo hänge veces mi verschiedenen Versuche a, tal vez ha sí uno una Concepto.

1.Intento
Kompilieren Marca Separación

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&
End

2. Intento
Kompilieren Marca Separación

Declarar File$
Declarar Dll&
Declarar Tmp&
Cls
File$ = Test.mp3
Dll& = importDLL(AudioGenie2.dll, My_)
Imprimir Handle = ,Dll&
Tmp& = My_GetAudioGenieVersion()
Imprimir Versión = ,Tmp&
Imprimir oder así = ,@String$(Tmp&,0)
Tmp& = My_AUDIOAnalyzeFile(File$)
Imprimir en MP3 debería 2 kommen = ,Tmp&
WaitInput
End

3.Intento
Kompilieren Marca Separación

Declarar Tmp&
Declarar File$
Cls
@Conjunto(CallConv,STDCALL) oder CDECL
File$ = Test.mp3
Tmp& = @Externo(AudioGenie2.dll,GetAudioGenieVersion)
Imprimir Versión = ,Tmp&
Imprimir oder así = ,@String$(Tmp&,0)
Tmp& = @Externo(AudioGenie2.dll,AUDIOAnalyzeFile,@Addr(File$))
Imprimir Tmp&
WaitInput
End

Was klappt es, se todos Características el DLL Mostrar que se.
Kompilieren Marca Separación

Cls
importDLL(AudioGenie2.dll, *)
ListBox$(DLL Características,3)
WaitInput
End

El DLL findet ihr bajo www.audiogenie.de hätte se auch anhängen puede, weiß pero no si dies erlaubt es.

Yo hoffe muy ihr habt una Concepto y könnt me weiterhelfen.

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

06.06.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Intento veces el Adressen de Cuerdas a transferencia:
Kompilieren Marca Separación

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

Das hier son auch en beiden Aufrufconventionen nichts brauchbares zurück?
Kompilieren Marca Separación

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

Auch no:
Kompilieren Marca Separación

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

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

06.06.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Hovenbitzer

¡Hola Jörg,

esta Varianten Yo auch ya todos probiert, como kommt no vernünftiges en rum.
Seltsam es, dass antes el Aufruf de AUDIOAnalyzeFile el PopUp Ventana el DLL kommt, also passiert sí qué.

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

06.06.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Yo werds heute abend veces testen.

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

06.06.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

¡Hola,

el DLL benutzt WideChar-Cuerdas, en denen cada Signo 2 Bytes groß es. Für el europäischen Zeichensatz bedeutet el, dass cada Signo de el gewohnten Byte gefolgt de una Null-Byte besteht. Das String-Ende se por una doppeltes Null-Byte (zz) adecuado. Yo habe veces zwei Prozeduren instalado, el el Umwandlung bastante sin API vornehmen. So funktioniert Su Programa:
Kompilieren Marca Separación

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 ha el Kennziffer 1. El 2 es para WMA. Siehe hier: [...]

Saludo
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 Zitat

Absatzweise Cita Zeilenweise Cita

RGH

... y aquí veces el algo erweiterte Versión con ImportDLL, qué se hier anbietet y deutlich einfacher a programa es, como con DEFs. Lo voluntad ahora Titel, Album y Interpret adecuado:
Kompilieren Marca Separación

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

Saludo
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 Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Hovenbitzer

Hola Roland,

qué se Yo sagen, ES KLAPPT

Vielen Dank para el Ayuda, darauf wäre Yo nie gekommen.
Ein gültiges MP3 son una 1 zurück, Yo hatte mich como vertan, pero en me kam sowieso siempre 0.

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

06.06.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita