Example-Code...SAP := TccSap.Create(Client, ApplicationServer, User, Password, SystemNumber, Language);
Request := TccSapFunctionData.Create;
Response := TccSapFunctionData.Create;
SapTable := TccSapTable.Create;
try
if SAP.Connection.Test then
begin
Request.Parameters.Items['NAME'] := 'Test';
Request.Parameters.Items['ROWS'] := 100;
Sap.Functions.Execute('/CLARC/EXAMPLEFUBA',Request,Response);
TableData := Response.Tables['EXAMPLETABLE'];
end;
finally
Request.Free;
Response.Free;
SapTable.Free;
SAP.Free;
end; |