add webhosting

2025-10-04 22:13:51 +09:00
parent 370a838f42
commit 0eaeeb0aac
20 changed files with 1535 additions and 0 deletions
--- a/ArinWarev1/WebServer/StaticFileServer.vb
+++ b/ArinWarev1/WebServer/StaticFileServer.vb
@@ -0,0 +1,175 @@
+' OWIN 기반 정적 파일 호스팅 서버
+'
+' 사용 방법:
+' Dim server As New StaticFileServer("C:\wwwroot", 58123)
+' server.Start()
+' ... 프로그램 실행 ...
+' server.Stop()
+
+Imports System
+Imports System.IO
+Imports Microsoft.Owin.Hosting
+
+Namespace WebServer
+
+    ''' <summary>
+    ''' OWIN 기반 정적 파일 호스팅 서버
+    ''' 포트 58123 사용 (일반적으로 사용하지 않는 포트)
+    ''' </summary>
+    Public Class StaticFileServer
+        Implements IDisposable
+
+        Private _webApp As IDisposable
+        Private _baseUrl As String
+        Private _rootPath As String
+        Private _isRunning As Boolean = False
+
+        ''' <summary>
+        ''' 서버가 실행 중인지 여부
+        ''' </summary>
+        Public ReadOnly Property IsRunning As Boolean
+            Get
+                Return _isRunning
+            End Get
+        End Property
+
+        ''' <summary>
+        ''' 서버 URL (예: http://localhost:58123)
+        ''' </summary>
+        Public ReadOnly Property BaseUrl As String
+            Get
+                Return _baseUrl
+            End Get
+        End Property
+
+        ''' <summary>
+        ''' 정적 파일 루트 경로
+        ''' </summary>
+        Public ReadOnly Property RootPath As String
+            Get
+                Return _rootPath
+            End Get
+        End Property
+
+        ''' <summary>
+        ''' StaticFileServer 생성자
+        ''' </summary>
+        ''' <param name="rootPath">정적 파일을 서빙할 루트 디렉토리 경로</param>
+        ''' <param name="port">사용할 포트 번호 (기본값: 58123)</param>
+        Public Sub New(rootPath As String, Optional port As Integer = 58123)
+            If String.IsNullOrEmpty(rootPath) Then
+                Throw New ArgumentException("rootPath는 비어있을 수 없습니다.", "rootPath")
+            End If
+
+            If Not Directory.Exists(rootPath) Then
+                Directory.CreateDirectory(rootPath)
+            End If
+
+            _rootPath = Path.GetFullPath(rootPath)
+            _baseUrl = String.Format("http://localhost:{0}", port)
+        End Sub
+
+        ''' <summary>
+        ''' 웹 서버 시작
+        ''' </summary>
+        Public Sub Start()
+            If _isRunning Then
+                Throw New InvalidOperationException("서버가 이미 실행 중입니다.")
+            End If
+
+            Try
+                ' OWIN 서버 시작
+                _webApp = WebApp.Start(Of Startup)(_baseUrl)
+                _isRunning = True
+
+                ' 루트 경로를 Startup에서 접근할 수 있도록 설정
+                Startup.RootPath = _rootPath
+
+                Console.WriteLine("웹 서버 시작: {0}", _baseUrl)
+                Console.WriteLine("루트 경로: {0}", _rootPath)
+            Catch ex As Exception
+                _isRunning = False
+                Throw New Exception("웹 서버 시작 실패: " & ex.Message, ex)
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' 웹 서버 중지
+        ''' </summary>
+        Public Sub [Stop]()
+            If Not _isRunning Then
+                Return
+            End If
+
+            Try
+                If _webApp IsNot Nothing Then
+                    _webApp.Dispose()
+                    _webApp = Nothing
+                End If
+                _isRunning = False
+                Console.WriteLine("웹 서버 중지됨")
+            Catch ex As Exception
+                Throw New Exception("웹 서버 중지 실패: " & ex.Message, ex)
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' 리소스 해제
+        ''' </summary>
+        Public Sub Dispose() Implements IDisposable.Dispose
+            [Stop]()
+        End Sub
+
+        ''' <summary>
+        ''' 특정 파일의 전체 URL 반환
+        ''' </summary>
+        ''' <param name="relativePath">상대 경로 (예: "index.html" 또는 "images/logo.png")</param>
+        ''' <returns>전체 URL</returns>
+        Public Function GetFileUrl(relativePath As String) As String
+            If String.IsNullOrEmpty(relativePath) Then
+                Return _baseUrl & "/"
+            End If
+
+            ' 경로 정규화
+            Dim normalizedPath As String = relativePath.Replace("\", "/")
+            If Not normalizedPath.StartsWith("/") Then
+                normalizedPath = "/" & normalizedPath
+            End If
+
+            Return _baseUrl & normalizedPath
+        End Function
+
+        ''' <summary>
+        ''' 브라우저에서 루트 URL 열기
+        ''' </summary>
+        Public Sub OpenInBrowser()
+            If Not _isRunning Then
+                Throw New InvalidOperationException("서버가 실행 중이 아닙니다.")
+            End If
+
+            Try
+                System.Diagnostics.Process.Start(_baseUrl)
+            Catch ex As Exception
+                Throw New Exception("브라우저 열기 실패: " & ex.Message, ex)
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' 특정 파일을 브라우저에서 열기
+        ''' </summary>
+        ''' <param name="relativePath">상대 경로</param>
+        Public Sub OpenFileInBrowser(relativePath As String)
+            If Not _isRunning Then
+                Throw New InvalidOperationException("서버가 실행 중이 아닙니다.")
+            End If
+
+            Try
+                Dim url As String = GetFileUrl(relativePath)
+                System.Diagnostics.Process.Start(url)
+            Catch ex As Exception
+                Throw New Exception("브라우저 열기 실패: " & ex.Message, ex)
+            End Try
+        End Sub
+    End Class
+
+End Namespace