SAP RFC_READ_TEXT funktioniert nicht mehr

[Pfaffe]

Sprachcodes lesen:

Delphi-Quellcode:

procedure TForm1.btn4Click(Sender: TObject);
var
  Funct, Fields, Options, Table: OleVariant;
  r: integer;
  s, ss: string;
  Splitted: TArray<String>;
begin
  try
    if Logon_SAP_ConnectionObject then begin
      SAPFunctions1.RemoveAll;
      Funct:= SAPFunctions1.add('RFC_READ_TABLE');
      Funct.exports('QUERY_TABLE').value:= 'T002'; // Sprachcodes
      Funct.exports('DELIMITER'):= '|';
      if not Funct.call then
        Set_Meldung(Funct.exception)
      else
        begin
          // Tabellenstruktur auslesen
          Table:= Funct.tables.item('FIELDS');
          for r:= 1 to Table.rowcount do begin
            s:= Table.value(r,1) +#9+ Table.value(r,2) +#9+ Table.value(r,3) +#9+ Table.value(r,4) +#9+ Table.value(r,5);
            mmo1.Lines.Add(s);
          end;

          // Daten holen
          mmo1.Lines.Add('vor der Ausgabe = ' + timetostr(now));
          Table:= Funct.tables.item('DATA');
          for r:= 1 to Table.rowcount do begin
            s:= Table.value(r, 1);
            mmo1.Lines.Add(s);
            // Splitted:= s.Split(['|'], 5);
            // for ss in Splitted do begin
            //   mmo1.Lines.Add(ss);
            // end;
          end;
          mmo1.Lines.Add('nach der Ausgabe = ' + timetostr(now));
        end;
    end;
  finally
    SAP_ConnectionObject.Logoff;
  end;
end;