是不是我打包沒有打好啊
在設計的這台電腦沒有問題。
可用 Install..軟件打包後裝到別人的電腦就不行了。
INI文件如下
[kingtec]
SERVER NAME=greatwall
database name=lisun
user name=sa
PASSWORD=000
這是調用文件。
my:=tinifile.Create(extractfilepath(paramstr(0))+'king.ini');
database1.Connected:=false;
sevname:=my.ReadString('kingtec','SERVER NAME','');
datname:=my.ReadString('kingtec','database name','');
usename:=my.ReadString('kingtec','user name','');
pass:=my.ReadString('kingtec','password','');
database1.Params.Values['SERVER NAME']:=sevname;
database1.Params.Values['database name']:=datname;
database1.Params.Values['user name']:=usename;
database1.Params.Values['PASSWORD']:=pass;
try
database1.Connected:=true;
except
messagedlg('連接錯誤!請確認服務器地址和密碼用戶名!',mtwarning,[mbok],6);
application.Terminate;
end;
用的是BDE連庫
我猜可能是打包的部題,以前沒有用到INI文件直接在database1當中配置沒有問題。。
為了靈活一點改為INI就出了這種問題
在設計的這台電腦沒有問題。
可用 Install..軟件打包後裝到別人的電腦就不行了。
INI文件如下
[kingtec]
SERVER NAME=greatwall
database name=lisun
user name=sa
PASSWORD=000
這是調用文件。
my:=tinifile.Create(extractfilepath(paramstr(0))+'king.ini');
database1.Connected:=false;
sevname:=my.ReadString('kingtec','SERVER NAME','');
datname:=my.ReadString('kingtec','database name','');
usename:=my.ReadString('kingtec','user name','');
pass:=my.ReadString('kingtec','password','');
database1.Params.Values['SERVER NAME']:=sevname;
database1.Params.Values['database name']:=datname;
database1.Params.Values['user name']:=usename;
database1.Params.Values['PASSWORD']:=pass;
try
database1.Connected:=true;
except
messagedlg('連接錯誤!請確認服務器地址和密碼用戶名!',mtwarning,[mbok],6);
application.Terminate;
end;
用的是BDE連庫
我猜可能是打包的部題,以前沒有用到INI文件直接在database1當中配置沒有問題。。
為了靈活一點改為INI就出了這種問題
messagedlg('連接錯誤!請確認服務器地址和密碼用戶名!',mtwarning,[mbok],6);
運行的是同一臺電腦的數據庫
這是我database1的配置文件
OPEN MODE=READ/WRITE
SERVER NAME=
database name=
user name=
PASSWORD=
SCHEMA CACHE SIZE=8
BLOB EDIT LOGGING=
LANGDRIVER=
SQLQRYMODE=
SQLPASSTHRU MODE=SHARED AUTOCOMMIT
DATE MODE=0
SCHEMA CACHE TIME=-1
MAX QUERY TIME=300
MAX ROWS=-1
BATCH COUNT=200
ENABLE SCHEMA CACHE=FALSE
SCHEMA CACHE DIR=
HOST NAME=
APPLICATION NAME=
NATIONAL LANG NAME=
ENABLE BCD=FALSE
TDS PACKET SIZE=4096
BLOBS TO CACHE=64
BLOB SIZE=100K
database1.Connected:=true;
except
messagedlg('連接錯誤!請確認服務器地址和密碼用戶名!',mtwarning,[mbok],6);
application.Terminate;
end;那你的程序是不是开始的时候设置Connected为false的?可能错误就在这个地方吧?
那為什麼在我本機上就可以呢