رتبه موضوع:
  • 20 رای - 2.75 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Run in memory
#1
کد:
' open a file stream for reading, and load into a memory stream
  Public Shared Function StreamToMemory(ByVal path As String) As IO.MemoryStream
    Dim input As IO.FileStream
    Dim output As IO.MemoryStream
    input = New IO.FileStream(path, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Read)
    output = StreamToMemory(input)
    input.Close()
    Return output
  End Function
  ' transfer contents of input stream to memory stream
  Public Shared Function StreamToMemory(ByVal input As IO.Stream) As IO.MemoryStream
    Dim buffer(1023) As Byte
    Dim count As Integer = 1024
    Dim output As IO.MemoryStream
    ' build a new stream
    If input.CanSeek Then
      output = New IO.MemoryStream(input.Length)
    Else
      output = New IO.MemoryStream
    End If
    ' iterate stream and transfer to memory stream
    Do
      count = input.Read(buffer, 0, count)
      If count = 0 Then Exit Do
      output.Write(buffer, 0, count)
    Loop
    ' rewind stream
    output.Position = 0
    ' pass back
    Return output
  End Function
در صورتی که سوال دارید و سوالتون مختصر هست با شماره 09120642214 میتونید تماس بگیرید.
کسانی که دوست دارن در کانال فروشگاه ما و یا کانال انجمن عضو بشن یک پیامک در تلگرام برای من بفرستید که عضوشون میکنم.

ادرس فروشگاه :

http://www.amshop.ir



ای ام شاپ را در اینستگرام دنبال کنید

ای ام شاپ رو در کانال تلگرام دنبال کنید



This forum uses Lukasz Tkacz MyBB addons.
پاسخ


پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان
<------> <____> <<<<----------------->>>> <<<<--->>>>>
This forum uses Lukasz Tkacz MyBB addons.