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.
Espero que me ayuden, gracias