三层结构，socket连接方式，客户登录验证的语句都写在中间层，中间层（应用程序服务器）的验证代码如下：


[code delphi]

function TCommons.CheckUser(const cDBName: WideString; const cUserNO, cPWD: WideString): WordBool;safecall;
var sSQL:String; ADOQuery:TADOQuery;
begin try //{----------------------------------------------------------------------------------------}
sSQL:='Select * From tUser Where fNO = ' vartosql(cUserNO) ' and fPassWord = ' vartosql(cPWD) ' and fKindID = 1';
ADOQuery:=GetNewADOQuery;
if OpenindicatinnDB(cDBName) then
begin
aOpenSQL:=TOpenSQL.Create(ADOQuery, sSQL);
aOpenSQL.Execute; {*****************************************}
if ADOQuery.RecordCount>0 then
Result:= True
else
Result:= false;
end
else
Result:=False; finally
FreeExistADOQuery(ADOQuery);
aOpenSQL.Free; end;
end

[/code]
客户端的写法如下：



[code delphi]
function CheckUser(const cUserNO: WideString; const cPWD: WideString): Boolean;safecall; //检查用户的合法性
begin Result:= poSCN.AppServer.CheckUser(psDBName, cUserNO, cPWD);
end;

[/code]
大家可以注意看一下，正常运行的情况下，系统运行是没有问题的，但是，如果我把中间层中的判断代码部份：
sSQL:='Select * From tUser Where fNO = ' vartosql(cUserNO) ' and fPassWord = ' vartosql(cPWD) ' and fKindID = 1';
中的数据库字段名称改掉，如fNO改成fNO1，在调试状态会报中间层"列fNO1无效"，但是点生成的程序运行时，客户端进入时会报“灾难性故障”，也就是说中间层产生的错误没有正确的传给客户端，要用什么样的方法才可以保证将中间层的错误传给客户端呢，高手指教~~~

編輯記錄

你好:

我用 SOAP...應該機制是一樣的吧....提供參考
TSOAPApp = class(TSoapDataModule, ISOAPApp, IAppServerSOAP)
.....
protected
function HandleCreateException(): Boolean; override;


function TSOAPApp.HandleCreateException: Boolean;
begin
Result := False; // Pass All Exception to End Client
end;

不太理解，但是好像和我上面写的没有什么区别吧~~~~~~

你目的是希望客戶端收到 "列fNO1无效" 這樣的 Exception 吧.....所以不能讓 Exception Handled 變 True....否則 Exception 的處理止於 AP Server 端.
===================引 用 asrock 文 章===================
不太理解，但是好像和我上面写的没有什么区别吧~~~~~~

===================引 用 Mickey 文 章===================
你目的是希望客戶端收到 "列fNO1无效" 這樣的 Exception 吧.....所以不能讓 Exception Handled 變 True....否則 Exception 的處理止於 AP Server 端.
===================引 用 asrock 文 章===================
不太理解，但是好像和我上面写的没有什么区别吧~~~~~~

==================================================

但是我在这里已经有过这样的处理了啊：
else
Result:=False;

我是新手，刚学，老大不要笑我

Mickey 老大，能不能帮我改一下，我真的不知道怎么改了，你给出的代码中定义的:
TSOAPApp = class(TSoapDataModule, ISOAPApp, IAppServerSOAP)
改成我能用的不知道如何改了

我跟你用的架構不同...恐怕難幫上忙...只時提個觀念...搞不好完全不能用....

所以...等等有緣人唄...KTop...熱心的人很多...^^
===================引 用 asrock 文 章===================
Mickey老大，能不能帮我改一下，我真的不知道怎么改了，你给出的代码中定义的:
TSOAPApp = class(TSoapDataModule, ISOAPApp, IAppServerSOAP)
改成我能用的不知道如何改了