為工作紀錄。於 .NET6 環境使用 C# 呼叫 SAP API 應用紀錄。on 2022-10-12。
Last updated
PM> Install-Package SapNwRfc{
...
"ConnectionStrings": {
"SLP_SAPAPI": "AppServerHost=192.168.xxx.xxx; SystemNumber=11; User=xxxxxx; Password=xxxxxx; Client=800; Language=ZH;"
},
}using SapNwRfc.Pooling;
var builder = WebApplication.CreateBuilder(args);
IConfiguration Configuration = builder.Configuration;
...
/// 註冊：ISapConnectionPool
/// In the Startup.cs ConfigureServices method, add:
builder.Services.AddSingleton<ISapConnectionPool>(_ => new SapConnectionPool(Configuration["ConnectionStrings:SLP_SAPAPI"]));
builder.Services.AddScoped<ISapPooledConnection, SapPooledConnection>();
builder.Services.AddScoped<Vista.Services.SapApiService>();
...
var app = builder.Build();
...using SapNwRfc;
namespace YourProject.Models;
///※ 參數傳遞以物件型式交換
public class UrApiName_Input
{
[SapName("ArgName01")]
public string ArgName01 { get; set; }
[SapName("ArgName02")]
public string ArgName02 { get; set; }
[SapName("ArgName03")]
public string ArgName03 { get; set; }
}
///※ 參數傳遞以物件型式交換
public class UrApiName_Output
{
/// RFCTable：多筆傳遞型式
[SapName("O_ITEMS")]
public UrApiName_Item[] O_ITEMS { get; set; }
}
/// 多筆傳遞之欄位明細
public class UrApiName_Item
{
[SapName("ResultField01")]
public string ResultField01 { get; set; }
[SapName("ResultField02")]
public string ResultField02 { get; set; }
[SapName("ResultField03")]
public string ResultField03 { get; set; }
}using Microsoft.Extensions.Logging;
using SapNwRfc.Pooling;
using System;
using YourProject.Models;
namespace YourProject.Services;
internal class SapApiService
{
readonly ILogger<SapApiService> _logger;
readonly ISapPooledConnection _sapConn; // 將以注入方式取得 SAP Connection。
public SapApiService(ILogger<SapApiService> logger, ISapPooledConnection sapConn)
{
_logger = logger;
_sapConn = sapConn;
}
public bool CallUrApiName(UrApiName_Input input, out UrApiName_Output output)
{
const string funcName = "UrApiName";
try
{
//※ 一切的準備都是為了這一行指令：叫用 SAP API。 ------ ------
var result = _sapConn.InvokeFunction<UrApiName_Output>(funcName, input);
_logger.LogInformation($"呼叫 SLPAPI.{funcName} 成功。");
output = result;
return true;
}
catch (Exception ex)
{
string msg = $"呼叫 SLPAPI.{funcName} 失敗！ " + ex.Message;
_logger.LogError(ex, msg);
output = null;
return false;
}
}
}@using SapNwRfc
@using System.Text
@page "/test002"
@inject IConfiguration config
<PageTitle>測試 SAPAPI 通訊</PageTitle>
...
@code {
// resource
Severity alertSeverity = Severity.Info;
string alertMessage = null;
// State
SapInfo sap = new();
bool f_loading = false;
string funcDesc = null;
protected override void OnInitialized()
{
base.OnInitialized();
sap.connString = config["ConnectionStrings:SLP_SAPAPI"];
sap.funcName = "UrApiName";
}
/// 一、確認有載入nwrfcsdk函式庫。
async Task EnsureLibraryPresent()
{
try
{
f_loading = true;
//※ 確認有載入nwrfcsdk函式庫。
await Task.Run(() => SapLibrary.EnsureLibraryPresent());
alertSeverity = Severity.Success;
alertMessage = "EnsureLibraryPresent 成功！";
}
catch (Exception ex)
{
alertSeverity = Severity.Error;
alertMessage = "EnsureLibraryPresent 失敗！" + ex.ToString();
}
finally
{
f_loading = false;
}
}
/// 二、測試連線字串
async Task TestSapConnection()
{
try
{
f_loading = true;
await Task.Run(() =>
{
using var conn = new SapConnection(sap.connString);
conn.Connect();
conn.Disconnect();
alertSeverity = Severity.Success;
alertMessage = "測試SAP連線成功。";
});
}
catch (Exception ex)
{
alertSeverity = Severity.Error;
alertMessage = "測試SAP連線失敗！" + ex.ToString();
}
finally
{
f_loading = false;
}
}
/// 三、取得 SAP API 參數資訊
async Task GetFuncMeta()
{
try
{
f_loading = true;
await Task.Run(() =>
{
using var conn = new SapConnection(sap.connString);
conn.Connect();
StringBuilder fnDesc = new();
funcDesc = null;
var fnMeta = conn.GetFunctionMetadata(sap.funcName);
fnDesc.AppendLine($"Func. name: {fnMeta.GetName()}");
fnDesc.AppendLine($"Parameters count: {fnMeta.Parameters.Count}");
foreach (var prm in fnMeta.Parameters)
{
fnDesc.AppendLine($" {prm.Name}:{prm.Type.ToString()}:{prm.Description}");
}
funcDesc = fnDesc.ToString();
//fnMeta.Parameters.TryGetValue("PARAMETER_NAME", out var parameterNameMetadata);
conn.Disconnect();
alertSeverity = Severity.Success;
alertMessage = "取 SAP API 函式資訊成功。";
});
}
catch (Exception ex)
{
alertSeverity = Severity.Error;
alertMessage = "取 SAP API 函式資訊失敗！" + ex.ToString();
}
finally
{
f_loading = false;
}
}
//## resource ------------------------
record SapInfo
{
public string connString { get; set; }
public string funcName { get; set; }
}
}