Delphi 调用金蝶登录，并解析PropsString

此篇日志，是上一篇日志的兄弟篇，下面是我使用Delphi2010封装的一个单元，直接使用即可，其解析算法和前两篇中的一致，可供Delphi进行金蝶二次开发的人员参考。

{
 Design By M.K
 Create At 2012.08.14
}

unit KingdeeUtils;

interface

uses SysUtils, ComObj, Generics.Collections;

type
  TKingdeeLogin = class(TObject)

  private
    _clsLogin: OleVariant;
    _connectionString: string;
    _accountName: string;
    _userName: string;
    _userId: Integer;

    procedure InitialLoginDatas;
    procedure ParsePropsStringToField(propsString: string);

    function ReadPropsStringToDictionary(propsString: string): TDictionary<string, string>; 
    function ReadSection(sections: TDictionary<string, string>; source: string): Integer;
    function ReadKey(source: string; var key: string): Integer;
    function ReadValue(source: string; var value: string): Integer;
    function GetValueFromDictionary(key: string; source: TDictionary<string, string>): string;
    
  public
    constructor Create;
    function CheckLogin: Boolean;

    property ConnectionString: string read _connectionString;
    property AccountName: string read _accountName;
    property UserName: string read _userName;
    property UserID: Integer read _userId; 
  end;


implementation

{ TKingdeeLogin }

constructor TKingdeeLogin.Create;
begin
  _clsLogin := CreateOleObject('K3Login.ClsLogin');
end;

function TKingdeeLogin.CheckLogin: Boolean;
begin
   Result := _clsLogin.CheckLogin;
   if Result then InitialLoginDatas;
end;

procedure TKingdeeLogin.InitialLoginDatas;
begin
  _accountName := _clsLogin.AcctName;
  ParsePropsStringToField(_clsLogin.PropsString); 
end;


{$REGION '解析PropsString'}

procedure TKingdeeLogin.ParsePropsStringToField(propsString: string);
var
  datas: TDictionary<string, string>;
begin
  datas := ReadPropsStringToDictionary(propsString);

  _userName := GetValueFromDictionary('UserName', datas);
  _userId := StrToInt(GetValueFromDictionary('UserID', datas));
  _connectionString := GetValueFromDictionary('ConnectString', datas); 

  //这里大家可以继续扩展，因为PropsString里面还有很多字段。   

  datas.Free;
end;

function TKingdeeLogin.ReadPropsStringToDictionary(
  propsString: string): TDictionary<string, string>;
var
  dicResult: TDictionary<string, string>;
  curIndex: Integer;   
begin
  dicResult := TDictionary<string, string>.Create;
  curIndex := 0;
  
  while curIndex < Length(propsString) do
    curIndex := curIndex 
             + ReadSection(dicResult, 
             Copy(propsString, curIndex + 1, Length(propsString) - curIndex));
  
   Result := dicResult;

end;

function TKingdeeLogin.ReadSection(sections: TDictionary<string, string>;
  source: string): Integer;
var
  lengthResult: Integer;
  key, value: string;
begin
  lengthResult := 0;

  lengthResult := lengthResult + ReadKey(source, key);
  lengthResult := lengthResult 
                + ReadValue(Copy(source, lengthResult + 1, Length(source) - lengthResult), value);
  
  sections.Add(key, value);

  Result := lengthResult;
end;

function TKingdeeLogin.ReadKey(source: string; var key: string): Integer;
var
  i, lengthResult: Integer;
begin
  key := '';
  lengthResult := 0;

  for i := 1 to Length(source) do
  begin
    lengthResult := i;
    if source[i] = Char('=')  then
        Break
    else
        key := key + source[i];
  end;

  Result := lengthResult;
end;

function TKingdeeLogin.ReadValue(source: string; var value: string): Integer;
var
  i, lengthResult: Integer;
  charStack: TStack<Char>;
  c: Char;
begin
  value := '';
  lengthResult := 0;
  charStack := TStack<Char>.Create;
  
  for i := 1 to Length(source) do
  begin
    c := source[i];  
    lengthResult := i;

    if c = Char('{') then
    begin
      if charStack.Count > 0 then value := value + c;
      charStack.Push(c);
    end
    else if c = Char('}') then
    begin
      charStack.Pop;
      if charStack.Count > 0 then value := value + c;
    end
    else if c = Char(';') then
    begin
      if charStack.Count > 0 then
        value := value + c
      else
        Break;
    end
    else
    begin
      value := value + c;
    end;
  end;
  
  Result := lengthResult;     
  charStack.Free;
  
end;

function TKingdeeLogin.GetValueFromDictionary(key: string;
  source: TDictionary<string, string>): string;
var
  dicKey, sKey: string;
begin
  dicKey := '';
  for sKey in source.Keys do
  begin
    if UpperCase(Trim(key)) = UpperCase(Trim(sKey)) then
    begin
      dicKey := sKey;
      Break;
    end;
  end;

  if dicKey = '' then 
    Result := ''
  else
    Result := source[dicKey];
end;

{$ENDREGION}

end.

调用方式：

procedure TFrmMain.btnGetConnectionStringClick(Sender: TObject);
var
  clsLogin: TKingdeeLogin;
begin
  try
    clsLogin := TKingdeeLogin.Create;
    if clsLogin.CheckLogin then
      begin
        ConnectionString := clsLogin.ConnectionString ;
        mmoConnectionString.Text := ConnectionString;
        lbledtUserName.Text := clsLogin.UserName;
        lbledtAccountName.Text := clsLogin.AccountName;
      end
    else
      ShowMessage('UnLogin!');

    clsLogin.Free;
  except
    ShowMessage('必须在安装了金蝶的客户端上运行！');
  end;
end;

调用，差不多就和上面类似，当然，也可以放在Project文件中，从入口处来处理程序的逻辑，通过判断是否登录，来决定是否运行主窗体。

至此，关于金蝶登录，并取得ConnectionString的例子算是比较完善了，至于接下来怎么做，我比较喜欢直接对数据库动刀，而不是调用金蝶提供的API接口，所以，基本上我需要一个ConnectionString和UserID就足够了。