FC_RemoteUserIdSet

FC_RemoteUserIdSet - Allgemeine Informationen

Übersicht

Typ	Funktion
Verfügbar ab	SystemInterface_1.32.6.0
Versionen:	Aktuelle Version

Aufgabe

Anwendername und Passwort für Remote-Dateidienste setzen.

Beschreibung

Diese Funktion setzt den Anwendernamen und das Passwort, mit dem man Zugriff auf den Remote- Rechner haben wird. Name (i_sName) und Passwort (i_sPassword) werden benutzt, um Fernzugriffe über FTP-Dienste zu bekommen.

Schnittstelle

Eingang	Datentyp	Beschreibung
i_sName	STRING[80]	Benutzername
i_sPassword	STRING[80]	Kennwort

Rückgabewert

Datentyp	Beschreibung
DINT	0: OK. Andernfalls: Fehler.

Beispiele

Deklaration

PROGRAM Frame
VAR

bWriteTest: BOOL := FALSE;

bReadTest: BOOL := FALSE;

lReadFileId: DINT := 0;
lWriteFileId: DINT := 0;

   lResultWriteToFile: DINT := 99;
   lResultFC_ReadFromFile: DINT := 99;
   lResultFC_CloseFile: DINT := 99;
   lResultFC_RemoteDeviceCreate: DINT := 99;
   lResultFC_RemoteUserIdSet: DINT := 99;

pszRemoteDeviceName: STRING := 'remote0:';
pszRemoteIpAddress: STRING := '190.206.11.21';

pszRemoteFtpUserId: STRING := 'ELAU';

pszRemoteFtpPassword: STRING := 'acx35eikl';

   pszFileName: STRING := 'remote0:/myfile.txt';
   pszOutText: STRING := 'ELAU The Future of Packaging';
   pszInText: STRING; lTextSize: DINT := 28;
   bInitOk: BOOL := FALSE;

END_VAR

Programm

IF NOT bInitOk THEN

   FC_CycleCheckTimeSet(1000, 60);
   lResultFC_RemoteDeviceCreate := FC_RemoteDeviceCreate(pszRemoteDeviceName, pszRemoteIpAddress);
   lResultFC_RemoteUserIdSet := FC_RemoteUserIdSet('ELAU','acx35eikl');
   bInitOk := TRUE;
END_IF

IF bWriteTest THEN
   lWriteFileId := FC_Open_WriteFile(pszFileName);
   IF lWriteFileId > 0 THEN
      lResultWriteToFile := FC_WriteToFile(lWriteFileId, ADR(pszOutText), lTextSize);
      lResultCloseFile := FC_CloseFile(lWriteFileId);
   END_IF
   bWriteTest:= FALSE;
END_IF

IF bReadTest = TRUE THEN
   lReadFileId := FC_Open_ReadFile(pszFileName);
   IF lReadFileId > 0 THEN
      lResultReadFromFile := FC_ReadFromFile(lReadFileId, ADR(pszInText), lTextSize);
      lResultCloseFile := FC_CloseFile(lReadFileId);
   END_IF
   bReadTest := FALSE;
END_IF