¡¡
¹Ø¼ü´Ê£ºPowerBuilder£¬MapInfo£¬MapBasic£¬ÏµÍ³¼¯³É£¬OLE×Ô¶¯»¯,»Øµ÷
¡¡
0 ÒýÑÔ
PowerBuilder ÊÇÒ»¸öÃæÏò¶ÔÏóµÄÓÃÓÚ¹¹Ôì»ùÓÚ¿Í»§/·þÎñÆ÷£¨Client/Server£©Êý¾Ý¿â Ó¦Óà ϵͳµÄ¿ª·¢¹¤¾ß£¬Ëüͨ¹ýODBC¿Éͬʱ֧³ÖSysbase¡¢Oracle¡¢Informix¡¢SQL ServerµÈ¶àÖÖ¹ØÏµÊý¾Ý¿â£¬¾ßÓÐÇ¿´óµÄÊý¾Ý¿âÓ¦ÓóÌÐò¿ª·¢¹¦ÄÜ£¬ÓÈÆäÊÇËüÌṩµÄÈçÊý¾Ý´°¿Ú£¨Data Window£©µÈ¹¤¾ß£¬Ê¹ÆäÄܹ»¸ü¼Ó·½±ãÓÐЧµØ·ÃÎÊÓë²Ù×ÝÊý¾Ý¿â¡£
MapInfoÊÇÓÉÃÀ¹úMapInfo¹«Ë¾ÍƳöµÄµØÀíÐÅϢϵͳ¿ª·¢Æ½Ì¨£¬ÆäºËÐİüÀ¨MapInfo ProfessionalºÍMapBasicÁ½¸ö²¿¼þ¡£Í¨¹ýMapInfoƽ̨£¬ÄܰѴóÁ¿ÐÅÏ¢Ö±¹ÛµØÓëµØÀíͼÐÎÓлúÁªÏµÆðÀ´£¬Ê¹¿ÝÔïµÄ±í¸ñÊý¾Ý¿ÉÊÓ»¯£¬´Ó¶ø¼«´óµØ·½±ãÁËÊý¾Ý ·ÖÎö ºÍ¸¨Öú¾ö²ß¡£
ÀûÓÃPowerBuilderÇ¿´óµÄÊý¾Ý·ÃÎÊÓë²Ù×ÝÄÜÁ¦ºÍMapInfoµÄµØÍ¼ÐÅÏ¢¹ÜÀí¹¦ÄÜ£¬½áºÏIntegrated Mapping¼¼Êõ¡¢OLE×Ô¶¯»¯¼¼ÊõµÈ£¬½«MapInfoµØÍ¼¼¯³Éµ½PowerBuilderµÄÓ¦ÓÃÖУ¬¿ÉÒÔѸËٵؿª·¢³ö¾ßÓÐÇ¿´óµØÍ¼´¦ÀíÄÜÁ¦µÄÓ¦ÓóÌÐò£¬Ê¹Êý¾Ý¿âÖз±ÔÓ³éÏóµÄÊý¾Ý¿ìËÙ¡¢×¼È·¡¢Áé»îµØÏÔʾÓÚ µç×Ó µØÍ¼Ö®ÉÏ£¬½«Êý¾Ý¿ÉÊÓ»¯£¬ÊµÏÖ¿Õ¼äÊý¾ÝºÍÊôÐÔÊý¾ÝµÄÓлú½áºÏ¡£
1 ¿ª·¢¿ò¼Ü
ʹÓÃPowerBuilderºÍMapInfo¼¯³É¿ª·¢¼¼ÊõËù¿ª·¢µÄÓ¦ÓóÌÐò£¬³ÆÎª¼¯³ÉµÄµØÍ¼Ó¦ÓóÌÐò£¨Integrated Mapping Application£©¡£ÔÚ¼¯³ÉµÄµØÍ¼Ó¦ÓóÌÐòÖУ¬ÒÔ¿Í»§/·þÎñÆ÷µÄ¿ª·¢Ä£Ê½£¬Ê¹ÓÃPowerBuilder¿ª·¢µÄÓ¦ÓóÌÐò³ÆÎª¿Í»§³ÌÐò¡£¿Í»§³ÌÐòÔËÐÐÔÚǰ̨£¬Í¨¹ýOLEµ÷ÓÃÔÚºǫ́ÔËÐеÄ×÷ΪOLE×Ô¶¯»¯·þÎñÆ÷µÄMapinfo¡£
ÔÚ¼¯³ÉµÄµØÍ¼Ó¦ÓóÌÐòÖУ¬¸ù¾ÝMapInfoÌṩµÄIntegrated Mapping½Ó¿Ú£¬ÔÚPowerBuilder¿Í»§³ÌÐòÖÐʹÓÃOutbound OLE Automation£¨Êä³öOLE×Ô¶¯»¯£©¼¼Êõ£¬½«MapInfoµÄµØÍ¼´°¿Ú¼¯³Éµ½¿Í»§³ÌÐòÖУ¬´Ó¶øÊ¹¿Í»§³ÌÐò¾ß±¸µØÍ¼´¦ÀíÄÜÁ¦¡£¿Í»§³ÌÐòʹÓÃMapInfo OLE×Ô¶¯»¯¶ÔÏó¡¢MapBasic OLE×Ô¶¯»¯¶ÔÏóµÄÓйØÊôÐԺͷ½·¨£¬Í¨¹ýMapInfo OLE×Ô¶¯»¯·þÎñÆ÷¶Ô¼¯³ÉµÄµØÍ¼´°¿Ú½øÐпØÖÆ¡£Í¼1¸ø³öÁ˿ͻ§³ÌÐòºÍ·þÎñÆ÷³ÌÐò¼äµÄ¹ØÏµ¡£
ͼ1 PowerBuilder¿Í»§³ÌÐòºÍMapInfo·þÎñÆ÷µÄ¹ØÏµ
2£®½¨Á¢PowerBuilder¿Í»§³ÌÐòºÍMapInfo OLE·þÎñÆ÷µÄÁ¬½Ó
½¨Á¢PowerBuilder¿Í»§³ÌÐòºÍMapInfo OLE·þÎñÆ÷µÄÁ¬½ÓÔÚÔÀíÉÏÊÇ£ºÔÚPowerBuilder¿ª·¢µÄ¿Í»§³ÌÐòÖУ¬Í¨¹ýʹÓÃOutbound OLE Automation¼¼ÊõʵÏÖ¿Í»§³ÌÐòºÍMapInfo·þÎñÆ÷µÄÁ¬½Ó£¬½èÖúOLEµ÷ÓÃMapInfo·þÎñÆ÷¡£¾ßÌåʵÏÖÉÏÊÇ£ºÔÚ°üº¬µØÍ¼´°¿ÚµÄ¿ò¼Ü´°¿ÚµÄOpenʼþÖÐÌí¼Ó´úÂ룬´´½¨Ò»¸öеÄOLEObject£¬¶ø½«MapInfo×÷ΪÕâ¸öеÄOLEObjectµÄOLE·þÎñÆ÷¡£Òªµ÷ÓÃMapInfo·þÎñ£¬ÔòÐèµ÷ÓÃConnectToNewObject£¨£©º¯Êý²¢´«µÝOLE Programmable ObjectµÄ³ÌÐò±êʶ£¬¼´¡°MapInfo.Application¡±£º
//OLEObject¶ÔÏóµÄʵÀý
OLEObject MapInfo
//½ÓÊÕ´íÎó´úÂë
Integer ErrCode
//´´½¨Ò»¸öÓëMapInfo½øÐÐͨÐŵÄOLE×Ô¶¯»¯¶ÔÏó
MapInfo = Create OLEObject
//Á¬½ÓOLE×Ô¶¯»¯¶ÔÏóµ½MapInfo·þÎñÆ÷
ErrCode = MapInfo.ConnectToNewObject("MapInfo.Application")
If ErrCode <> 0 The n
MessageBox("Fatal Error", "Error connecting to the map server. Exiting...")
Ruturn
End If
ÔÚÍ˳öÓ¦ÓóÌÐòʱ£¬Òªµ÷ÓÃDisConnectToObject£¨£©º¯Êý¶Ï¿ªOLE×Ô¶¯»¯¶ÔÏóºÍMapInfo OLE×Ô¶¯»¯·þÎñÆ÷Ö®¼äµÄÁ¬½Ó£¬²¢³·ÏûOLE×Ô¶¯»¯¶ÔÏó£¬ÒÔÊÍ·ÅÆäÕ¼ÓõÄϵͳ×ÊÔ´¡£Îª´Ë£¬¿ÉÔÚÉÏÊö¿ò¼Ü´°¿ÚµÄCloseʼþÖÐÌí¼Ó´úÂëʵÏÖ£º