BDEInfo:=TStringList.Create;
BDEInfo.Add('Server Name='+ConnectSID);
BDEInfo.Add('Type=ORACLE');
Session.ConfigMode:=cmAll;
//到该出报错
if (Session.IsAlias('GuangGao')) then
begin
end else
begin
Session.AddAlias('GuangGao','ORACLE',BDEInfo);
Session.SaveConfigFile;
end;