4 respuestas en este tema

[agag4]

buen dia compañeros, resulta que cada día tengo que capturar manualmente el tipo de cambio para que se distribuya en las sucursales, esto lo hago con datasnap, pero cuando se me va el internet alli viene los problemas, no tengo forma de enviar el tipo de cambio, la otra forma es que cada sucursal jale el dato del portal donde lo tomo:

http://www.banxico.org.mx/

El tipo de cambio esta en la parte superior derecha en la pestaña FINANCIEROS
FIX determinado el 21/10/2011
(Pesos por dólar) 13.5996
Alguna idea de como jalar ese dato en delphi7 ??

Gracias....

[escafandra]

Podrías realizar algo como esto:

delphi

function TipoCambio(): String;
var
  hNet, hUrl: HINTERNET;
  URL: String;
  Buffer: array [0..512] of CHAR;
  BytesRead: DWORD;
  Ini, Fin: PCHAR;
begin
  URL:= '_http://www.banxico.org.mx/portal-mercado-cambiario/informacion-oportuna/Fix48.html';  // Quitar el guión delante de http
  BytesRead:= 0;
  Result:= '';
  if InternetAttemptConnect(0) <> ERROR_SUCCESS then exit;
  hNet:= InternetOpen('agent', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  SetCursor(LoadCursor(0, IDC_WAIT));
  if hNet <> nil then
  begin
    hUrl:= InternetOpenUrl(hNet, PCHAR(URL), nil, 0, INTERNET_FLAG_RELOAD, 0);
    if hUrl <> nil then
    begin
      if InternetReadFile(hUrl, @Buffer, sizeof(Buffer), BytesRead) and (BytesRead > 0) then
      begin
       Ini:= StrPos(Buffer, '<span class="banxicotitle">Tipo de Cambio FIX 1/</span>');
       if Ini <> nil then
       begin
         Ini:= StrPos(Ini, '<span class="text"><br><br><br>');
         if Ini <> nil then
         begin
           Fin:= StrPos(Ini, '</b></span>');
           if Fin <> nil then Fin^:= #0;
           Ini:= StrRScan(Ini, '>');
           if Ini <> nil then
             Result:= Ini + 1;
         end;
       end;
      end;
      InternetCloseHandle(hUrl);
    end;
    InternetCloseHandle(hNet);
  end;
  SetCursor(LoadCursor(0, IDC_ARROW));
end;

Saludos.

[agag4]

Gracias, pero tienes un error en la linea:

delphi

URL:= '[color=#334466]][/color][color=#334466]http:[/color]//www.banxico.org.mx/portal-mercado-cambiario/informacion-oportuna/Fix48.html';[/url" class="bbc_link new_win" target="_

[agag4]

Muchas gracias, con el TIP que me distes logre extraer el tipo de cambio, que tengas buen día. 

[escafandra]

Gracias, pero tienes un error en la linea:

delphi

URL:= '[color=#334466]][/color][color=#334466]http:[/color]//www.banxico.org.mx/portal-mercado-cambiario/informacion-oportuna/Fix48.html';[/url" class="bbc_link new_win" target="_

Imagino que ya te has dedo cuenta de que no es un error mío sino que lo añadió el editor de mensajes del foro al tratarse de una url lo trata de convertir en enlace...

Me alegra que te sirva.

Saludos.