Enhet Module1
'1. Se till att ”VFileComAPI.exe” har hänvisats till i projektera
'2. Skapa en anföra som exempel av APIEN
Dunkla Visualfiles som ny VisualfilesComAPI.Connection
Underhuvudsakligt ()
Dunkla args som stränger () = befaller. Splittring (”,”)
Dunkla OpenCaseValue som stränger = args (1)
Dunkla ConnectTo som stränger = args (0)
Dunkel L_RESULT som stränger
Dunkel L_APICALL som stränger
L_APICALL = Visualfiles.Connect (ConnectTo)
L_RESULT = Visualfiles.OpenCase (OpenCaseValue, "")
L_APICALL = falsk Visualfiles.Disconnect (, "")
Visualfiles = ingenting
Avsluta suben
Avsluta enheten
|