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.