Citect SCADA-Cicode for Device

INT

FUNCTION DBFDevice()

INT hDBFDevice;

ErrSet(1);                  

hDBFDevice = DevOpen("DBFDevice", 0);      

 IF hDBFDevice = -1 THEN                   

     DspError("DBFDevice Open !!"); 

     Return FALSE;

 ELSE  

     DevAppend(hDBFDevice);

     DevSetField(hDBFDevice,"Spalte1", IntToStr(Input1));   //"Test1"

     DevSetField(hDBFDevice,"Spalte2", IntToStr(Input1));   //"Test2"

     DevSetField(hDBFDevice,"Spalte3", IntToStr(Input1));  //"Test3"

     Return TRUE;  

 END

DevClose(hDBFDevice);               // Device Close

END