Модуль Module1
'1. Сделайте конечно что «VFileComAPI.exe» было снабжено ссылками в проекте
'2. создают пример API
Тусклое Visualfiles как новое VisualfilesComAPI.Connection
Sub основа ()
Тусклые args как шнур () = командование. Разделение («, ")
Тусклое OpenCaseValue как шнур = args (1)
Тусклое ConnectTo как шнур = args (0)
Тусклое L_RESULT как шнур
Тусклое L_APICALL как шнур
L_APICALL = Visualfiles.Connect (ConnectTo)
L_RESULT = Visualfiles.OpenCase (OpenCaseValue, "")
L_APICALL = Visualfiles.Disconnect (ложное, "")
Visualfiles = ничего
Подводная лодка конца
Модуль конца
|