Question

Delphi7 Demo中 Midas Pooler 中的 server_tlb单元， TPooledRDM和TPooler是怎么添加的？

现在Delphi真是没落了，资料都那么难找，谢谢好心的人！

Answer 1

midas确实走向没落了，server_tlb是ActiveX插件添加进去的
File——New——Other——ActiveX——Type Library

Answer 2

不要用迈达思了,用ADO吧,迈达思分发软件时,非要分发迈达思,否则软件无法运行.用ADO就没有这些麻烦,比如用ACCESS作数据库的D软件,根本就不需要安装,复制到电脑就可以运行.

追问

我就是想搞个连接池，我把连接池放到服务器上，每个客户端连接到服务器，不要其他的配置啊，我客户端用的是TSocketConnection。
不知道我按照Demo上弄的，客户端用TDCOMConnection可以，用TSocketConnection就不行。

追答

delphi上的Demo有些东西非常古老,不要抱着不放,迈达思早就没有人用了.赶快抛弃吧.别浪费时间!

Answer 3

if Dir[length(Dir)] <>'\' then Dir:=Dir+'\';
result :=TStringList.Create;
FindResult:=FindFirst(Dir+'*.*',faAnyFile+faDirectory,FSearchRec);
try
while FindResult = 0 do
begin
result.Add(LowerCase(FSearchRec.Name));
FindResult:=FindNext(FSearchRec);
end;
finally
FindClose(FSearchRec);
end;
//FileList.Sorted:=true;
end;