Community discussions

MikroTik App
 
widarta
just joined
Topic Author
Posts: 17
Joined: Tue Aug 27, 2013 6:13 pm

Create user manager with delphi in mikrotik version 5.4

Tue Aug 27, 2013 6:32 pm

Hy guys, i'm a new guy here
and i need your help because i meet a problem how i can create user-manager in mikrotik version 5.4
if i use mikrotik version 4.17
i use this command and working
/tool/user-manager/user/add=subscriber=subscriber=name= user_m=password=pass_m=uptime-limit=1d=add-credit=1d


but if i user in mikrotik version 5.4 is not working
/tool/user-manager/user/add=customer=mikrotik1=username=test1=password=t1=copy-from=user1d

i already create the profile but still not working


please help me
 
User avatar
boen_robot
Forum Guru
Forum Guru
Posts: 2400
Joined: Thu Aug 31, 2006 4:43 pm
Location: europe://Bulgaria/Plovdiv

Re: Create user manager with delphi in mikrotik version 5.4

Wed Aug 28, 2013 10:57 am

These need to be separate API words, and by the looks of it, you're instead writing them as one.

Show us your Delphi code.
 
User avatar
janisk
MikroTik Support
MikroTik Support
Posts: 6263
Joined: Tue Feb 14, 2006 9:46 am
Location: Riga, Latvia

Re: Create user manager with delphi in mikrotik version 5.4

Wed Aug 28, 2013 11:06 am

also, take note, that in older versions of RouterOS user-manager was not that good via CLI and therefore API, better use newer version where a lot more stuff is available via CLI for user-manager.
 
widarta
just joined
Topic Author
Posts: 17
Joined: Tue Aug 27, 2013 6:13 pm

Re: Create user manager with delphi in mikrotik version 5.4

Thu Aug 29, 2013 6:06 am

i got delphi Api Code from here
http://wiki.mikrotik.com/wiki/API_Delphi

i also use newer mikrotik version 6 but not work,
if i create from terminal
>tool user-manager user add customer=mikrotik1 username=test1 password=t1 copy-from=user1d
its working but try at my delphi program didn't work
mybe the syntac is wrong?
create user
=========================
s1:='/tool/user-manager/user/add';
s2:='=customer=mikrotik1=username=test1=password=t1=copy-from=user1d';
execute_mikrotik();
===============
procedure TF_Utama.execute_mikrotik();
var
rei, pjng: integer;

begin
if mkr_connected then begin
application.processmessages;
logger.add('',tpl_rem,142);
logger.add('EXECUTE= '+s1+' '+s2+' '+s3+' '+s4+' '+s5+' '+s6,tpl_info,102);
rei:=mkr.send_command([s1,s2,s3,s4,s5,s6]);
if (rei=0)then
begin
application.ProcessMessages;

end;
end else logger.add('the router is not connected',tpl_error,104);

if mkr.command_pending then
if reset_pressed then connect_mikrotik() else
begin
application.processmessages;
end;
end;


procedure TF_Utama.connect_mikrotik();
var rei: integer;

begin
ip_mikrotik:=edtip.Text;
username_mikrotik:=edtusername.Text;
pass_mikrotik:=edtpassword.Text;
reset_pressed:=false;
logger.clear;
logger.add('connecting to '+ip_mikrotik,tpl_info,103);
application.processmessages;
try_free_mkr;
mkr_connected:=false;
mkr:=tr_mkrouter.create(logger);
rei:=mkr.open(ip_mikrotik, username_mikrotik, pass_mikrotik);
if rei=0
then begin
mkr_connected:=true;
mkr.query_router(['/system/identity/getall','','','','',''],res);
res:=ex_val(res, 'name', '', false);
dxstatusbr.Panels[2].Text:='Connect to '+res;
logger.add('connected to '+res,tpl_info,103);
FipRadius.lblstatus.Caption:='Success to connect '+res;
F_Mettting_Group.lblstatus.Caption:='Success to connect '+F_Mettting_Group.dbcbbname.Text;
F_Mettting_Group.btnconnect.Enabled:=True;
application.processmessages;

end else
begin
resset_mikrotik();
try_free_mkr;
dxstatusbr.Panels[2].Text:='Failed to connect!';
FipRadius.lblstatus.Caption:='Failled to connect '+res;
F_Mettting_Group.lblstatus.Caption:='Failled to connect '+F_Mettting_Group.dbcbbname.Text;
F_Mettting_Group.btnconnect.Enabled:=False;
end;

end;


why mikrotik version 4.17 my code is working, but the newest version not workking. please help me,,,
 
User avatar
boen_robot
Forum Guru
Forum Guru
Posts: 2400
Joined: Thu Aug 31, 2006 4:43 pm
Location: europe://Bulgaria/Plovdiv

Re: Create user manager with delphi in mikrotik version 5.4

Thu Aug 29, 2013 11:30 am

If you indeed have just
s1:='/tool/user-manager/user/add';
s2:='=customer=mikrotik1=username=test1=password=t1=copy-from=user1d';
 execute_mikrotik();
then that part is your problem. It needs to be this instead:
s1:='/tool/user-manager/user/add';
s2:='=customer=mikrotik1';
s3:='=username=test1';
s4:='=password=t1';
s5:='=copy-from=user1d';
 execute_mikrotik();
and then
logger.add('EXECUTE= '+s1+' '+s2+' '+s3+' '+s4+' '+s5,tpl_info,102);
 rei:=mkr.send_command([s1,s2,s3,s4,s5]);
 
widarta
just joined
Topic Author
Posts: 17
Joined: Tue Aug 27, 2013 6:13 pm

Re: Create user manager with delphi in mikrotik version 5.4

Sat Aug 31, 2013 4:06 am

ok thank you i will try that code,
why mikrotik version 5 until 6 have diferent code?
 
widarta
just joined
Topic Author
Posts: 17
Joined: Tue Aug 27, 2013 6:13 pm

Re: Create user manager with delphi in mikrotik version 5.4

Sun Sep 01, 2013 3:15 am

that code its not working.. i use all the code but not working as well,
what i do?? please help me..
any one if you understand API Mikrotik version 5.25 or newest please tell me the code to
create user manager from API Delphi

Who is online

Users browsing this forum: No registered users and 9 guests