Ver Mensaje Individual
  #4  
Antiguo 02-05-2019
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola de nuevo a todos,

Aquí lo que podría ser un ejemplo de lo que digo en mi anterior post:

Código Delphi [-]
uses
  // Indy components
  IdURI, IdHttp;

procedure TForm1.Button1Click(Sender: TObject);
var
  Http: TIdHttp;
  URI, Response, User, EncodedUser: string;
begin
  Http := TIdHttp.Create();

  User := 'Nombre de usuario o similar...';

  EncodedUser := TIdURI.URLEncode(User);

  URI := Format('http://www.tu-servidor.com/tu-script.php?usuario=%s',
   [EncodedUser]);

  try
    Response := Http.Get(URI);

    if Response = 'existe' then
    begin
      ShowMessage('El usuario existe, según el servidor');
    end
    else
    begin
      ShowMessage('El usuario NO existe, según el servidor');
    end;

  finally
    Http.Free();
  end;

end;

Creo que más o menos se entiende... al menos eso creo yo.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita