jcamserverinfo.pas

销售软件

(*===========================================================*)
(*                                                           *)
(*              Jerk Computer Assembly Manager               *)
(*                                                           *)
(*                    程序作者：杨芹勍                       *)
(*          武汉科技大学 理学院 信息与计算科学031班          *)
(*                  武汉科技大学 莘特工作室                  *)
(*                                                           *)
(*              IDE：Borland Delphi 2006 Update 2            *)
(*                 第三方控件：Raize 4.03                    *)
(*             数据库：Microsoft SQL Server 2000             *)
(*            数据库访问引擎：原生ADO（ADODB_TLB）           *)
(*           数据库管理引擎：JERK DBMANAGER ALPHA            *)
(*                                                           *)
(*           此软件及源代码归 JERK SYSTEM 版权所有           *)
(*            (C)Copyright 2002-2006 Jerk System.            *)
(*                                                           *)
(*===========================================================*)

unit JCAMServerInfo;

interface

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

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

function GetServerInfo( pchServerInfoString: PChar;
  var pchDataSource, pchUserID, pchPassword: PChar ): Boolean; far; stdcall;
external STR_SERVERINFODLLFILENAME;
function SetServerInfo( pchDataSource, pchUserID, pchPassword: PChar;
  var pchServerInfoString: PChar ): Boolean; far; stdcall;
external STR_SERVERINFODLLFILENAME;

implementation

{ TJCAMSplitServerInfo }

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

function TJCAMServerInfo.GetServerInfoString: string;
const
  STR_GETSERVERINFO: string = '/#setsgis.serverinfo#';
var
  pchServerInfoString: PChar;
begin
  SetServerInfo( PChar( STR_GETSERVERINFO + DataSource ), PChar( UserID ),
    PChar( Password ), pchServerInfoString );
  m_sServerInfoString := string( pchServerInfoString );
  Result := m_sServerInfoString;
end;

procedure TJCAMServerInfo.SetDataSource( const Value: string );
begin
  m_sDataSource := Value;
end;

procedure TJCAMServerInfo.SetPassword( const Value: string );
begin
  m_sPassword := Value;
end;

procedure TJCAMServerInfo.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 );
  DataSource := string( pchDataSource );
  UserID := string( pchUserID );
  Password := string( pchPassword );
end;

procedure TJCAMServerInfo.SetUserID( const Value: string );
begin
  m_sUserID := Value;
end;

end.