FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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; var posicion : integer; begin lista.Sort; existeCadena := lista.Find(cadena, posicion); end; Código:
procedure TForm1.Button1Click(Sender: TObject); var LICENCIAS : TStringList; posicion : integer; cadenaAComprobar : string; begin LICENCIAS:=TStringList.Create; LICENCIAS.add('WD-WCC3F3CKFUCT-0002-0652-BFEB-FBFF-0098-E3BD'); cadenaAComprobar:=GetIdeDiskSerialNumber + '-' + GetScsiDiskSerialNumber + GetCPUSerialNumber; posicion := 0; if existeCadena(LICENCIAS, cadenaAComprobar) then begin showMessage('LICENCIA ACTIVADA'); end else begin LICENCIAS.Add(cadenaAComprobar); showMessage('LICENCIA NO ACTIVADA'); end; end; end. |
#2
|
||||
|
||||
Y, ¿cuál es el problema?
LineComment Saludos |
#3
|
||||
|
||||
Hola.
El método Find requiere que la lista esté ordenada. O bién ordenas la lista antes de la comprobación o podrías evitar la función existeCadena reemplazando el condicional por:
Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#4
|
|||
|
|||
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
|
#5
|
||||
|
||||
Cita:
Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#6
|
|||
|
|||
Sii disculpen, ayudenme con mi problema porfavors
|
#7
|
||||
|
||||
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
__________________
Buena caza y buen remar... http://mivaler.blogspot.com Última edición por movorack fecha: 09-11-2017 a las 20:10:29. |
#8
|
|||
|
|||
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; var posicion : integer; begin lista.Sort; existeCadena := lista.Find(cadena, posicion); end; Código:
procedure TForm1.FormCreate(Sender: TObject); begin Edit1.Text:= GetIdeDiskSerialNumber + '-' + GetScsiDiskSerialNumber + GetCPUSerialNumber; end; Código:
procedure TForm1.Button1Click(Sender: TObject); var LICENCIAS : TStringList; posicion : integer; cadenaAComprobar : string; begin LICENCIAS:=TStringList.Create; LICENCIAS.add('WD-WCC3F3CKFUCT-0002-0652-BFEB-FBFF-0098-E3BD'); cadenaAComprobar:=GetIdeDiskSerialNumber + '-' + GetScsiDiskSerialNumber + GetCPUSerialNumber; posicion := 0; if existeCadena(LICENCIAS, cadenaAComprobar) then begin showMessage('LICENCIA ACTIVADA'); end else begin LICENCIAS.Add(cadenaAComprobar); showMessage('LICENCIA NO ACTIVADA'); end; end; end. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Copiar varias lineas de un stringlist en una sola de otro stringlist | Anel Hernandez | Varios | 3 | 29-08-2016 22:07:27 |
Problema con StringList y espacios | jars | Varios | 3 | 09-05-2014 14:55:11 |
Problema con StringList | darkone2k4 | Varios | 7 | 21-08-2013 19:38:47 |
Problema con Stringlist | Anel Hernandez | Varios | 5 | 11-10-2011 21:55:16 |
Problema con StringList | MaMu | Varios | 2 | 26-05-2007 21:40:45 |
|