udatasource.pas

1. 发卡服务端：Server 项目文件：autojet.prj 2. 计费客户端：Client 项目文件：internet.prj Explorer.prj 先启动Exp

unit UDATASOURCE;

interface

uses WINDOWS,registry,forms,Sysutils;

FUNCTION READKEYVALUE(KEY,valuename:STRING;defaultvalue:string=''):STRING;
PROCEDURE writeKEYVALUE(KEY,valuename,VALUE:STRING);

FUNCTION READCONN:STRING;

FUNCTION READCOM:INTEGER;
PROCEDURE WRITECOM(COM:INTEGER);

implementation


FUNCTION READCOM:INTEGER;
VAR
  S:STRING;
BEGIN
     RESULT:=1;
     S:=READKEYVALUE('\Software\ADEL\NetBar\Settings','EncoderPort');
     if s='' then
        exit;
     result:=strtoint(s);
END;


PROCEDURE WRITECOM(COM:INTEGER);
BEGIN
  writeKEYVALUE('\Software\ADEL\NetBar\Settings','EncoderPort',inttostr(com));
END;

function ReadCONN:string;
begin
  result:=readKEYVALUE('\Software\Adel\NetBar\Settings','ADOServer');
end;


FUNCTION READKEYVALUE(KEY,valuename:STRING;defaultvalue:string=''):STRING;
var
   WinRegistry:TRegistry;
begin
    RESULT:=defaultvalue;
    IF (KEY='') OR (VALUENAME='') THEN
       EXIT;
    WinRegistry:=TRegistry.Create;
    try
       WinRegistry.RootKey:=HKEY_LOCAL_MACHINE;
       if WINREGISTRY.OpenKey(key,False) then
          result:=WinRegistry.readString(valuename);
    finally
       WinRegistry.CloseKey;
       WinRegistry.Free;
    end;
END;

PROCEDURE writeKEYVALUE(KEY,valuename,VALUE:STRING);
var
   WinRegistry:TRegistry;
begin
    IF (KEY='') OR (VALUE='') OR (VALUENAME='') THEN
       EXIT;
    WinRegistry:=TRegistry.Create;
    try
       WinRegistry.RootKey:=HKEY_LOCAL_MACHINE;
       WINREGISTRY.OpenKey(KEY,TRUE);
       WinRegistry.WriteString(valuename,VALUE);
    finally
       WinRegistry.CloseKey;
       WinRegistry.Free;
    end;
END;


end.