CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Os Interesaria Una Clase Para Acceder A Cddb

(1/1)

Taursoft:
HOLA A TODOS SI QUEREIS UNA CLASE CDDB PARA ACCEDER AL SERVIDOR FREEDB PODEMOS ACERLA JUNTOS YA QUE YO DISPONGO DEL CODIGO PARA VISUAL BASIC 6.0
PERO YO LO NECESITO PARA VISUAL BASIC .NET
Y QUIERO QUE JUNTOS LO PASEMOS A VISUAL BASIC .NET PARA ELLO YO IRE PONIENDO PARTES DEL CODIGO

AQUI VA LA PRIMERA:

:comp:



--- Código: Text ---  Option Explicit 'Form handlesDim frmFuzzy As frmFuzzyMatchDim frmSites As frmServerSitesDim frmSubmit As frmSubmitInfo 'Default Freedb Server to useConst CDDB_SERVER As String = "freedb.freedb.org" 'EventsPublic Event ProtocolError(ByVal Number As Long, ByVal Message As String) 'EnumsPublic Enum uCDDBIfc    AUTO    SPTI    ASPI    MCIEnd Enum Public Enum uCDDBMode    TEST    SUBMITEnd Enum Public Enum uCDDBLang    ENGLISH    GERMAN    FRENCHEnd Enum Public Enum uCDDBMatchCode    MATCH_NONE    MATCH_MULTIPLE    MATCH_EXACTEnd Enum 'collectionsPrivate colServers      As CollectionPrivate colTrackNames   As CollectionPrivate colTrackTimes   As CollectionPrivate colTrackNotes   As Collection 'properties managementPrivate strAppName      As StringPrivate strAppVer       As StringPrivate enumCDDBMode    As uCDDBModePrivate strCDDBServer   As StringPrivate strUserEmail    As String'lrcuscp 13.5.2002Private strCDDBFilePath As String Private m_QueryString   As StringPrivate m_UseFirstMatch As BooleanPrivate m_AllowSubmit   As BooleanPrivate m_QueryLocal    As Boolean Private m_MatchCode     As uCDDBMatchCode Private m_MediaTOC      As StringPrivate m_MediaId       As StringPrivate m_ArtistName    As StringPrivate m_AlbumName     As StringPrivate m_Category      As StringPrivate m_Genre         As StringPrivate m_AlbumSeconds  As IntegerPrivate m_Tracks        As IntegerPrivate m_Notes         As StringPrivate m_Year          As StringPrivate m_Revision      As IntegerPrivate m_CdTextInfo    As String   Public Property Get GetMediaID() As String    GetMediaID = m_MediaIdEnd Property Public Property Get GetArtistName() As String    GetArtistName = m_ArtistNameEnd Property Public Property Get GetAlbumName() As String    GetAlbumName = m_AlbumNameEnd Property Public Property Get GetAlbumCategory() As String    GetAlbumCategory = m_CategoryEnd Property Public Property Get GetAlbumGenre() As String    GetAlbumGenre = m_Category    If (m_Genre <> "") Then GetAlbumGenre = m_GenreEnd Property Public Property Get GetAlbumLength() As Long    GetAlbumLength = m_AlbumSecondsEnd Property Public Property Get GetAlbumTracks() As Long    GetAlbumTracks = m_TracksEnd Property Public Property Get GetAlbumNotes() As String    GetAlbumNotes = m_NotesEnd Property Public Property Get GetAlbumYear() As String    GetAlbumYear = m_YearEnd Property Public Property Get GetAlbumRevision() As String    GetAlbumRevision = m_RevisionEnd Property Public Property Get GetTrackName(idx As Integer) As String    GetTrackName = ""    If (idx > 0 And idx <= colTrackNames.Count) Then        GetTrackName = colTrackNames(idx)    End IfEnd Property Public Property Get GetTrackTime(idx As Integer) As Integer    GetTrackTime = 0    If (idx > 0 And idx <= colTrackTimes.Count) Then        GetTrackTime = colTrackTimes(idx)    End IfEnd Property Public Property Get GetTrackNotes(idx As Integer) As String    GetTrackNotes = ""    If (idx > 0 And idx <= colTrackNotes.Count) Then        GetTrackNotes = colTrackNotes(idx)    End IfEnd Property Public Property Get GetCdText() As String    GetCdText = m_CdTextInfoEnd Property  Public Property Get GetServer(idx As Integer) As String    Dim i As Integer    Dim j As Integer    Dim site As String    Dim tmpsite() As String     'process errors here    On Error Resume Next     'pass back a specific server    If (idx > 0 And idx <= colServers.Count) Then        'get site info string, no parsing option        GetServer = colServers(idx)    Else        'populate the servers into the selection box        For i = 1 To colServers.Count            'break down sserver site string to give more clear selection display            tmpsite = Split(colServers(i), " ", 15, vbTextCompare)                        site = tmpsite(0)                       'server name            site = site & vbTab & tmpsite(4) & _                   vbTab & tmpsite(5) & vbTab       'lat and lon                        'get the location...            For j = 6 To UBound(tmpsite())                site = site & " " & tmpsite(j)            Next j                        'plug it in...            frmSites.lstList.AddItem site        Next i         'get user selection...        i = frmSites.GetSelection()         'server name _only_ returned, we are selecting for them...        tmpsite = Split(colServers(i), " ", 15, vbTextCompare)        GetServer = tmpsite(0)    End IfEnd Property  

TAMBIEN DEBEREIS DECLARAR LAS APIS NECESARIAS.

BUENO AQUI VA LA PRIMERA AHORA OS TOCA A VOSOTROS USTEDES TRADUCIS ESTO A .NET Y YO OS PONGO LA SEGUNDA PARTE ASI PODREIS AÑADIRLE A VUESTRAS APLICACIONES LA POSIBILIDAD DE ACCEDER A FREEDB CON ESTA CLASE QUE ES TOTALMENTE GRATUITA.

SALUDOS OS ESPERO AMIGOS  :comp:

Navegación

[0] Índice de Mensajes