示例#1
0
//---------------------------------------------------------------------------
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);
}
示例#2
0
int sword__SWModule_getName(xsd__int hmodule, xsd__string &name) {
	name = (char *)SWModule_getName(hmodule);
	return SOAP_OK;
}