WebServer Option Ver 2.0: IIS Web VisualBasic 6 MapExpert WebServer MetaWare Research
WebServer Option 2.0 WebServer Option 1.0 WebServer Option Ver 2.0 MapExpert Ver 4.45 MapExpert Ver 4.45 WebServer Session WebServer Ver 2.0 Web MapExpert Ver 4.45 Application.ServerLogin (Session, 0) Application.ServerLogout (Session, 0) Application.ServerCheckSession (Session, 0) Application.ServerOpenMapDB (Session, 1, mapdbname, carddbname) Application.ServerMapDB (Session, 1) Application.ServerMapDBImageToFile (Session, 1, x, y, WebFolder & "/images/" & pngfilename) Session.SessionID WebServer Ver 2.0 MapExpertVer4.45 Session 2001 MetaWare Research 1
MapExpert WebServer MapExpert/PRO MapExpert/SuperPRO, WebServer MapServer IIS (Web ) Web MapExpert MapServer MapExpert MapExpert WebServer MapExpert WebServer MapServer NT-Server 4.0 (SP4) WebServer IIS 4.0 (Internet Information Server) IIS Ver5.0 ASP IIS4 Windows2000 + IIS5.0 MapServer IIS MapExpert HTML MapExpert WebServerOption 2001 MetaWare Research 2
MapExpert PNG (Portable Network Graphic) Web Netscape Navigator 4.6 Microsoft Internet Explorer 4.0 PNG (Portable Network Graphic) MapServer MapExpert WebServer MapExpert MapExpert MapExpert IIS MapExpert MapExpert WebServer MapExpert WebServer WebServer MapExpert WebServer MapExpert WebServer MapExpert/PRO MapExpert WebServer 2001 MetaWare Research 3
Application.ActiveMapDB Application.ServerMapDB( ) MapExpert WebServer MapExpert IIS MapExpert 2001 MetaWare Research 4
MapServer MapServer MapServer IIS IIS MapServer (MapExpert + WebServer ) MapServer NT4 ServicePack 4 IIS 4.0 Windows2000 IIS 5.0 IIS 5.0 IIS5.0 Windows Windows NT 4.0 Server, Windows 2000 Professional, Windows 2000 Server VisualBasic 6.0 VisualBasic 6.0 Windows 2000 Professional, Windows 2000 Server ASP VBScript Windows IIS MapServer MapServer ASP *.DLL MapExpert MapExpert C: MAPEX32 MapServer MapExpert DB MapServer MapServer Runtime Setup.EXE MapServer C: MAPEX32 WEBAPP *.ASA, *.ASP *.DLL ASP 2001 MetaWare Research 5
MapServer ASP global.asa mapex.dll VB WebClass Global.asa Web C:/MAPEX32/WEBAPP Application("folder") = "c:/mapex32/webapp" MapExpert C:/mapex32/webapp/images VB6 WebClass MSWCRJP.DLL, MSWCRUN.DLL, VB6JP.DLL Windows MapServer URL Web Web C: MAPEX32 WEBAPP http://www.company.co.jp/mapserver Windows2000 www.company.co.jp mapserver 2001 MetaWare Research 6
MapServer C: mapex32 webapp ActiveX.DLL EXE CGI 2001 MetaWare Research 7
MapServer MapExpert Web MapServer http://www.company.co.jp/mapserver/mapexsvr.asp MapServer http://machinename/mapserver/mapexsvr.asp MapServer 2001 MetaWare Research 8
MapServer MapServer MapExpert MapExpert MapExpert Login Logout MapExpert MapExpert WebServer Login Web Logout Logout Web Logout Logout PNG MapServer 2001 MetaWare Research 9
MapServer MapServer images 16325134.png MapServer MapServer MapServer MapServer IIS MapExpert MapExpert IIS MAPEX32.exe MapExpert World Wide Web IIS MapExpert MAPEX32.EXE World Wide Web MapServer MapExpert 2001 MetaWare Research 10
MapServer MapServer MapServer MapServer ASP (ActiveServerPage) VBScript VisualBasic6 WebClass VisualBasic 6 WebClass IIS ASP (Active Server Pages) VBScript VB6 WebClass VB6 VBScript ASP VisualBasic VisualBasic MapExpert ActiveX API HTML VBScript WebClass VB ActiveX DLL VB ASP VB6 MapServer WebSource.exe C:/MAPEX32/WebSrc GLOBAL.ASA Application("folder") = "c:/mapex32/websrc" Project1.Vbp 2001 MetaWare Research 11
MapServer mapex123 MapExpert mapex123 mapex123 NT, Win2000 Administrator mapex123 VB6 MapServer MapServer MapServer global.asa Application_OnStart 2001 MetaWare Research 12
MapServer Sub Application_OnStart On Error Resume Next ' ' Web ' MapExpert API Application("folder") = "d:/inetpub/wwwroot/mapsvr" ' VB 'MapExpert 0 Application("debug") = 0 Application("count") = 0 ' Application.Lock if (Application("debug") = 0) then Dim mapex ' MapExpert Set mapex = Server.CreateObject("MapExpert32.Application") if (mapex is Nothing) Then ' Else Dim ret ret = mapex.serverinitialize(application("folder")) If (ret <> 0) Then End If End If Set Application("mapex") = mapex Else Set Application("mapex") = Nothing End if Application.UnLock End Sub Application_OnStart VBScript MapExpert Server.CreateObject IIS Web MapExpert MapExpert ServerInitialize( ) MapExpert ServerInitialize WebServer VB MsgBox VBScript MapExpert Application( folder ) Application ( folder ) Web 2001 MetaWare Research 13
MapServer Sub Application_OnEnd ' IIS Dim mapex Set mapex = Application("mapex") Application.Lock ' MapExpert if (Not (mapex is Nothing)) Then call mapex.quit Set Application("mapex") = Nothing End if Application.UnLock End Sub MapServer WebServer Application_OnEnd MapServer MapExpert Application_OnStart Application_OnEnd MapServer Session VBScript Session Sub Session_OnStart On Error Resume Next ' Session.Timeout = 20 Application.Lock count = Application("count") Application("count") = count + 1 count = Application("total") Application("total") = count + 1 End Sub Application.UnLock Application( count ) Application( total ) Session.Timeout 2001 MetaWare Research 14
MapServer Session.Timeout Timeout MapExpert Sub Session_OnEnd On Error Resume Next ' Dim count Dim mapex Dim ret Application.Lock Set mapex = Application( mapex ) ret = mapex.serverlogout (Session, 0) MapServer 2.. count = Application("count") Application("count") = count - 1 End Sub Application.UnLock MapServer Application( count ) WebClass Session WebClass Session IIS WebClass Session WebClass VB6 statemanagement wcnostate wcretaininstance MapServer wcretaininstance wcretaininstance WebClass Session URL *.ASP WebClass HTML Session WebClass wcretaininstace WebClass WebClass_Initialize WebClass_Start WebClass_BeginRequest WebClass_EndRequest WebClass_Terminate WebClass_FatalErrorResponse WebClass HTML WebClass WebClass WebClass_Initialize WebClass_Start WebClass_BeginRequest WebClass_EndRequest 2001 MetaWare Research 15
MapServer WebClass MapFirstPage HTML MapPage_Respond MapPage_Respond 2001 MetaWare Research 16
MapServer WebClass MapServer Cookie WebClass Session Session Cookie Cookie WebClass Cookie Off Cookie ErrorMessageCookie Session (Logout) MapServer Timeout ErrorMessageTimeOut MapServer ErrorMessageLicenseOver URL Cookie Cookie URL MapServer Lock / Unlock MapServer MapExpert IIS Session Lock / Unlock MapExpert MapExpert_Lock, MapExpert_UnLock MapExpert MapExpert 2001 MetaWare Research 17
MapServer MapServer HTML MapServer MapExpert global.asa Application("debug") = 1 IE MapExpert_Lock #Const CompileVersion MapExpert_Lock IIS MapExpert MapExpert global.asa Application("debug") = 0 MapExpert IIS OS mapexsrv.asp mapex.dll DLL '#Const CompileVersion = 1 MapExpert_Lock, MapExpert_UnLock DLL IIS MapExpert DLL IIS NT DLL DLL VB6 VB6 Web 2001 MetaWare Research 18
WebServer WebServer WebServer MapExpert IIS WebServer WebServer MapExpert Application.ServerInitialize WebServer MapExpert/PRO Web WebServer DB API DB WebServer MapExpert Application.ActiveMapDB WebServer Nothing WebServer DB DB 2 WebServer Application.ServerInitialize (localpath) WebServer Application.ServerLogin (Session, 0) Application.ServerLogout (Session, 0) Application.ServerCheckSession (Session, 0) WebServer Ver 2 Session ServerCheckSession Session Application.ServerSideScreenSize (x, y) 800 x 600 x, y 800 600 Application.ServerOpenMapDB (Session, 1, mapdbname, carddbname) DB DB 2001 MetaWare Research 19
WebServer ServerOpenMapDB API DB DB DB Applicatoin ServerCloseMapDB Application.ServerMapDB (Session, 1) DB Application.ActiveMapDB WebServer Application.ActiveMapDB Application.ServerMapDBImageToFile (Session, 1, x, y, WebFolder & "/images/" & pngfilename) Application.ServerWorkArea ( Z: ) RamDisk Z: MapExpert Ve r.4.11 RamDisk Windows 2000 RamDisk 3 Application.ServerMapDBImageToFile ( ) API HTML MapExpert ' Call MapExpert_Lock ' MapExpert Call gmapexpert.servermapdb(session, Session("map")).ServerRedraw ' ret = gmapexpert.servermapdb(session, Session("map")). _ DrawIcon(keido, ido, iconid, s, 1, 255, 255, 255) ' ret = gmapexpert.servermapdb(session, Session("map")). _ DrawText(keido, ido, 0, 0, 12, 1, 16 / s, 0, 1, string, 0, 0, 255) ' et = gmapexpert.servermapdbimagetofile(session, Session("map"), gmapxsize, gmapysize, pngfilename) ' ret = gmapexpert.servermapdb(session, Session("map")).GetWindowCenter(name, x, y) 'ret = MapExpert.ServerMapDB(Session, 1).MapToGlobalPos(MapName, x, y, keido, ido) Call MapExpert_UnLock 2001 MetaWare Research 20
WebServer ServerMapDBImageToFile ( ) ServerMapDB (, ).ServerRedraw ServerRedraw ServerMapDBImageToFile WebServer DrawIcon, DrawText ServerMapDB (Session, 1) DrawIcon (keido As Double, ido As Double, iconid As Long, iconscale As Intenger, framesize As Integer, red As Integer, green As Integer, blue As Integer) Keido, ido IconID IconScale 2 FrameSize, red, green, blue (iconid) MapExpert MapExpert, C: mapex32 icons system.tab System.tab DrawText (keido As Double, ido As Double, fonttype As Integer, fontstyle As Integer, fontsize As Integer, place As Integer, offset As Integer, tateflag As Integer, fillflag As Integer, string As String, red As Integer, green As Integer, blue As Integer) Keido, ido IconID IconScale 2 FrameSize, red, green, blue DrawPoints (points As Variant, pointnum As Long, radius As Integer, fillflag As Integer, shape As Integer, red As Integer, green As Integer, blue As Integer) Points Variant PointNum Points Radius FillFlag Shape Red, green, blue Dim Points(100, 2) As Double ' Dim vpoint As Variant Points(1,1) = 139.2513 Points(1,2) = 35.5884 : Points(10,1) = 139.7143 Points(10,2) = 35.9841 2001 MetaWare Research 21
WebServer vpoint = Points ret = gmapexpert.servermapdb(session, 1).DrawPoints(vpoints, 10, 5, 0, 255,255,255) DrawLine (points As Variant, pointnum As Long, linetype As Integer, closeflag As Integer, patterntype As Integer, red As Integer, green As Integer, blue As Integer) Points Variant PointNum Points linetype closeflag 0 patterntype Red, green, blue 2001 MetaWare Research 22
MapExpert 2001 MetaWare Research 23