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