Einzelnen Beitrag anzeigen

heavybyte

Registriert seit: 25. Apr 2007
Ort: Markgröningen
6 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

SAP RFC_READ_TEXT funktioniert nicht mehr

  Alt 12. Jun 2018, 16:46
Delphi 10.2 und SAP GUI 7.5
Seit der Umstellung auf WIN 10 und Delphi 10.2 funktioniert mein Zugriff auf SAP mit dem Funktionsbaustein RFC_READ_TEXT nicht mehr. RFC_READ_TABLE funktioniert noch. Hat jemand das gleiche Problem? Muss ich am Zugriff etwas anpassen?

Hier mein Code der mit Win 7 und Delphi XE 2 funktioniert hat:
Delphi-Quellcode:
procedure TForm1.Texte_lesen_urversion;
var
r : integer ;
Sprache : String;
connection, funct, table : olevariant;
Textline, Itemsrow : oleVariant;

begin
  Richedit1.Lines.Clear;
  If not SAPConnected then
  begin
     Connection:= SAPLogOnControl1.NewConnection;
     SAPConnected := Connection.LogOn(0,false);
    (* Parameter "true" = SilentLogOn *)
  end;
  if SAPConnected then
  begin
    Sprache := 'D';
    SAPFunctions1.RemoveAll;
    SAPFunctions1.Connection := Connection;
    Funct := SAPFunctions1.add('RFC_READ_TEXT');
    Textline := Funct.Tables.item('TEXT_LINES');
    ItemsRow := Textline.rows.add;
    ItemsRow.Value[2]:='MVKE';
    ItemsRow.Value[3]:= '000000000100000205110000';
    ItemsRow.Value[4]:='0001';
    ItemsRow.Value[5]:= Sprache;
   if not Funct.call then
      showMessage(Funct.exception)
    else
    begin
     Table := Funct.tables.item('TEXT_LINES');
     For r := 1 to table.rowCount do
        Richedit1.lines.append(VartoStr(Table.Value(r,8)));
    end;
  end;
end;
Übrigens funktioniert die ActiveX Komponente. Mit VBA kann ich den Text lesen.

Vielen Dank schon mal für die Mühe.
Grüße
Harald
Der Gedanke schaut oft durchs Fenster, bevor die Tat durchs Tor schreitet.
  Mit Zitat antworten Zitat