C# 中实现调用 SAP Com组件

最近换了新工作，需要做些SAP方面的调用。我也是新学习SAP这块。我想程序都有他的共性，对程序员来说是很容易上手的，现在我的主要工作就是开发企业的网站，但需要从企业的SAP系统中得取资料！也就是网页的是数据与SAP系统交互！ /// <summary> /// 登陆SAP系统 /// </summary> /// <returns>登陆状态</returns> public LoginStatus LoginSAP() { try { SAPLogonCtrl.SAPLogonControlClass logon = new SAPLogonCtrl.SAPLogonControlClass(); logon.ApplicationServer = ApplicationServer; //SAP系统IP logon.Client = Client; //SAP客户端号 logon.Language = Language; //SAP登陆语言 logon.User = User; //用户帐号 logon.Password = Password; //用户密码 logon.SystemNumber = SystemNumber; //SAP系统编号 Conn = (SAPLogonCtrl.Connection)logon.NewConnection(); if (Conn.Logon(0, true)) { Status = LoginStatus.Success; //登陆成功 } else { Status = LoginStatus.Fail; //登陆失败 } return Status; } catch (Exception exc) { throw(new Exception(exc.Message)); } } /// <summary> /// 调用SAP系统函数模块 /// </summary> /// <param name="strFunName">函数名称</param> /// <param name="strArgs">输入参数字典</param> /// <param name="strRetTabs">返回表结果字典</param> /// <param name="strResult">返回程序运行结果</param> /// <returns>返回表结果集</returns> public DataSet InvokSAPFun(string strFunName, ListDictionary strArgs, ListDictionary strRetTabs, ref ListDictionary strResult) { try { DataSet retDST = new DataSet(); string[] array = new string[strResult.Count]; strResult.Keys.CopyTo(array, 0); if (Status == LoginStatus.Success) { SAPFunctionsOCX.SAPFunctionsClass func = new SAPFunctionsOCX.SAPFunctionsClass(); func.Connection = Conn; //(1) SAPFunctionsOCX.IFunction ifunc = (SAPFunctionsOCX.IFunction)func.Add(strFunName); //调用函数模块 foreach (string arg in strArgs.Keys) { SAPFunctionsOCX.IParameter gclient = (SAPFunctionsOCX.IParameter)ifunc.get_Exports(arg); //取得输入参数 gclient.Value = strArgs[arg]; //设置参数值 } ifunc.Call(); //调用函数模块 //(2) foreach (string ret in array) { SAPFunctionsOCX.IParameter NUMBER = (SAPFunctionsOCX.IParameter)ifunc.get_Imports(ret); //返回程序运行结果 strResult[ret] = NUMBER.Value; } //(3) SAPTableFactoryCtrl.Tables ENQs = (SAPTableFactoryCtrl.Tables)ifunc.Tables; //获取所有Tables foreach (string tab in strRetTabs.Keys) { SAPTableFactoryCtrl.Table ENQ = (SAPTableFactoryCtrl.Table)ENQs.get_Item(tab); //返回指定Tables DataTable dat = ConvertTable(ENQ); retDST.Tables.Add(dat); } } return retDST; } catch (Exception exc) { throw (new Exception(exc.Message)); } }

 

 

2009-12-2218:03:49