昨天講述了以下如何在VS2005中使用form的形式來調用SAP ECC6.0中的Function Module,今天將記錄一下在VS2005中以web的形式來調用Function module.

???? ?以web形式對function module進行調用與form形式基本一樣,唯一值得注意的地方就是:"An ActiveX control must be run in an STA apartment. Because the attribute STAThread is applied to the Main method of a WinForm class by default with a WinForms Project, the main thread of your app will run in STA mode.".也就是說有些AcrtiveX控件或者Com組件必須運行在單線程單元下（STA：Single??Thread??Apartment ），否則的話會拋出“Bad variant type”異常。解決方案為：新開一個線程，并將該線程的運行模式設置為STA，然后再改線程下對Com組件或者ActiveX控件進行調用。

????? 對應到我們的事例中，如果不使用STA模式運行，我們可以連接到SAP系統，但調用Function Module的時候會拋出“Bad variant type”異常。所以要講調用Function Module的代碼在新開的線程中執行。具體步驟如下：

????? 一，添加對Interop.SAPFunctionsOCX.dll以及Interop.SAPLogonCtrl.dll和Interop.SAPTableFactoryCtrl.dllcom組件的引用。

????? 二，新開一個線程，并將該線程的運行模式設置為STA. 并將登錄SAP系統以及調用Function module的方法運行在該線程下！代碼如下：

??? protected void Button1_Click(object sender, EventArgs e)
??? {
??????? System.Threading.Thread s = new System.Threading.Thread(new System.Threading.ThreadStart(test)); //Create a new thread and set the method test() run in this thread
??????? s.SetApartmentState(System.Threading.ApartmentState.STA);??????????????????????????????????????? //Set the run mode 'STA'
??????? s.Start();?????????????????????????????????????????????????????????????????????????????????????? //Start the thread
??????? s.Join();??????????????????????????????????????????????????????????????????????????????????????? //Wait until thread run OK.
??????? GridView1.DataSource = dt;
??????? GridView1.DataBind();
??????? msg.Text = "Get Data from 'ENQUEUE_READ' OK!";
??? }

??? private void test()
??? {
??????? SAPLogonCtrl.SAPLogonControlClass login = new SAPLogonCtrl.SAPLogonControlClass();
??????? login.ApplicationServer = "";
??????? login.Client = "";
??????? login.Language = "EN";
??????? login.User = username.Text;
??????? login.Password = Psw.Text;
??????? login.SystemNumber = 00;
??????? SAPLogonCtrl.Connection conn = (SAPLogonCtrl.Connection)login.NewConnection();

??????? if (conn.Logon(0, true))
??????? {
??????????? SAPFunctionsOCX.SAPFunctionsClass func = new SAPFunctionsOCX.SAPFunctionsClass();
??????????? func.Connection = conn;
??????????? SAPFunctionsOCX.IFunction ifunc = (SAPFunctionsOCX.IFunction)func.Add("ENQUEUE_READ");
??????????? SAPFunctionsOCX.IParameter gclient = (SAPFunctionsOCX.IParameter)ifunc.get_Exports("GCLIENT");
??????????? gclient.Value = "301";
??????????? SAPFunctionsOCX.IParameter GUNAME = (SAPFunctionsOCX.IParameter)ifunc.get_Exports("GUNAME");
??????????? GUNAME.Value = "";
??????????? SAPFunctionsOCX.IParameter LOCAL = (SAPFunctionsOCX.IParameter)ifunc.get_Exports("LOCAL");
??????????? LOCAL.Value = "0";
??????????? ifunc.Call();
??????????? SAPTableFactoryCtrl.Tables tables = (SAPTableFactoryCtrl.Tables)ifunc.Tables;
??????????? SAPTableFactoryCtrl.Table ENQ = (SAPTableFactoryCtrl.Table)tables.get_Item("ENQ");
??????????? int n = ENQ.RowCount;
??????????? dt = GetTable();
??????????? for (int i = 1; i <= n; i++)
??????????? {
??????????????? DataRow dr = dt.NewRow();
??????????????? dr["GNAME"] = ENQ.get_Cell(i, "GNAME").ToString();
??????????????? dr["GUNAME"] = ENQ.get_Cell(i, "GUNAME").ToString();
??????????????? dr["GARG"] = ENQ.get_Cell(i, "GARG").ToString();
??????????????? dr["GOBJ"] = ENQ.get_Cell(i, "GOBJ").ToString();
??????????????? dr["GTDATE"] = ENQ.get_Cell(i, "GTDATE").ToString();
??????????????? dt.Rows.Add(dr);
??????????? }
??????? }
??? }

總結

以上是生活随笔為你收集整理的在vs2005中使用Com连接SAP系统（二）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。