Примеры, демострирующие работу через интерфейс AUTOMATION

Каждый пример дан в двух эквивалентных формах
1. XLS - файла
2. Delphi - откомпилированного примера

Внимание!

---

Внутри примеров указаны чисто-конкретные пути к файлам
1. Test.mom
2. _bmp1.mdb
3. _bmp2.mdb
   Delphi.zip - 925 Kbyte
   Отредактируйте эти пути перед запуском примера.

Содержание

Пример 1

10_Load.exe (исходные тексты: 10_delphi.zip)

10_delphi.zip - 10 Kbyte

11_Load.exe (исходные тексты: 11_delphi.zip)

11_delphi.zip - 10 Kbyte

Пример 2

20_ScaleXY.exe (исходные тексты: 20_delphi.zip

20_delphi.zip - 10 Kbyte

21_ScaleXY.exe (исходные тексты: 21_delphi.zip)

21_delphi.zip - 10 Kbyte

Пример 3

30_ScaleGrFg.exe (исходные тексты: 30_delphi.zip)

30_delphi.zip - 11 Kbyte

31_ScaleGrFg.exe (исходные тексты: 31_delphi.zip)

31_delphi.zip - 11 Kbyte

Пример 4

41_Test.exe (исходные тексты: 41_delphi.zip)

41_delphi.zip - 12 Kbyte

Файлы

_BMP1.MDB - для загрузки на карту _BMP2.MDB - для загрузки на карту

Первая группа примеров, демострирующих работу через интерфейс AUTOMATION

Примечания.
1. Необходимо зарегистрировать файл momMe.exe
   (т.к.он - сервер Автоматизации). Для этого запустите его один раз и выключите (это саморегистрирующийся сервер). Проверить регистрацию можно так: сделайте двойной щелчок по файлу test.mom - он должен запуститься.

   momMe.exe, кот.содержится в этом ZIP-упакованном примере,

   расчитан на работу с Access97. Для работы с Access2000/XP воспользуйтесь файлом momXP.exe, ZIP которого лежит на сервере рядом с этим примером, который Вы скачали.

   Перечень всех поддерживаемых функций:

Интерфейс "Document" можно получить так:
		Set MomDoc = CreateObject("Mom.Document")
Он поддерживает следующий функции:
========================================
	void OnProbaChanged();
	long LoadHtmlFig(long nParagraf, LPCTSTR sHtmlStr);
	void ViewGroup(long iGroup);
	BOOL Povorot(float a11, float a12, float b1, float a21, float a22, float b2);
	BOOL GetReadyDraw();
	BOOL Execut(LPCTSTR CommandLine, long nWinType);
	void RefreshWindow();
	LPDISPATCH CreateAutOle();
	BOOL SaveGroup(long Group);
	BOOL LoadGroup(long Group);
	void TestErrorHandler(short wCode);
	long GetXselect();
	long htmlLoad(LPCTSTR sFileName, long iGroup);
	long ExpansionRegion(long iGrReg, long iFgReg, long iGrFig, long iFgFig);
	LPDISPATCH CreateGroup();
	LPDISPATCH CreateSearch();
	void SetSHtml(LPCTSTR sHtml);
	long LoadHtmlFigToGroup(long nGroup, long nParagraf, LPCTSTR sHtmlStr);
	long LoadF(LPCTSTR sName);
	long FigToGroup(long iFigure, long iGroup, long iX, long iY, LPCTSTR sName, LPCTSTR sType, LPCTSTR sPict, LPCTSTR sHref, long iPrgf);
	void PointToFig(long iGroup, long iFigure, long iX, long iY);
	long PointSignal(long iX, long iY);
	long FigureSignal(long iGr, long iFg);
	long PointScale(long iX, long iY, long iScale);
	long FigureScale(long iGr, long iFg, long iScale);
	void SpeedToFig(long iGroup, long iFigure, long iVtyp, long iM, long iB);
	BOOL grafLoad(LPCTSTR sFileName);
	BOOL grafSave(LPCTSTR sFileName);
	long WayStart();
	long GetWayTime(long iNum);
	void PointsDel();
	long SetFilePatch(long iMod, long iKey, LPCTSTR sPatch);
	long WayPoint(long iMod, long iNum, long iX, long iY, LPCTSTR sName);
	double SetDirection(double fDirection);


Интерфейс "Group" можно получить так:
		Set MomDoc = CreateObject("Mom.Document")
		Set MomGroup = MomDoc.CreateGroup()
Он поддерживает следующий функции:
========================================
	long GetGroupQuant();
	long GetFigQuant(long iGroup);
	long GetTypGroupFig(long iGroup, long iFigure);
	long GetXGroupFig(long iGroup, long iFigure, long iNum);
	long GetYGroupFig(long iGroup, long iFigure, long iNum);
	long GetQuanGroupFig(long iGroup, long iFigure);
	BOOL SetName(long iGroup, long iFigure, LPCTSTR sName);
	void SetXGroupFig(long iGroup, long iFigure, long iNum, long newX);
	void SetYGroupFig(long iGroup, long iFigure, long iNum, long newY);
	void DeleteGroup(long iGroup);
	long GetFilQuantGroup(long iGroup);
	BSTR GetFilNamGroup(long iGroup, long iNum);
	BSTR GetFilNamGroupFig(long iGroup, long iFigure);
	long AddFilNamGroup(long iGroup, LPCTSTR sName);
	void SetTypGroupFig(long iGroup, long iFigure, long iType);
	void DeleteFig(long iGroup, long iFigure);
	BSTR GetNamGroup(long iGroup);
	BOOL SetNamGroup(long iGroup, LPCTSTR sName);
	long GetMxGroupFig(long iGroup, long iFigure, long iNum);
	long GetMyGroupFig(long iGroup, long iFigure, long iNum);
	void SetMxGroupFig(long iGroup, long iFigure, long iNum, long newX);
	void SetMyGroupFig(long iGroup, long iFigure, long iNum, long newY);
	void SetAnch(long fNum, long pNum, long iGr, long iFg);
	long GetAnchP(long iGr, long iFg);
	long GetAnchF(long iGr, long iFg);
	BSTR GetNameTypGroupFig(long iGroup, long iFigure);
	void SetTimeGroupFig(long iGroup, long iFigure, long iType, long iTime, long iBack);
	BSTR GetNamGroupFig(long iGroup, long iFigure, long iModa);

Интерфейс "Search" можно получить так:
		Set MomDoc = CreateObject("Mom.Document")
		Set MomGroup = MomDoc.CreateSearch()
Он поддерживает следующий функции:
========================================
	BSTR sDom(long iGroup, long iFigure, LPCTSTR s_Dom);
	void MomToInvariant();
	BSTR sAddr(LPCTSTR s_Addr);
	long SetName(LPCTSTR s_Name);
	long SetPoint(long iXpoint, long iYpoint);
	BSTR GetName(long iNum);
	long GetGroup(long iNum);
	long GetFigure(long iNum);
	long GetNameQuantity();
	long SetAddr(LPCTSTR sAddr, long grReg, long fgReg, long iRadius);
	BSTR GetFilename(long iGroup, long iFigure);
	BSTR Name2fileName(LPCTSTR s_Name);
	BSTR GetSubjects(long iPart);
	long SetAddrTyp(LPCTSTR sAddr, long grReg, long fgReg, long iRadius, long iType);
	long SetAddrGrName(LPCTSTR sAddr, LPCTSTR sReg, long fgReg, long iRadius, long iType);