Ver Mensaje Individual
  #6  
Antiguo 22-06-2020
Esteban74 Esteban74 is offline
Miembro
 
Registrado: jun 2020
Posts: 12
Reputación: 0
Esteban74 Va por buen camino
bueno luego de renegar encontre la solucion este codigo me funciono bien y me faltaba las librerias SSL para windows y android, publco por si alguien tiene este problema tambien. A los que me dieron una mano, gracias:

Código Delphi [-]
///////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure TModuloDatos.Obtenerclima;
var
 consulta, archivo: string;
 FT:TFileStream;
begin
 consulta:= "ruta a la api mas datos " + tabLocalidades.FieldByName('id').AsString;        

 {$IFDEF Android}
   archivo := TPath.Combine(tpath.getdocumentspath ,'datosclima.xml');
 {$ENDIF}

 {$IFDEF MSWINDOWS}
   archivo := extractfilepath(paramstr(0)) + 'datosclima.xml';
 {$ENDIF}

 frmPrincipal.Memo1.Lines.Add('---------------');
 frmPrincipal.Memo1.Lines.Add('Ruta al XML');
 frmPrincipal.Memo1.Lines.Add(archivo);
 frmPrincipal.Memo1.Lines.Add('---------------');
 frmPrincipal.Memo1.Lines.Add('creo el archivo');
 FT := TFileStream.Create(archivo,fmCreate);
 try
   try
    frmPrincipal.Memo1.Lines.Add('---------------');
    frmPrincipal.Memo1.Lines.Add('ejecuto strXML := WebTuTiempo.Get(Consulta);');
    WebTuTiempo.Get(Consulta,FT);
   except on E: Exception do

   end;
 finally
  FT.Free;
 end;
end;
///////////////////////////////////////////////////////////////////////////////////////////////////////////
Acepto criticas constructivas, aun soy nuevo en esto.

Última edición por Casimiro Noteví fecha: 22-06-2020 a las 08:30:01.
Responder Con Cita