var
Params: TStringlist;
resp: TStringStream;
http: TIdHTTP;
begin
Params := TSTringList.Create;
resp := TStringStream.Create('');
http:= TIdHTTP.Create(nil);
params.Values['check']:='1';
params.Values['activation']:='9536985814843883';
params.Values['hddid']:='5465212345';
with HTTP do
begin
HandleRedirects := True;
AllowCookies := True;
Request.ContentType := 'application/x-www-form-urlencoded';//'text/html';
Request.AcceptCharSet := 'utf-8';
Request.UserAgent := '';
Request.Connection := 'Keep-Alive';
Request.ProxyConnection := 'Keep-Alive';
Request.CacheControl := 'no-cache';
try
get('http://yourdomain/api.php',params,resp);
except
exit;
end;
showmessage(UTF8ToString(resp.DataString));
...
params.Free;
resp.Free;
http.close;
http.free;
...
end;