BAPI / RFC with Delphi(系列之七)－－TBAPIControl使用BUS1001显示物料(Delphi源代码)

最新推荐文章于 2024-12-05 13:04:57 发布

techweb

最新推荐文章于 2024-12-05 13:04:57 发布

阅读量381

点赞数

CC 4.0 BY-SA版权

文章标签： delphi button parameters forms interface function

本文链接：https://blog.youkuaiyun.com/techweb/article/details/1936518

本文介绍了一个简单的Delphi应用程序，通过SAP ActiveX组件连接到SAP BAPI并调用BUS1001函数获取特定物料的描述信息。示例中展示了如何设置界面元素、编写按钮点击事件来实现物料描述的获取与展示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

Component

Function

SAPBAPIControl1

SAP ActiveX-Component to connect to BAPI

Button1

Button to start the procedure

Panel1

Element to display the material-description

2、源代码如下(BUS1001显示物料)

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, OleCtrls, SAPBAPIControlLib_TLB, ExtCtrls;

type
TForm1 = class(TForm)
SAPBAPIControl1: TSAPBAPIControl;
Button1: TButton;
Panel1: TPanel;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
Connection,MAT : Variant;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Connection:= SAPBapiControl1.Connection;
if Connection.Logon then
begin
    ShowMessage('LogOn');

    (* Call the object with the needed parameters *)
    MAT:= sapbapicontrol1.GetSAPObject('BUS1001','000000000000017550');

    (* Display material-description *)
    Panel1.Caption:=MAT.MATERIALDESCRIPTION;
end;
end;

end.