dmp.pas

来自「《delphi 7 web 开发及与应用》源码」· PAS 代码 · 共 34 行

unit dmp;

interface
uses
 DB, MemDS, DBAccess, Ora,SysUtils;
const
    maxpoolnum=5;
var
   orasession:array [0..maxpoolnum] of Torasession;
  
procedure doconnect;

implementation

procedure doconnect;
var
   i:integer;
begin
  for i:=0 to  maxpoolnum-1 do
     begin
       orasession[i]:=ToraSession.Create(nil);
       orasession[i].Name:='orasession'+inttostr(i);
       orasession[i].ConnectPrompt:=False;
      orasession[i].Server:='127.0.0.1';
      orasession[i].Options.Net:=True;
       orasession[i].Username:='delphi';
       orasession[i].Password:='delphi';
     //  orasession[i].Connected:=True;
     end;
end;


end.