Delphi 连接SAP

本人对DELPHI开发工具熟悉，所以测试连接的时候用DELHI来做例子，其它JAVA. DotNet估计原理应该是一样的，先说下要做的例子；

1. 如何将ACTIVEX控件注册到DELPHI, 以便利用SAP这些控件；
2. 利用SAP自动的FUNCTION:BAPI_PO_CREATE ,测试如何通过DELPHI去调用这个函数，创建采购订单

例子很简单，但是通过这个例子可以知道SAP于其它开发工具交互的一种方式（RFC:远程调用),整个例子不需要在SAP做什么配置（原以为需要在DBCO中建立
连接，看来那个跟此没有关系），开始做下，按此步骤:

1。安装sap客户端，安装SAPGui和SAP SDK （如果你是SAP使用者，估计这部都做过了，没有安装在DELPHI中找不到相应的控件的）
2. Delphi中安装ActiveX部件
   2.1 SAPLogonControl, SAPBapiControl 安装
        component --> ActiveX import   (imported components: TSAPLogonControl, TSAPBapiControl)

     

   2.2 SAP remote Function call control安装
        project --> type library import (imported components: TSAPFunctions, TFunction, TParameter, TExports, TImports, TStructure)

     

     系统会自动建立一个文件：TSAPFunctionsOCX_TLB.pas
   做完这两步骤后，可以在DELPHI中看到控件如下：

3.开始写DELPHI代码，测试连接
    3.1 新建一个DELPHI PROJECT，将SAPLogonControl1控件和SAPFunctions1控件拖到界面上;
3.2 再放两个按钮：一个是建立SAP连接，一个是调用SAP FUNCTION
     Connection :variant;（全局变量）
3.3 建立SAP连接：
       Connection                    := SAPLogoncontrol1.newConnection;
    Connection.User               := Ansiuppercase('wangnz');
    Connection.System             := 'IDS';
    Connection.Client             := '800';
    Connection.ApplicationServer := '192.168.5.112';
    Connection.SystemNumber       := '00';
    Connection.Password           := '321';
    //Connection.Language           := 'DE' ; //注意这个语言的，填DE还登录不上
    SAPLogonControl1.Enabled      := false;

    if Connection.LogOn(0,true) = True then
    begin
    ShowMessage('Logon O.K.');
    btn_CreatePO.Enabled:= true;
    SapBapiControl1.Connection:=Connection;
    sapFunctions1.Connection := Connection;
    end
    else
    begin
    ShowMessage('Error on logon :-(((');
    end;
    3.4 调用SAP FUNCTION：BAPI_PO_CREATE
     var MLDText : String;
    Funct,Header,POItems,Schedules,ItemsRow,
     SchedulesRow: Variant;
   begin
    (* define function *)

    Funct := sapFunctions1.add('BAPI_PO_CREATE');

   (*** define tables, use structures of the dictionary ***)

    (* table for the purcaseorder header *)
    Header := funct.exports('PO_HEADER');

    (* table of the purcaseorder items *)
    POItems := funct.tables.item('PO_ITEMS');

    (* table of the schedules *)
    Schedules := funct.tables.item('PO_ITEM_SCHEDULES');

   (*** filling the PO_Header-table ***)

    (* purcasing document type *)
    Header.Value[2] := 'NB' ;

    (* purcasing document category *)
    Header.Value[3] := 'F' ;

    Header.Value[5] := '1000' ; //公司代码
    (* purcasing organisation 采购组织 *)
    Header.Value[5] := '1000' ;

    (* purcasing group *)
    Header.Value[6] := '026' ;

    (* forget the leading zeroes!!!                     *)
    Header.Value[8] := '111';   //供应商

   (*** filling the PO_Items-table ***)

    (* add new row to the table *)
    ItemsRow := POItems.rows.add;

    (* item number of purcasing document *)
    ItemsRow.Value[2]:='00010';

    (* material-number, on numeric values don't forget *)
    (* the leading zeros !!!                            *)
    ItemsRow.Value[5]:='100-210';

    (* storage location *)
    ItemsRow.Value[11]:='0001';

    (* plant *)
    ItemsRow.Value[17]:='1000';

    (* netprice in purcasing document, *)
    (* in document currency              *)
    ItemsRow.Value[21]:='10000';

   (*** filling the PO_Items_Schedules-table ***)

    (* add new row to the table *)
    SchedulesRow := Schedules.rows.add;

    (* item number of purcasing document *)
    SchedulesRow.Value[1]:='00010';

    (* category of delivery date *)
    SchedulesRow.Value[3]:='1';

    (* item delivery date *)
    SchedulesRow.Value[4]:='20000523';

    (* scheduled quantity *)
    SchedulesRow.Value[6]:='10';

   (*** call function ***)

    if not funct.call then
    (* on error show message *)
    showMessage(funct.exception)
    else
    begin
    (* show number of the purcaseorder *)
    MLDText:= funct.imports('PURCHASEORDER');
    MessageDlg('purcaseorder '+MLDText+' created.',MTInformation,[mbOK],0);
    end;
   end;

如此就将SAP连接起来，具体的实现SAP的功能都在SAP SE37中写功能而已；