Ver Mensaje Individual
  #12  
Antiguo 10-11-2017
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.265
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
Antes de nada Revisa la guía de estilo de los foros.

Cita:
Empezado por Milworm99 Ver Mensaje
No habra otro metodo ?
Si no quieres descargar el fichero, utiliza un WebBrowser.

Crea un proyecto nuevo y coloca un TWebBrowse y un TMemo. En el uses añade mshtml.
En el OnShow del formulario coloca lo siguiente:
Código Delphi [-]
  WebBrowser1.Navigate('http://latingamerz.000webhostapp.com/Licencias.txt');

Y en el evento NavigateComplete2 del TWebBrowser lo siguiente:
Código Delphi [-]
procedure TForm2.WebBrowser1NavigateComplete2(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
var
  sTexto : IHTMLElement;
begin
  if Assigned(WebBrowser1.Document) then begin
    sTexto := (WebBrowser1.Document AS IHTMLDocument2).body;
    memo1.Text := sTexto.outerText;
  end;
end;

Al ejecutrar tendrás en el TMemo el contenido del TXT que tienes en tu servidor.
__________________
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.