@ishibashi0112/webview2-bridge-gen 0.2.0

package/vb-runtime/runtime/Dispatcher.vb

@@ -0,0 +1,145 @@
+Option Strict On
+
+Imports System
+Imports System.Collections.Generic
+Imports System.Threading.Tasks
+Imports Newtonsoft.Json
+Imports Newtonsoft.Json.Linq
+
+Namespace Global.WebView2Bridge.Runtime
+
+    ''' <summary>
+    ''' JSON-RPC 要求文字列を受け取り、登録されたハンドラへ振り分けて応答文字列を返す。
+    ''' 手書き側（このファイル）は契約に依存しない汎用部分。
+    ''' 生成側（Dispatcher.Generated.vb）が Register(api As IXxxApi) を提供し、RegisterHandler を呼ぶ。
+    ''' WebView2 には依存しない。
+    ''' </summary>
+    Partial Public Class Dispatcher
+
+        ''' <summary>型消去したハンドラ。params(JToken) → 結果(Object)</summary>
+        Private Interface IHandler
+            Function InvokeAsync(params As JToken) As Task(Of Object)
+        End Interface
+
+        Private NotInheritable Class TypedHandler(Of TReq, TRes)
+            Implements IHandler
+
+            Private ReadOnly _handler As Func(Of TReq, Task(Of TRes))
+            Private ReadOnly _serializer As JsonSerializer
+
+            Public Sub New(handler As Func(Of TReq, Task(Of TRes)), serializer As JsonSerializer)
+                _handler = handler
+                _serializer = serializer
+            End Sub
+
+            Public Async Function InvokeAsync(params As JToken) As Task(Of Object) Implements IHandler.InvokeAsync
+                Dim req As TReq
+                Try
+                    ' params 省略時は {} として扱う（全プロパティ optional な入力を許す）
+                    Dim source As JToken = If(params Is Nothing OrElse params.Type = JTokenType.Null, New JObject(), params)
+                    If source.Type <> JTokenType.Object Then
+                        Throw New JsonRpcException(JsonRpcErrorCodes.InvalidParams, "Invalid params: expected an object")
+                    End If
+                    req = source.ToObject(Of TReq)(_serializer)
+                Catch ex As JsonException
+                    Throw New JsonRpcException(JsonRpcErrorCodes.InvalidParams, "Invalid params: " & ex.Message, ex.GetType().FullName)
+                End Try
+                Dim result As TRes = Await _handler(req).ConfigureAwait(False)
+                Return result
+            End Function
+        End Class
+
+        Private ReadOnly _handlers As New Dictionary(Of String, IHandler)(StringComparer.Ordinal)
+        Private ReadOnly _serializer As JsonSerializer
+
+        Public Sub New()
+            Me.New(JsonRpc.CreateSerializerSettings())
+        End Sub
+
+        Public Sub New(settings As JsonSerializerSettings)
+            If settings Is Nothing Then Throw New ArgumentNullException(NameOf(settings))
+            _serializer = JsonSerializer.Create(settings)
+        End Sub
+
+        ''' <summary>JSON の読み書きに使うシリアライザ。Host 側の通知にも同じものを使う</summary>
+        Public ReadOnly Property Serializer As JsonSerializer
+            Get
+                Return _serializer
+            End Get
+        End Property
+
+        ''' <summary>登録済みメソッド名</summary>
+        Public ReadOnly Property RegisteredMethods As IEnumerable(Of String)
+            Get
+                Return _handlers.Keys
+            End Get
+        End Property
+
+        ''' <summary>
+        ''' 型付きハンドラを登録する。通常は生成側の Register(api) から呼ばれる。
+        ''' 同名メソッドは後勝ち。
+        ''' </summary>
+        Public Sub RegisterHandler(Of TReq, TRes)(method As String, handler As Func(Of TReq, Task(Of TRes)))
+            If String.IsNullOrEmpty(method) Then Throw New ArgumentException("method is required", NameOf(method))
+            If handler Is Nothing Then Throw New ArgumentNullException(NameOf(handler))
+            _handlers(method) = New TypedHandler(Of TReq, TRes)(handler, _serializer)
+        End Sub
+
+        ''' <summary>
+        ''' 要求 JSON を処理し、応答 JSON を返す。例外は投げず、必ず JSON-RPC エラー応答にする。
+        ''' 要求に id が無い（通知）場合は処理だけ行い Nothing を返す。
+        ''' </summary>
+        Public Async Function HandleAsync(requestJson As String) As Task(Of String)
+            Dim id As JToken = Nothing
+            Dim hasId As Boolean = False
+            Try
+                Dim token As JToken
+                Try
+                    token = JsonRpc.ParseToken(If(requestJson, String.Empty))
+                Catch ex As JsonException
+                    Return JsonRpc.BuildError(Nothing, JsonRpcErrorCodes.ParseError, "Parse error: " & ex.Message, Nothing, _serializer)
+                End Try
+
+                Dim request = TryCast(token, JObject)
+                If request Is Nothing Then
+                    Return JsonRpc.BuildError(Nothing, JsonRpcErrorCodes.InvalidRequest, "Invalid Request: expected an object", Nothing, _serializer)
+                End If
+
+                Dim idToken As JToken = Nothing
+                If request.TryGetValue("id", idToken) AndAlso idToken.Type <> JTokenType.Null Then
+                    id = idToken
+                    hasId = True
+                End If
+
+                Dim methodToken As JToken = Nothing
+                If Not request.TryGetValue("method", methodToken) OrElse methodToken.Type <> JTokenType.String Then
+                    Return If(hasId, JsonRpc.BuildError(id, JsonRpcErrorCodes.InvalidRequest, "Invalid Request: method is required", Nothing, _serializer), Nothing)
+                End If
+                Dim method As String = methodToken.Value(Of String)()
+
+                Dim handler As IHandler = Nothing
+                If Not _handlers.TryGetValue(method, handler) Then
+                    Return If(hasId, JsonRpc.BuildError(id, JsonRpcErrorCodes.MethodNotFound, "Method not found: " & method, Nothing, _serializer), Nothing)
+                End If
+
+                Dim params As JToken = Nothing
+                request.TryGetValue("params", params)
+
+                Dim result As Object = Await handler.InvokeAsync(params).ConfigureAwait(False)
+                Return If(hasId, JsonRpc.BuildResult(id, result, _serializer), Nothing)
+
+            Catch ex As JsonRpcException
+                Return If(hasId, JsonRpc.BuildError(id, ex.Code, ex.Message, ex.ErrorData, _serializer), Nothing)
+            Catch ex As Exception
+                ' 実装側の未処理例外: -32000、message に例外メッセージ、data に例外型名（HANDOFF.md §5）
+                Return If(hasId, JsonRpc.BuildError(id, JsonRpcErrorCodes.ServerError, ex.Message, ex.GetType().FullName, _serializer), Nothing)
+            End Try
+        End Function
+
+        ''' <summary>Host → Web の通知 JSON を作る（送信は Host 側）</summary>
+        Public Function BuildNotification(method As String, params As Object) As String
+            Return JsonRpc.BuildNotification(method, params, _serializer)
+        End Function
+    End Class
+
+End Namespace

package/vb-runtime/runtime/IBridgeEmitter.vb

@@ -0,0 +1,16 @@
+Option Strict On
+
+Namespace Global.WebView2Bridge.Runtime
+
+    ''' <summary>
+    ''' Host → Web の通知（JSON-RPC notification）を送る口。
+    ''' Contract は WebView2 に依存しないので、実体は Host 側（WebViewBridge）が実装する。
+    ''' 生成される BridgeEvents はこれを通して "event.&lt;name&gt;" を発行する。
+    ''' </summary>
+    Public Interface IBridgeEmitter
+        ''' <param name="method">"event.progress" のような通知名</param>
+        ''' <param name="params">ペイロード（生成 DTO）。Nothing 可</param>
+        Sub Emit(method As String, params As Object)
+    End Interface
+
+End Namespace

package/vb-runtime/runtime/JsonRpc.vb

@@ -0,0 +1,124 @@
+Option Strict On
+
+Imports System
+Imports System.IO
+Imports Newtonsoft.Json
+Imports Newtonsoft.Json.Linq
+
+Namespace Global.WebView2Bridge.Runtime
+
+    ''' <summary>JSON-RPC 2.0 のエラーコード（HANDOFF.md §5）</summary>
+    Public NotInheritable Class JsonRpcErrorCodes
+        Private Sub New()
+        End Sub
+
+        Public Const ParseError As Integer = -32700
+        Public Const InvalidRequest As Integer = -32600
+        Public Const MethodNotFound As Integer = -32601
+        Public Const InvalidParams As Integer = -32602
+        Public Const InternalError As Integer = -32603
+        ''' <summary>アプリ定義エラーの既定値。実装側の未処理例外はこのコードになる</summary>
+        Public Const ServerError As Integer = -32000
+    End Class
+
+    ''' <summary>
+    ''' 実装（IXxxApi）から意図的に JSON-RPC エラーを返したいときに投げる。
+    ''' Code は -32000 以下のアプリ定義コードを使う。
+    ''' </summary>
+    Public Class JsonRpcException
+        Inherits Exception
+
+        Public ReadOnly Property Code As Integer
+        Public ReadOnly Property ErrorData As Object
+
+        Public Sub New(code As Integer, message As String)
+            Me.New(code, message, Nothing)
+        End Sub
+
+        Public Sub New(code As Integer, message As String, data As Object)
+            MyBase.New(message)
+            Me.Code = code
+            Me.ErrorData = data
+        End Sub
+    End Class
+
+    ''' <summary>JSON-RPC 封筒の組み立て・解釈。Dispatcher と Host（WebViewBridge）が共用する</summary>
+    Public NotInheritable Class JsonRpc
+        Private Sub New()
+        End Sub
+
+        Public Const Version As String = "2.0"
+
+        ''' <summary>
+        ''' ブリッジ全体で使う Newtonsoft の設定。
+        ''' DateParseHandling.None: "2024-01-01T00:00:00Z" のような文字列を Date に変換せず、文字列のまま往復させる。
+        ''' </summary>
+        Public Shared Function CreateSerializerSettings() As JsonSerializerSettings
+            Return New JsonSerializerSettings() With {
+                .DateParseHandling = DateParseHandling.None,
+                .NullValueHandling = NullValueHandling.Include,
+                .Formatting = Formatting.None
+            }
+        End Function
+
+        ''' <summary>JSON 文字列 → JToken。日付文字列を自動変換しない</summary>
+        Public Shared Function ParseToken(json As String) As JToken
+            Using sr As New StringReader(json)
+                Using reader As New JsonTextReader(sr)
+                    reader.DateParseHandling = DateParseHandling.None
+                    Dim token = JToken.ReadFrom(reader)
+                    ' 末尾にゴミが無いことを確認する（"{}{}" のような入力を弾く）
+                    If reader.Read() Then
+                        Throw New JsonReaderException("Additional text found after JSON root")
+                    End If
+                    Return token
+                End Using
+            End Using
+        End Function
+
+        ''' <summary>成功応答 {"jsonrpc":"2.0","id":...,"result":...}</summary>
+        Public Shared Function BuildResult(id As JToken, result As Object, serializer As JsonSerializer) As String
+            Dim resultToken As JToken = If(result Is Nothing, CType(JValue.CreateNull(), JToken), JToken.FromObject(result, serializer))
+            Dim o As New JObject() From {
+                {"jsonrpc", Version},
+                {"id", NormalizeId(id)},
+                {"result", resultToken}
+            }
+            Return o.ToString(Formatting.None)
+        End Function
+
+        ''' <summary>エラー応答 {"jsonrpc":"2.0","id":...,"error":{"code","message","data"}}</summary>
+        Public Shared Function BuildError(id As JToken, code As Integer, message As String, data As Object, serializer As JsonSerializer) As String
+            Dim dataToken As JToken = If(data Is Nothing, CType(JValue.CreateNull(), JToken), JToken.FromObject(data, serializer))
+            Dim err As New JObject() From {
+                {"code", code},
+                {"message", If(message, String.Empty)},
+                {"data", dataToken}
+            }
+            Dim o As New JObject() From {
+                {"jsonrpc", Version},
+                {"id", NormalizeId(id)},
+                {"error", err}
+            }
+            Return o.ToString(Formatting.None)
+        End Function
+
+        ''' <summary>通知 {"jsonrpc":"2.0","method":...,"params":...}（id なし）</summary>
+        Public Shared Function BuildNotification(method As String, params As Object, serializer As JsonSerializer) As String
+            If String.IsNullOrEmpty(method) Then Throw New ArgumentException("method is required", NameOf(method))
+            Dim paramsToken As JToken = If(params Is Nothing, CType(JValue.CreateNull(), JToken), JToken.FromObject(params, serializer))
+            Dim o As New JObject() From {
+                {"jsonrpc", Version},
+                {"method", method},
+                {"params", paramsToken}
+            }
+            Return o.ToString(Formatting.None)
+        End Function
+
+        Private Shared Function NormalizeId(id As JToken) As JToken
+            If id Is Nothing Then Return JValue.CreateNull()
+            Return id.DeepClone()
+        End Function
+    End Class
+
+End Namespace

package/vb-runtime/winforms/WebViewBridge.vb

@@ -0,0 +1,100 @@
+Option Strict On
+
+Imports System
+Imports System.Diagnostics
+Imports System.Windows.Forms
+Imports Microsoft.Web.WebView2.Core
+Imports Microsoft.Web.WebView2.WinForms
+Imports WebView2Bridge.Runtime
+
+Namespace Global.WebView2Bridge.WinForms
+
+''' <summary>
+''' WebView2 コントロールと Dispatcher をつなぐ。
+'''   Web → Host: WebMessageReceived → Dispatcher.HandleAsync → PostWebMessageAsJson
+'''   Host → Web: Emit(method, payload) → 通知 JSON → PostWebMessageAsJson（UI スレッドへマーシャリング）
+''' AddHostObjectToScript は使わない（HANDOFF.md §5）。
+''' </summary>
+Public NotInheritable Class WebViewBridge
+    Implements IBridgeEmitter
+    Implements IDisposable
+
+    Private ReadOnly _webView As WebView2
+    Private ReadOnly _dispatcher As Dispatcher
+    Private _core As CoreWebView2
+    Private _attached As Boolean
+
+    Public Sub New(webView As WebView2, dispatcher As Dispatcher)
+        If webView Is Nothing Then Throw New ArgumentNullException(NameOf(webView))
+        If dispatcher Is Nothing Then Throw New ArgumentNullException(NameOf(dispatcher))
+        _webView = webView
+        _dispatcher = dispatcher
+    End Sub
+
+    Public ReadOnly Property Dispatcher As Dispatcher
+        Get
+            Return _dispatcher
+        End Get
+    End Property
+
+    ''' <summary>EnsureCoreWebView2Async の後に呼ぶ。WebMessageReceived を購読する</summary>
+    Public Sub Attach()
+        If _attached Then Return
+        If _webView.CoreWebView2 Is Nothing Then
+            Throw New InvalidOperationException("Call EnsureCoreWebView2Async before Attach")
+        End If
+        _core = _webView.CoreWebView2
+        AddHandler _core.WebMessageReceived, AddressOf OnWebMessageReceived
+        _attached = True
+    End Sub
+
+    Private Async Sub OnWebMessageReceived(sender As Object, e As CoreWebView2WebMessageReceivedEventArgs)
+        ' Web 側は postMessage(obj) で送るので WebMessageAsJson で受ける（TryGetWebMessageAsString は使わない）
+        Dim requestJson As String = e.WebMessageAsJson
+        Dim responseJson As String
+        Try
+            ' HandleAsync は例外を投げず JSON-RPC エラーに変換する。ここは UI スレッドに戻ってくる
+            responseJson = Await _dispatcher.HandleAsync(requestJson)
+        Catch ex As Exception
+            Debug.WriteLine($"[WebViewBridge] unexpected: {ex}")
+            Return
+        End Try
+        If responseJson Is Nothing Then Return ' 通知（id なし）には応答しない
+        Post(responseJson)
+    End Sub
+
+    ''' <summary>Host → Web の通知。どのスレッドから呼んでもよい</summary>
+    Public Sub Emit(method As String, params As Object) Implements IBridgeEmitter.Emit
+        Dim json As String = _dispatcher.BuildNotification(method, params)
+        Post(json)
+    End Sub
+
+    Private Sub Post(json As String)
+        If _core Is Nothing OrElse _webView.IsDisposed Then Return
+        If _webView.InvokeRequired Then
+            _webView.BeginInvoke(New Action(Sub() PostOnUiThread(json)))
+        Else
+            PostOnUiThread(json)
+        End If
+    End Sub
+
+    Private Sub PostOnUiThread(json As String)
+        If _core Is Nothing OrElse _webView.IsDisposed Then Return
+        Try
+            _core.PostWebMessageAsJson(json)
+        Catch ex As Exception
+            ' ナビゲーション中・破棄中など。ブリッジ自体は落とさない
+            Debug.WriteLine($"[WebViewBridge] PostWebMessageAsJson failed: {ex.Message}")
+        End Try
+    End Sub
+
+    Public Sub Dispose() Implements IDisposable.Dispose
+        If _attached AndAlso _core IsNot Nothing Then
+            RemoveHandler _core.WebMessageReceived, AddressOf OnWebMessageReceived
+        End If
+        _attached = False
+        _core = Nothing
+    End Sub
+End Class
+
+End Namespace