Ошибка преобразования кода PushStreamContent C# в VB.Net WebAPI 2

Question

У меня возникли некоторые трудности при преобразовании этого кода C# в проект WebAPI 2 VB.Net.

Вот оригинальный код C#

[HttpGet]
public HttpResponseMessage FromImages() {

    var imageStream = new ImageStream();
    Func<Stream, HttpContent, TransportContext, Task> func = imageStream.WriteToStream;
    var response = Request.CreateResponse();
    response.Content = new PushStreamContent(func);
    response.Content.Headers.Remove("Content-Type");
    response.Content.Headers.TryAddWithoutValidation("Content-Type", "multipart/x-mixed-replace;boundary=" + imageStream.Boundary);
    return response;

}

internal class ImageStream {
    public object Boundary { get; private set; } = "HintDesk";

    public async Task WriteToStream(Stream outputStream, HttpContent content, TransportContext context) {
        byte[] newLine = Encoding.UTF8.GetBytes("\r\n");

        foreach (var file in Directory.GetFiles(@"TestData\Images", "*.jpg")) {
            var fileInfo = new FileInfo(file);
            var header = $"--{Boundary}\r\nContent-Type: image/jpeg\r\nContent-Length: {fileInfo.Length}\r\n\r\n";
            var headerData = Encoding.UTF8.GetBytes(header);
            await outputStream.WriteAsync(headerData, 0, headerData.Length);
            await fileInfo.OpenRead().CopyToAsync(outputStream);
            await outputStream.WriteAsync(newLine, 0, newLine.Length);
            await Task.Delay(1000 / 30);
        }
    }
}

Вот перевод VB.Net

    <HttpGet> _
    Public Function FromImages() As HttpResponseMessage
        Dim imageStream = New ImageStream()
        Dim func As Func(Of Stream, HttpContent, TransportContext, Task) = imageStream.WriteToStream
        Dim response = Request.CreateResponse()
        response.Content = New PushStreamContent(func)
        response.Content.Headers.Remove("Content-Type")
        response.Content.Headers.TryAddWithoutValidation("Content-Type", "multipart/x-mixed-replace;boundary=" + imageStream.Boundary)
        Return response
    End Function

    Friend Class ImageStream

        Public Function WriteToStream(outputStream As Stream, content As HttpContent, context As TransportContext) As Task
            Dim newLine As Byte() = Encoding.UTF8.GetBytes(vbCr & vbLf)

            For Each file As var In Directory.GetFiles("TestData\Images", "*.jpg")
                Dim fileInfo = New FileInfo(file)
                Dim header = "--{Boundary}" & vbCr & vbLf & "Content-Type: image/jpeg" & vbCr & vbLf & "Content-Length: {fileInfo.Length}" & vbCr & vbLf & vbCr & vbLf
                Dim headerData = Encoding.UTF8.GetBytes(header)
                Await outputStream.WriteAsync(headerData, 0, headerData.Length)
                Await fileInfo.OpenRead().CopyToAsync(outputStream)
                Await outputStream.WriteAsync(newLine, 0, newLine.Length)
                Await Task.Delay(1000 / 30)
            Next
        End Function

    End Class

Я вижу две проблемы:

1. В этой строке находится "Аргумент, не указанный для параметра" context "в" Public Function WriteToStream... "

   Dim func As Func(Of Stream, HttpContent, TransportContext, Task) = imageStream.WriteToStream

2. Не удалось разрешить перегрузку, поскольку с этими аргументами нельзя вызвать доступное "Новое"

   response.Content = Новый PushStreamContent (func)

Я полагаю, что я перевел это неправильно, но мне трудно найти какие-либо примеры в VB.Net для того, что я пытаюсь выполнить. Может кто-нибудь сказать мне, что я делаю не так?

Answer 1

Основная проблема в том, что вы не используете AddressOf - вот VB-эквивалент:

Option Infer On

Imports Microsoft.VisualBasic

<HttpGet>
Public Function FromImages() As HttpResponseMessage

    Dim imageStream = New ImageStream()
    Dim func As Func(Of Stream, HttpContent, TransportContext, Task) = AddressOf imageStream.WriteToStream
    Dim response = Request.CreateResponse()
    response.Content = New PushStreamContent(func)
    response.Content.Headers.Remove("Content-Type")
    response.Content.Headers.TryAddWithoutValidation("Content-Type", "multipart/x-mixed-replace;boundary=" & imageStream.Boundary)
    Return response

End Function

Friend Class ImageStream
    Private privateBoundary As Object = "HintDesk"
    Public Property Boundary() As Object
        Get
            Return privateBoundary
        End Get
        Private Set(ByVal value As Object)
            privateBoundary = value
        End Set
    End Property

    Public Async Function WriteToStream(ByVal outputStream As Stream, ByVal content As HttpContent, ByVal context As TransportContext) As Task
        Dim newLine() As Byte = Encoding.UTF8.GetBytes(ControlChars.CrLf)

        For Each file In Directory.GetFiles("TestData\Images", "*.jpg")
            Dim fileInfo = New FileInfo(file)
            Dim header = $"--{Boundary}" & ControlChars.CrLf & "Content-Type: image/jpeg" & ControlChars.CrLf & "Content-Length: {1}" & ControlChars.CrLf & ControlChars.CrLf
            Dim headerData = Encoding.UTF8.GetBytes(header)
            Await outputStream.WriteAsync(headerData, 0, headerData.Length)
            Await fileInfo.OpenRead().CopyToAsync(outputStream)
            Await outputStream.WriteAsync(newLine, 0, newLine.Length)
            Await Task.Delay(1000 \ 30)
        Next file
    End Function
End Class