Problema con el StringList

[Milworm99]

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

function existeCadena (lista : TStringList; cadena : string) : boolean;
var
 posicion : integer;
begin
  lista.Sort;
  existeCadena := lista.Find(cadena, posicion);
  end;

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.

Espero su ayuda !! Gracias.

[roman]

Y, ¿cuál es el problema?

LineComment Saludos

[ecfisa]

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:

Código Delphi [-]
...
   if AnsiPos(CadenaAComprobar, LICENCIAS.Text) <> 0 then
...

Saludos

[Milworm99]

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

[ecfisa]

Originally Posted by Milworm99

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

¡ah!... pero eso es una cosa totalmente diferente al título de tu consulta: "Problema con el StringList"

Saludos

[Milworm99]

Sii disculpen, ayudenme con mi problema porfavors

[[movorack]]

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

[Milworm99]

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:

function existeCadena (lista : TStringList; cadena : string) : boolean;
var
 posicion : integer;
begin
  lista.Sort;
  existeCadena := lista.Find(cadena, posicion);
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:= GetIdeDiskSerialNumber + '-' + GetScsiDiskSerialNumber + GetCPUSerialNumber;
end;

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.

Espero que me ayuden, gracias