Ich hab das vor einigen Monden mal so gemacht:
Delphi-Quellcode:
ihRFC, n: integer;
RFC_rcv: integer;
cParameters: string;
RFCFuncName: string[255]; // Name der Function
// cParameters enthält die Verbindungsparameter
ihRFC := RfcAcceptExt(cParameters); // bei Erfolg = 1
if ihRFC = 0 then
begin
// Fehlerbehandlung ...
end
else
begin
RC_rcv := 7; // 7 = RFC_Retry
while RFC_Rcv = 7 do
begin
RFC_Rcv := RfcListen(ihRFC); // alles <> 0 bedeutet einen Fehler
if RFC_Rcv <> 0 then // or RFC_rcv = 7
begin
// Errorhandling
....
end
else
begin
// in RFCFuncName wird er Name der aufgerufenen Funktion
// zurückgegeben:
n := RfcGetName(ihRFC, RFCFuncName); // n <> 0 -> Fehler
end;
end;
end;
So auf die Schnelle und aus der Erinnerung...
Hilft das weiter?
Gruß
Gerald