procedureTForm1.Button1Click(Sender:TObject)
var
S:String
begin
S:=idhttp1.Get(PostURL.text+ ?username= +EdUserName.Text+ &password= +EdPassWord.Text+ &password2= +EdPassWord.Text+ &email= +
EdEMail.Text+ &gendernew=1&year=&month=&day=&locationnew =&site=&oicq=&icq=&yahoo=&msn=&bio=&styleidnew =&tppnew=0&pppnew=0&timeformatnew=12&cstatus=&dateformatnew =yyyy-mm-dd&showemail=1&newsletter=1&timeoffsetnew=8&avatar =&sig=®submit=注冊 ) //一句代碼
ifPos( 非常感謝您的注冊 ,s)>1then //判斷部分
ShowMessage( 注冊成功! )
else
ifPos( 已經(jīng)被注冊了 ,S)>1then
ShowMessage( 該用戶名或E-Mail已被注冊! )
else
ShowMessage( 已關(guān)閉注冊,注冊失敗! )
end
標(biāo)簽：
procedureTForm
PostURL
TObject
Button
上傳時(shí)間：
2014-08-24
上傳用戶：努力努力再努力
