关于delphi7中provider的诡异问题高分相送 up有分

2003-04-09 09:45:56 104 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C++Builder 6 Update Pack 4：为遗留项目在现代系统上“续命”的必备补丁在软件工程领域，维护历史遗留系统是一项常见且具有挑战性的任务，尤其当开发工具本身已停止官方支持时。其核心挑战在于确保老旧工具链能在现代操作系统上稳定运行，这直接关系到开发效率和软件质量。C++Builder 6（BCB6）作为一款经典的快速应用开发（RAD）工具，曾广泛应用于桌面数据库和工控软件。然而，其原始版本在Windows 10/11等现代系统上存在诸多兼容性和稳定性问题。Update Pack 4（UP4）作为官方最终累积补丁，通过修复编译器缺陷、增强VCL组件库的健壮性并修补安全漏洞，有效解决了I 阅读详情

我创建了一个transaction datamodule 在其中的放入了 adoconnection，两个adoquery，一个datasetprovider

当我直接将adoquery设一个sql然后河provider联系在一起的时候
我的客户端的clientdataset能够取得上面组件提供的provider（在属性表中）

可是当我将adoquery中新坚一个lookup字段，河adoquery2
联系在一块之后，再重新注册该com＋组件。这次客户端的clientdataset就找不到
这个provider了。

真不知道是未什么？

哪位高人指点一下，兄弟我高分相送。实在是急啊～～～

...全文

Ubuntu 22.04 + Docker + Nginx 生产级部署实战指南 Nginx 是高性能 Web 服务器与反向代理的工业标准，Docker 则通过容器化实现环境隔离与交付一致性。其核心原理在于利用 Linux 命名空间与 cgroups 实现进程、网络、文件系统的轻量级虚拟化，并依托镜像分层与不可变基础设施理念保障部署可复现性。该技术组合显著提升运维效率与系统可靠性，广泛应用于微服务网关、静态资源托管、HTTPS 卸载及前端 SPA 部署等场景。在 Ubuntu 22.04 这一长期支持发行版上，凭借内核 5.15 对 cgroups v2 和 overlay2 的原生优化阅读详情

sdwtao

网络通信/分布式开发 1,594 成员 32,944 内容

+ 关注 + 加入社区

切换为时间正序

sdwtao 2003-04-12

打赏
举报

给分拉

WangPeter 2003-04-11

打赏
举报

直接填上ProviderName就行了么。

sdwtao 2003-04-11

打赏
举报

不知道是不是盗版原因
反正我的provider注册老是不成功（客户端找不到）

wslashy 2003-04-11

打赏
举报

你说的问题我已经测过了，而且连上后程序运行正常，没有你说的问题，
嗯，可能是你操作的时候有失误的地方，

二手夏利 2003-04-11

打赏
举报

sdwtao 2003-04-11

打赏
举报

不过我将objectpooling的所有相关选项全部给去掉了

sdwtao 2003-04-11

打赏
举报

呵呵兄弟们问题已经不出现了但是究竟为什么会这样还有待弟兄们讨论

sdwtao 2003-04-11

打赏
举报

transaction datamodule组件的部分代码
type
TmtsStocks = class(TMtsDataModule, ImtsStocks)
adocKM: TADOConnection;
adoqStocks: TADOQuery;
dspStocks: TDataSetProvider;
procedure MtsDataModuleActivate(Sender: TObject);
procedure MtsDataModuleDeactivate(Sender: TObject);
procedure MtsDataModuleDestroy(Sender: TObject);
procedure dspStocksAfterApplyUpdates(Sender: TObject;
var OwnerData: OleVariant);
procedure dspStocksUpdateError(Sender: TObject;
DataSet: TCustomClientDataSet; E: EUpdateError;
UpdateKind: TUpdateKind; var Response: TResolverResponse);
private
{ Private declarations }
protected
class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
public
{ Public declarations }
end;
impletment
procedure TmtsStocks.MtsDataModuleActivate(Sender: TObject);
var config:IcoEnvConfig;
connectstring :widestring;
begin
config:=CocoEnvConfig.Create;
config.GetConnectString(connectstring);
adocKM.ConnectionString:=connectstring;
adocKM.Connected:=true;

end;

procedure TmtsStocks.MtsDataModuleDeactivate(Sender: TObject);
begin
if IsInTransaction then
SetComplete;
adocKM.Connected:=false;
end;
procedure TmtsStocks.MtsDataModuleDestroy(Sender: TObject);
begin
adocKM.Connected:=false;
end;

procedure TmtsStocks.dspStocksAfterApplyUpdates(Sender: TObject;
var OwnerData: OleVariant);
begin
SetComplete;
end;

procedure TmtsStocks.dspStocksUpdateError(Sender: TObject;
DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
var Response: TResolverResponse);
begin
Response:=rrAbort;
SetAbort;
end;

重要的属性
object mtsStocks: TmtsStocks
OldCreateOrder = False
OnDestroy = MtsDataModuleDestroy
OnActivate = MtsDataModuleActivate
OnDeactivate = MtsDataModuleDeactivate
Pooled = False
Left = 247
Top = 125
Height = 366
Width = 353
object adocKM: TADOConnection
Connected = True
ConnectionString =
'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
'al Catalog=KM;Data Source=.'
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 56
Top = 40
end
object adoqStocks: TADOQuery
Connection = adocKM
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from stocks')
Left = 192
Top = 48
end
object dspStocks: TDataSetProvider
DataSet = adoqStocks
OnUpdateError = dspStocksUpdateError
AfterApplyUpdates = dspStocksAfterApplyUpdates
Left = 128
Top = 112
end
end

cgh1970 2003-04-11

打赏
举报

lillin 2003-04-11

打赏
举报

请写详细点比如说明SQL
语句还有各个控件的重要属性写出来。

sdwtao 2003-04-11

打赏
举报

peter兄
我还是不能把这个问题和缓冲池联系起来

能否给解释一二？

Frend 2003-04-11

打赏
举报

WangPeter 2003-04-11

打赏
举报

我看了http://expert.csdn.net/Expert/topic/1647/1647153.xml?temp=.7055475。
是启用缓冲池的问题，要解决问题请参阅：
http://expert.csdn.net/Expert/topic/1600/1600678.xml?temp=.7698633。

kingecg 2003-04-11

打赏
举报

dreamonce 2003-04-11

打赏
举报

不懂,只能up

WangPeter 2003-04-11

打赏
举报

是否ADOQuery2在适当时候应该Active啊。

sdwtao 2003-04-11

打赏
举报

peter兄这种方法我试过
你在
http://expert.csdn.net/Expert/topic/1647/1647153.xml?temp=.7055475
贴上也看到了

关键我不知道究竟是盗版问题还是我做的不对
究竟provider注册需要什么条件

sdwtao 2003-04-10

打赏
举报

可以肯定的是该provider一定注册的有问题
我不知道 provider的注册是怎么整的

似乎通过data属性来传递数据，对自定义的字段好像不太灵，不知道诸位平时一般是怎么办的？

mickeyjiang 2003-04-10

打赏
举报

不用直接通过属性连接Provide，写一个简单的方法把Provide的Data属性返回就可以

jeremychen001181 2003-04-10

打赏
举报

不懂

加载更多回复（4）

关于delphi7中provider的诡异问题 高分相送 up有分

相关推荐

关于delphi7中provider的诡异问题高分相送 up有分