Ver Mensaje Individual
  #8  
Antiguo 07-07-2014
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.282
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Por lo que describes, es muy parecido al ejemplo que se describe aquí.
Utiliza las Indy.
Deberías obtener el resultado en JSON, después sólo te queda extraer los datos necesarios.
En el link puedes descargar el proyecto de ejemplo con código incluido.

El código será similar a este:

Código Delphi [-]
// ini
IdHTTP.ReadTimeout := 30000;
IdSSL :=TIdSSLIOHandlerSocket.Create(nil);  // SSL
 
IdHTTP.IOHandler := IdSSL;
IdSSL.SSLOptions.Method := sslvTLSv1;
IdSSL.SSLOptions.Mode := sslmUnassigned;
idHTTP.HandleRedirects := True;
 
// Montamos la cadena a solicitar
s := AnsiReplaceText(FArtista, ' ', '+') +
'+' +
AnsiReplaceText(FTitulo, ' ', '+');
s := Format(INI_URL, [s, FNumResults]);
 
// Proteccion para solicitar datos
try
// Obtener resultado
idHTTP.Get(s, ms);

En tu caso más sencillo, pues la parte de SSL no la necesitaras.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita