Cita:
Empezado por esublim
|
Cita:
Empezado por esublim
|
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.