Ver Mensaje Individual
  #7  
Antiguo 09-02-2023
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.289
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
Cita:
Empezado por esublim Ver Mensaje
quiero ver si logro verlo en tipo json y me tope con esto:
http://www.cne.gob.ve/web/js/re.php
sera que alguien me echa una manito
Cita:
Empezado por esublim Ver Mensaje
Eso simplemente son páginas de código que no deberías ver.

Como te he dicho en el otro mensaje, busca en los links:
Con este código puede descargar el código fuente de la página:

Código Delphi [-]
procedure TForm3.Button1Click(Sender: TObject);
var
  http: TIdHTTP;
  IdSSLIOHandler: TIdSSLIOHandlerSocketOpenSSL;
  temp: TFileStream;
  fName:string;
begin
  fName := 'r:\out.txt';

  http := TIdHTTP.Create(Self);
  IdSSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  try
    http.IOHandler := IdSSLIOHandler;
    IdSSLIOHandler.SSLOptions.SSLVersions := [sslvSSLv2, sslvTLSv1_2];
    IdSSLIOHandler.SSLOptions.Method := sslvSSLv23;

    temp := TFileStream.Create(fName, fmCreate);
    try
      http.Get('https://bcv.org.ve/', temp);
    finally
      temp.Free;
    end;
    Memo1.Lines.LoadFromFile(fName);
  finally
    FreeAndNil(http);
    FreeAndNil(IdSSLIOHandler);
  end;
end;

Una vez tienes el código de la página, en tu caso, sólo necesitas buscar el texto: <span> USD</span>


Una vez que lo encuentres, solo debes seguir hasta obtener el valor que deseas: <strong> 23,80950000 </strong>
El texto que busques puede variar.


Haz pruebas con eso.
__________________
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