![]() |
Problema con el StringList
Hola a toda la comunidad de clubdelphi, tengo un problema, quisiera añadir LICENCIAS a través de un servidor Hosting y que delphi lea las licencias agregadas.
Ejemplo este es mi hosting en donde agregare las licencias: latingamerz.000webhostapp.com/Licencias.txt Al poner en mi hosting cualquier licencia ejemplo: WD-WAD5G4CKFUCT-0002-0652-BFEB-FBFF-0098-F89D Quisiera que delphi compruebe las licencias si están agregadas a traves de mi hosting. Este es el codigo que uso Código:
function existeCadena (lista : TStringList; cadena : string) : boolean; Código:
procedure TForm1.Button1Click(Sender: TObject); |
Y, ¿cuál es el problema?
LineComment Saludos |
|
Lo que quiero es activar licencias mediante un hosting, osea agregar las licencias en el hosting, y quisiera saber cual es el codigo para agregar licencias en un hosting y que delphi lea link del hosting
|
Cita:
Saludos :) |
Sii disculpen, ayudenme con mi problema porfavors
|
Hasta donde entiendo lo que necesitas es crear un WebService
Acá hay un tutorial de como crear uno en Delphi con SOAP y acá uno con REST y acá un tutorial de nuestro compañero neftalí de como hacer un cliente para un WS en SOAP (El tutorial cubre también como hacer el servicio en PHP) y acá un tutorial de como consumir un servicio REST |
No habra otro metodo ?
|
Necesito ayuda :( !!
Hola gente de la comunidad Clubdelphi, quisiera que me ayuden a implementar este codigo que uso
Lo que quiero, es activar licencias mediante hosting, osea agregar licencias en mi hosting ejemplo: latingamerz.000webhostapp.com/Licencias.txt y que delphi lea el link del hosting y se vayan agregando las licencias. Quisiera que delphi lea si existe las licencias introducida en mi hosting. Los codigos que uso son estos: Código:
function existeCadena (lista : TStringList; cadena : string) : boolean; Código:
procedure TForm1.FormCreate(Sender: TObject); Código:
procedure TForm1.Button1Click(Sender: TObject); |
busca como descargar el fichero licencias.txt y como cargarlo en el stringlist (tambien lo puedes hacer sin descargar, solo leiendo el contenido por ejemplo con webbrowser)
|
Cita:
|
Antes de nada Revisa la guía de estilo de los foros.
Cita:
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:
Y en el evento NavigateComplete2 del TWebBrowser lo siguiente:
Al ejecutrar tendrás en el TMemo el contenido del TXT que tienes en tu servidor. |
La franja horaria es GMT +2. Ahora son las 03:07:33. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi