forse ci siamo .. almeno per la prima parte del discorso.
Con questo codice riesco a scaricare una pagina web dal sito opportuno. Ma non e' la pagina giusta :-(
' Gambas class file
Public Covers As Collection[] 'collezione di tutte le risposte json
Public StringaRicerca As String
Public StringaRisultati As String[]
Public MyHttpClient As New HttpClient As "ClienteHTTP"
Public Result As File
Public Sub Button_Search_Click()
Dim server As String = "https://archive.org/details/coverartarchive"
'per esempio https://archive.org/details/coverartarchive?and[]=iron%20maiden%20powerslave&and[]=mediatype%3A%22image%22
'StringaRicerca = "https://archive.org/details/coverartarchive?and[]=" & webalize(TextBox_Autore.Text) & "%20" & webalize(TextBox_Album.Text) & "&and[]=mediatype%3A%22image%22"
StringaRicerca = "?and[]=" & webalize(TextBox_Autore.Text) & "%20" & webalize(TextBox_Album.Text) & "&and[]=mediatype%3A%22image%22"
MyHttpClient.URL = server
MyHttpClient.Post("application/json", StringaRicerca,, User.Home & "/result.html")
'result = MyHttpClient.Post("application/json", StringaRicerca)
End
Public Function webalize(stringa As String) As String
stringa = Replace(stringa, " ", "%20")
Return stringa
End
Public Sub ClienteHTTP_read()
Debug "legge qualcosa"
End
Public Sub ClienteHTTP_Finished()
'Debug Result.Save(User.Home & "/risultati.html")
Debug "fine lettura"
End
Ovvero e' una pagina del CoverArchive, ma sembra ignorare la mia richiesta ....
Come faccio a capire quale stringa invia il post?
passando da post a get ci siamo:
Public Sub Button_Search_Click()
'per esempio https://archive.org/details/coverartarchive?and[]=iron%20maiden%20powerslave&and[]=mediatype%3A%22image%22
StringaRicerca = "https://archive.org/details/coverartarchive?and[]=" & webalize(TextBox_Autore.Text) & "%20" & webalize(TextBox_Album.Text) & "&and[]=mediatype%3A%22image%22"
MyHttpClient.URL = StringaRicerca
MyHttpClient.get(, User.Home & "/result_get.html")
End
ora devo fare il parsing della pagina e trovare dove sta' il file di immagine :D
una supercazzola in pratica ... :rotfl: :rotfl:
' Gambas class file
Library "coverart" 'libreria di musicbrainz per la gestione delle locandine
Extern FetchImage(id As String) As Picture 'la funzione C++ sarebbe std::vector<unsigned char> ImageData=CoverArt.FetchImage(ReleaseID,Image->ID());
.......
Public Sub Button_Download_Click()
Dim copertina As Image
copertina = FetchImage(Replace(label_IdAlbum.Text, "mbid-", ""))
....
cannot find dynamic library 'coverart.so' ... etc etc