delphi程式撰寫說明.doc.docVIP

一、Delphi程式撰寫說明 1.0 加入IdHTTP元件 1.1程式碼區段使用GETprocedure TForm1.Button1Click(Sender: TObject); var MyStream:TMemoryStream; Myurl:String; begin MyStream:=TMemoryStream.Create; Myurl := http://IDU Server Host/octopus/modauth/LdapADOSet_V2.pl?type=方法參數一參數二……… IdHTTP1.Get(Myall,MyStream); end; 二、方法說明 1、Auth Pusrname 欲認證的帳號 Luke (ldap沒有大小寫的區分) Ppasswd 欲認證的密碼 pass(密碼有大小寫區分) 1.2回應值 …… z:row rcode=xxx message=xxx rawmessage=xxx / ………. 0,無法連接ldap server,完整openldap原始回應錯誤訊息 0,不正確的查詢資訊,完整openldap原始回應錯誤訊息 1,通過認證,Success 2,認證失敗,Fail 1.3範例 1/octopus/modauth/ LdapADOSet_V2.pl?type=authPusrname=ndhutestPpasswd=testpasswd 2、AddNewUid usrname 欲新增的帳號 Luke (ldap沒有大小寫的區分) ppasswd 使用者密碼 pass(密碼有大小寫區分) pou 新增的帳號所在的組織 Ou=資工系,ou=學生,ou=people,dc=pduke,dc=com,dc=tw pname 中文姓名 薛共和 puidnumber Unix 上的uidnumber 1000 請自行管理uidnumber pgidnumber Unix 上的gidnumber 100 ploginshell Unix 上的 loginshell /bin/tcsh phomedir Unix 上的 homedirectory /export/home/luke pempno 職員編號/學號 E220022 psex 性別 1男生 2女生 1 paddr 地址 台中市 piid 身分證字號 F122062680 pbir 生日 1971.12.19 pmail Email address luke@.tw 2.2 回應值 …… z:row rcode=xxx message=xxx rawmessage=xxx / ………. 0,無法連接ldap server,完整openldap原始回應錯誤訊息 0,無法正確新增*uid, 完整openldap原始回應錯誤訊息 (此處*uid代表新的uid是一個alias,也就是說;這個帳號在其他的組織已存在) 1,已新增*uid,Success 0,無法正確新增uid,完整openldap原始回應錯誤訊息 1,已新增*uid,Success 2.3範例 1/octopus/modauth/ LdapADOSet_V2.pl?type=addnewuidPusrname=ndhutestPpasswd=testpasswdPou=ou=資工系,ou=學生,ou=people,dc=pduke,dc=com,dc=twpname=ndhutestpuidnumber=1001 pgidnumber=100ploginshell=/bin/tcshphomedir=/export/home/lukepempno=E220022psex=1paddr=Taichungpiid= F122062680pbir=1971.12.19pmail=luke@.tw 3、ModPasswd 3.0 說明：修改某個uid的密碼 3.1 參數 名稱 意義 範例 pusrname 欲修改密碼的帳號 Luke (ldap沒有大小寫的區分) ppasswd 欲修改的密碼 abc456(密碼有大小寫區分) 3.2回應值 …… z:row rcode=xxx message=xxx rawmessage=xxx / ………. 0,無法連接ldap server,完整openldap原始回應錯誤訊息 0,不正確的查詢資訊,完整openldap原始回應錯誤訊息 0,沒有這個uid,dn does not exist 0,無法正確修改密碼,完整openldap原始回應錯誤訊息 1,密碼已修改,Success 3.3範例 1/octopus/modauth/ LdapADOSe