jcamsplitserverinfo.pas

销售软件

unit JCAMSplitServerInfo;

interface

uses
  Windows,
  SysUtils,
  Variants,
  Classes,
  JCAMConsts,
  JCAMUtils;

type
  TJCAMSplitServerInfo = class( TObject )
  private
    m_sServerInfoString: string;
    m_sDataSource: string;
    m_sUserID: string;
    m_sPassword: string;
    procedure SetServerInfoString( const Value: string );
  public
    constructor Create;
    property ServerInfoString: string
      read m_sServerInfoString
      write SetServerInfoString;
    property DataSource: string
      read m_sDataSource;
    property UserID: string
      read m_sUserID;
    property Password: string
      read m_sPassword;
  end;

function GetServerInfo( pchParamStr: PChar;
  var pchDataSource, pchUserID, pchPassword: PChar ): Boolean; far; stdcall;
external STR_SPLITSERVERINFOFILENAME;

implementation

{ TJCAMSplitServerInfo }

constructor TJCAMSplitServerInfo.Create;
begin
  m_sServerInfoString := EmptyStr;
  m_sDataSource := EmptyStr;
  m_sUserID := EmptyStr;
  m_sPassword := EmptyStr;
end;

procedure TJCAMSplitServerInfo.SetServerInfoString( const Value: string );
const
  STR_GETSERVERINFO: string = '/#getsgis.serverinfo#';
var
  pchDataSource: PChar;
  pchUserID: PChar;
  pchPassword: PChar;
begin
  m_sServerInfoString := Value;
  GetServerInfo( PChar( STR_GETSERVERINFO + m_sServerInfoString ),
    pchDataSource, pchUserID, pchPassword );
  m_sDataSource := string( pchDataSource );
  m_sUserID := string( pchUserID );
  m_sPassword := string( pchPassword );
end;

end.