求java高手 把delphi源码改成java代码 在线等啦

Question

delphi源码先贴这啦 大神请看 本人对delphi语言不熟悉,求用改成java语言{登陆}procedure Tlogin.logonBtnClick(Sender: TObject);
var
  vfhList: TStrings;
begin
  vfhList := TStringList.Create;
  try
    if (Trim(OperatorText.Text) = '') then
    begin
      MessageDlg('请输入正确的名称、口令！！', mtWarning, [mbOk], 0);
      Exit;
    end;     if not prt_Logon(zfStream, OperatorText.Text, PasswordText.Text, G_Bankid) then
    begin      unpasscount := unpasscount + 1;
      if unpasscount > 3 then
      begin
        MessageDlg('密码校验三次错误，将关闭打印程序！！', mtWarning, [mbOk], 0);
        unPass();
      end;
      exit;
    end;    logonBtn.Enabled := False;
    G_Cookie := zfStream.OutValue['COOKIE'];
    
    fhDy.setUserID(zfStream.OutValue['userID']);
    fhdy.setPrintTimes(strToInt(zfStream.OutValue['PRINTTIMES']));
    fhdy.setPrintCounts(strToInt(zfStream.OutValue['PRINTCOUNTS']));
    fhdy.setUserCode(OperatorText.Text);
    fhdy.setOrgNo(zfStream.OutValue['ORGNO']);
    vfhList.CommaText := zfStream.OutValue['RIGHTLIST'];
    //fhlist.SetFocus;
    setMainFormInfo;
    close();
 finally
    vfhList.Free;
  end;
end;

Answer 1

嗯  用Swing把页面写好啦，但页面输入的值要传到服务器端（Server端已经完成），与数据库的数据匹配，判断输入是否正确。  小菜我就是不知道 用java把 页面接收到的数据传到一个自定义的Map 中，在用Map 的方法接收和发送数据。另一端Delphi 代码也放在这啦  {用户登录}function prt_Logon(var MrStream: TStrParams; vName, vpw, vfhbh: string): Boolean;
begin
  MrStream.Clear;
  MrStream.FuncName := 'prt_Logon_zh';
  MrStream.AddInValue('NAME', vName);
  MrStream.AddInValue('PW', vPw);
  //MrStream.AddInValue('inORG', copy(Login.FHList.Text,1,10));
  MrStream.AddInValue('inORG', '');
  MrStream.AddOutName('PRINTTIMES');
  MrStream.AddOutName('PRINTCOUNTS');
  MrStream.AddOutName('RIGHTLIST');
  MrStream.AddOutName('COOKIE');
  MrStream.AddOutName('userID');
  MrStream.AddOutName('ORGNO');
  pdm.dataRequest(MrStream);
  Result := checkResult(MrStream, '');
end;求大神赐教  感激不尽