在TService中创建使用TADOConnection 连接 DBF 文件时出现的奇怪难题。

老本 2006-05-03 02:02:22

下面一段代码，用于创建连接DBF文件的数据库连接。
在TForm中执行正常；在TService中执行就Except了。
如果换成连接SQL Server数据库，就没有问题。
请问是什么原因？如何解决？

with ADOCRemote do // ADOCRemote: ADOConnection;
try
Connected := False;
LoginPrompt := False;
Provider := 'MSDASQL.1';
ConnectionString := 'Provider=MSDASQL.1;Persist Security Info=True;Data Source=dBASE Files';
DefaultDatabase := 'C:\dbf';
Connected := True;
except
...
end;

...全文

184 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

aiirii 2006-05-04

打赏
举报

回复

先检查看是否在exe能连接正常

xzh65414 2006-05-04

打赏
举报

回复

Except 内容是什么，贴出来看看。
系统报错内容。

使用Delphi制作Tservice的例子

使用TService 、TThread 、TIdSNTP 制作的时间同步服务器客户端

delphidicontainer 适用于 Windows 和 MacOSX 上的 Delphi 2010 或更高版本的（简单）Delphi 依赖注入框架。 program Test01; { $APPTYPE CONSOLE } uses SysUtils, DIContainer in ' DIContainer.pas ' , ServiceTestObjectsU in ' ..\UnitTest\ServiceTestObjectsU.pas ' ; var DIContainer: TDIContainer; s1: TService1; s2: TService2; s3: TService3; s6: TService6; s7: TService7; begin ReportMemoryLeaksOnShutdown := T

1. 包括service例子 2. 包括IntentServiceServie 3. 在ServiceDemoActivity.java中都调用了两个service，调用service自行屏蔽调用IntentServiceServie，调用IntentServiceServie自行屏蔽调用service。 4. 仅仅是个例子，对比这个service和IntentServiceServie的区别。

//高响应比调度算法 #include #include struct zgxyb{ char name[10]; float arrivetime; float servicetime; float starttime; float finishtime; float zztime; float dqzztime; }; struct zgxyb a[100]; void input(zgxyb *p,int N) { int i; for(i=0;i<=N-1;i++) { printf("请输入第%dth 个进程的名称:\n",i+1); scanf("%s",&p[i].name); printf("请输入第%dth 个进程的到达时间:\n",i+1); scanf("%f",&p[i].arrivetime); printf("请输入第%dth 个进程的服务时间:\n",i+1); scanf("%f",&p[i].servicetime); } } void Print(struct zgxyb *p,float arrivetime,float servicetime,float starttime,float finishtime,float zztime,float dqzztime,int N) { int k; printf("进程执行顺序:"); printf("%s",p[0].name); for(k=1;k%s",p[k].name); } printf("\n进程信息:\n"); printf("\nname\tarrive\tservice\tstart\tfinish\tzz\tdqzz\n"); for(k=0;k<=N-1;k++) { printf("%s\t%-.2f\t%-.2f\t%-.2f\t%-.2f\t%-.2f\t%-.2f\t\n",p[k].name,p[k].arrivetime,p[k].servicetime,p[k].starttime,p[k].finishtime,p[k].zztime,p[k].dqzztime); } } //按到达时间排序 void sort(struct zgxyb *p,int N) { int i,j; for(i=0;i<=N-1;i++) for(j=0;j<=i;j++) if(p[i].arrivetimeservicetime,float starttime,float finishtime,float zztime,float dqzztime,int N) { int k; for(k=0;k<=N-1;k++) { if(k==0) { p[k].starttime=p[k].arrivetime; p[k].finishtime=p[k].arrivetime+p[k].servicetime;} else { if(p[k-1].finishtime>=p[k].arrivetime) { p[k].starttime=p[k-1].finishtime;} else { p[k].starttime =p[k].arrivetime;} p[k].finishtime=p[k].starttime+p[k].servicetime; } p[k].zztime=p[k].finishtime-p[k].arrivetime; p[k].dqzztime=p[k].zztime/p[k].servicetime; } } void ZGXYB(struct zgxyb *p,int N) { float arrivetime=0,servicetime=0,starttime=0,finishtime=0,zztime=0,dqzztime=0; int m,i,n,follow,k; float max; struct zgxyb temp; sort(p,N); for(m=0;mservicetime; else { if(p[m-1].finishtime >=p[m].arrivetime ) { p[m].starttime=p[m-1].finishtime;} else { p[m].starttime =p[m].arrivetime;} p[m].finishtime=p[m].starttime+p[m].servicetime; } } i=0; for(n=m+1;n<=N-1;n++) { if(p[n].arrivetime<=p[m].finishtime) i++; } max=(p[m].finishtime-p[m+1].arrivetime)/p[m+1].servicetime; follow=m+1; for(k=m+1;kservicetime) { max=(p[m].finishtime-p[k+1].arrivetime)/p[k+1].servicetime; follow=k+1; } } temp=p[m+1]; p[m+1]=p[follow]; p[follow]=temp; deal(p,arrivetime,servicetime,starttime,finishtime,zztime,dqzztime,N); Print(p,arrivetime,servicetime,starttime,finishtime,zztime,dqzztime,N); } void main() { int N; struct zgxyb *c; printf("------高响应比调度算法------\n"); printf("请输入进程的数目:\n"); scanf("%d",&N); input(a,N); c=a; ZGXYB(c,N); }

数据库相关

2,497

社区成员

88,445

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章