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
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.