function TConnectForms.ShowError:String; var Errormessage : String; adoErrors : Errors; AdoError : Error; iCount : Integer; begin adoErrors:=DM1.ADOConnection1.Errors; Errormessage:='您的操作存在以下错误:'+#13 +'----------------------'; for iCount:=0 to adoErrors.Count-1 do begin adoError:=adoErrors.Item[iCount]; Errormessage:=Errormessage+#13#13 +'错误码:'+IntToStr(adoError.Number)+#13 +'错误来源:'+adoError.Source+#13 +'错误内容:'+adoError.Description+#13 +'错误SQLState:'+adoError.SQLState+#13 +'本地错误码:'+IntToStr(adoError.NativeError); end; Result:=Errormessage; end;//看看有没有用...
我的意思是说:比如在MSSQL中,服务器方
在一批处理程序中用Print或RaiseError向客户方回传信息
在Delphi中如何捕获这类信息!
var
Errormessage : String;
adoErrors : Errors;
AdoError : Error;
iCount : Integer;
begin adoErrors:=DM1.ADOConnection1.Errors;
Errormessage:='您的操作存在以下错误:'+#13
+'----------------------';
for iCount:=0 to adoErrors.Count-1 do begin
adoError:=adoErrors.Item[iCount]; Errormessage:=Errormessage+#13#13
+'错误码:'+IntToStr(adoError.Number)+#13
+'错误来源:'+adoError.Source+#13
+'错误内容:'+adoError.Description+#13
+'错误SQLState:'+adoError.SQLState+#13
+'本地错误码:'+IntToStr(adoError.NativeError);
end;
Result:=Errormessage;
end;//看看有没有用...