BAPI / RFC with Delphi(系列之五)－－TSAPFunctions和TSAPLogoncontrol使用(无登录对话框Delphi源代码)...

最新推荐文章于 2013-06-30 19:10:40 发布

最新推荐文章于 2013-06-30 19:10:40 发布 · 91 阅读

本文介绍了一个使用 Delphi 和 SAP ActiveX 组件来连接 SAP 系统并读取成本中心数据的方法。通过创建 Form 并设置必要的控件，如 SAPLogonControl 和 SAPFunctions，可以实现 SAP 系统的登录及调用 RFC_READ_TABLE 函数。此教程适用于希望了解如何从 SAP 系统中获取数据的开发者。

1、新建一个Form，并在form上添加下列控件

Component Function SAPFunctions1 SAP ActiveX-component to connect RFC/BAPI SAPLogoncontrol1 SAP ActiveX-Component to logon to the system Grid Stringgrid to show the data's in the form Button1 Button to start the procedure

2、源代码如下(使用RFC_READ_TABLE函数读取成本中心)
unit logon1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, OleCtrls, StdCtrls, SAPFunctionsOCX_TLB,
Grids, SAPLogonCtrl_TLB;

type
TForm1 = class(TForm)
SAPFunctions1: TSAPFunctions;
Button2: TButton;
Grid: TStringGrid;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
SAPLogonControl1: TSAPLogonControl;
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1 : TForm1 ;
Table,Funct, Connection : VARIANT ;

implementation

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);
var txt : string ;
r : integer ;

begin
Connection := SAPLogoncontrol1.newConnection;
Connection.User := AnsiUpperCase(Edit1.text);
Connection.System := 'IDS';
Connection.Client := '800';
Connection.ApplicationServer:= 'SAPIDES';
Connection.SystemNumber:= '00';
Connection.Password:= Edit2.text;
Connection.Language:= 'DE' ;

if Connection.LogOn(0,true) = true then
(* parameter "true" = SilentLogOn *)

begin

(* assign the existing connection to the *)
(* component SAPFunctions1 *)
SAPFunctions1.Connection := Connection;

Funct := SAPFunctions1.add('RFC_READ_TABLE');
Funct.exports('QUERY_TABLE').value := 'CSKT';
if not Funct.call then
showMessage(Funct.exception)
else begin
Table := Funct.tables.item('DATA');
grid.rowCount := Table.rowcount + 1;
grid.cells[0,0] := 'Client';
grid.cells[1,0] := 'CostCent-No';
grid.cells[2,0] := 'CostCent-Des.';
for r := 1 to grid.rowCount -1 do begin
txt := Table.value(r,1);
grid.cells[0,r] := copy(txt,0,3);
grid.cells[1,r] := copy(txt,9,10);
grid.cells[2,r] := copy(txt,27,20);
end;
grid.visible := True;
end;
end;
end;
end.