摘要:
procedure TForm1.btn_getTokenClick(Sender: TObject); var sendData: string; url: string; ss: TStringStream; jsonData: isuperobject; begin url := 'https 阅读全文
摘要:
procedure TForm1.cxButton_checkIDClick(Sender: TObject); var base64: string; token: string; host: string; postData: string; ss: TStringStream; mm: TMe 阅读全文