ذخیره سازی عکس در Memory Stream

[ACorvinus]

سلام .

چجوری می تونم عکس های یک پوشه رو در Memory Stream ذخیره کنم .

مشکلی با خوندن عکس ها ندارم .
مشکلم در ذخیره سازی اونا در Memory Stream هستش .

[tabatabaeefar]

سلام


Dim Ms AsNew MemoryStream
btTemp.Save(Ms, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim ArrayImage() AsByte = Ms.GetBuffer

موفق باشي

[ACorvinus]

سلام


Dim Ms AsNew MemoryStream
btTemp.Save(Ms, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim ArrayImage() AsByte = Ms.GetBuffer
موفق باشي

ممنون .

من یه تیکه برنامه میذارم اینجا و باهاش میخوام عکسهای یه دایرکتوری رو بخونم و بریزم به یه listview . ( گویا این وسط به یه Memory Stream به عنوان یه واسط احتیاج دارم )

میشه بگین من باید چیکار کنم ؟




Dim OpenDialogBox As New FolderBrowserDialog
OpenDialogBox.ShowDialog()

Dim Path As String = OpenDialogBox.SelectedPath

Dim ImageList As New ImageList
ImageList.ImageSize = New System.Drawing.Size(32, 32)
ImageList.ColorDepth = ColorDepth.Depth32Bit
Dim DiFiles As New DirectoryInfo(Path)
For Each SFiles As FileInfo In DiFiles.GetFiles("*.jpg", SearchOption.AllDirectories)
Dim MStream As New MemoryStream()
Dim Image As Image '=
Image.Save(MStream, System.Drawing.Imaging.ImageFormat.Jpeg)
Me.PictureListView.Items.Add(SFiles.Name.ToString, SFiles.Name.ToString).Name = SFiles.Name
Next

[tabatabaeefar]

فكر نكنم به Memory Stream نيازي باشه.
من اين كار رو اين طوري انجام دادم.


Dim B AsObject
Dim FileName AsString = String.Empty
Dim FileType AsString = String.Empty
ForEach B In FileIO.FileSystem.GetFiles(strPicAdress)
GetFileName(B, FileName, FileType)
If FileType = "jpg"Then
lvPic.Items.Add(FileName, 0)
EndIf
Next

كه اگه خواستي از آيكن هم استفاده كني بايد ابتدا تصويرش رو توي يك ايميج ليست بگذاري ، بعد مقدار خصيصه ي LargeImageList ليست ويو رو برابر نام اميج ليست قرار داده و در كد بالا به جاي 0 از شماره ايندكس تصوير توي اميج ليست ويا نام تصوير استفاده كني.

[arsalansalar]

دوست عزیز از این جمله GetFileName اشکال می گیره.چرا این طوری هست؟