是不是我打包沒有打好啊
在設計的這台電腦沒有問題。
可用 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就出了這種問題
解决方案 »
- Delphi 2010 编译是不是必要要PAS文件的
- TreeView的Expanding和MouseDown问题
- 关于QReport的TQRDBText的折行显示的问题!
- 如何隐藏memo里的滚动条,但又不让滚动条的作用消失。只有10分了,没办法。
- 请问有eReport的最新版吗?
- 大虾看过来!!!
- 找工作借个地方,进者有分!
- 在字符串中找到指定的字符及出现的位置用哪个语句
- 请教!!!
- 建立自已的控件InStall時的出錯信息,[Fatal Error]MyMemo.pas[6]:Internal Error:URW3010,為什麼?
- 今天心情好,开放我的FTP,匿名访问,欢迎上传!!|||
- 用inteaweb中的isapiapplication生成的dll发布有问题
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的?可能错误就在这个地方吧?
那為什麼在我本機上就可以呢