MODÜL HAKKINDA

Dahilileri Listeleme

Aşağıdaki api üzerinden dahili bilgileri ve register olma durumları görüntülenebilir. Json sistemi ile veriler çekilebilir.

APİ

http://{site adı}/?username={kullanıcı adı}&password={api şifresi}&action=users

EKRAN ÇIKTISI

[
   {
      "success": true,
      "count": 3,
      "data": [
         {
            "username": "100",
            "name": "Mehmet",
            "regstatus": "OK (93 ms)"
         },
         {
            "username": "101",
            "name": "Telsam",
            "regstatus": "OK (109 ms)"
         },
         {
            "username": "102",
            "name": "Telekom",
            "regstatus": "OK (91 ms)"
         }
      ]
   }
]

TANIMLAR

username=Dahili no
name=Dahili kullanıcısı adı
regstatus=Register durumu

DELPHİ KODU

Var
JSONObject, Veriler: TJsonObject;
VeriArray: TJSONArray;
don:Integer;
Begin
JSONObject         := TJsonObject.Create;
    try
     JSONObject.Parse(TEncoding.UTF8.GetBytes(NetHTTPDahili.Get(' http://xxx.telsam.com.tr/?username=ApiKullanıcıAdı&password=ApiŞifre&action=users’).ContentAsString), 1);
     if StrToInt(JSONObject.GetValue('count').Value)<>0 then
     Begin
       VeriArray := JSONObject.GetValue('data') as TJSONArray;

         for don := 0 to VeriArray.Count-1 do
         begin
                Veriler := TJsonObject.Create;
                try
                  Veriler.Parse(TEncoding.UTF8.GetBytes(VeriArray.Items[don].ToString), 0);
                      UniMemo1.Lines.Add(Veriler.GetValue(‘username’).Value); 
                      UniMemo1.Lines.Add(Veriler.GetValue('name').Value);
                      UniMemo1.Lines.Add(Veriler.GetValue('regstatus').Value);
                  finally
                      Veriler.Free;
                 end;
         end;
     End;
      finally
          JSONObject.Free;
     end;
end;

JAVA SCRİPT KODU

function dahililisteleme(j){
        var rjson=JSON.parse(j);
        if (rjson.success==true){
            for (var i = 0; i < rjson.count; i++) {
            var counter = rjson.data[i];         
            console.log("data: "+ (i+1));
            console.log("username: "+ rjson.data[i].username);
            console.log("name: "+ rjson.data[i].name);
            console.log("regstatus: "+ rjson.data[i].regstatus);
        }
        else 
        {
            console.log('hata');
        }
                
}

C# KODU

using Newtonsoft.Json;
using Newtonsoft.Json.Linq;

void jsonparse(string json)
        {
            int count = 0;
            string username, name, regstatus, success;
            var myJObject = JObject.Parse(json);
            success = myJObject.SelectToken("success").Value<string>();
            if (success == "True")
            {
                count = myJObject.SelectToken("count").Value<int>();
                if (count > 0)
               {
                    JToken[] data = myJObject["data"].ToArray();
                    for (int i = 0; i < count; i++)
                    {
                        var dataparse = JObject.Parse(data[i].ToString());
                        username = dataparse.SelectToken("username").Value<string>();
                        name = dataparse.SelectToken("name").Value<string>();
                        regstatus = dataparse.SelectToken("regstatus").Value<string>();
                    }
                }
            }
        }