//--------------------------------------------------------------------------- void __fastcall TForm1::FormShow(TObject *Sender) { SWHANDLE mgr = SWMgr_new(); SWHANDLE it = SWMgr_getModulesIterator(mgr); SWHANDLE module = 0; String modlist; do { module = ModList_iterator_val(it); if (module) { modlist += SWModule_getName(module) + (String)"\r\n"; ModList_iterator_next(it); } } while (module); Memo1->Text = modlist; SWMgr_delete(mgr); }
int sword__SWMgr_new(xsd__int &retVal) { retVal = SWMgr_new(); return SOAP_OK; }