vb.net 中，怎样获取内存中图片流的内存首地址及大小？

2013-12-03 04:52:21 1.4k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

PyCharm+QT Designer整合 CMD下使用pip安装PyQt4或者PYQT5 这里要注意，你下载的PYQT5不包含QT designer 还要：pip3 install PyQt5-tools，好像Pyqt5中将designer分离了或者查看源码：https://github.com/altendky/pyqt5-tools，编译安装将QT Designer整合到PyCharm的External Tools中，以后就可... 阅读详情

vb.net 中，怎样获取内存中图片流的内存首地址及大小？
Dim ms As System.IO.MemoryStream = New System.IO.MemoryStream(File.ReadAllBytes(mFileName))

我把一个图片文件以流的形式读入到内存中，怎样获取它的内存首地址及大小？

...全文

Doorbell机制在PCI与MSI中断中的高效应用本文深入解析了Doorbell机制在PCIe设备与CPU间通信中的核心作用。作为一种高效的硬件通知机制，它通过内存映射I/O（MMIO）实现软件对硬件的轻量级触发，常与MSI中断协同工作，构建高效的生产者-消费者模型。文章以AMD GPU的Ring Buffer命令提交为例，阐述了该机制如何显著降低CPU开销、提升系统吞吐量，并对比了其与传统中断方式的性能优势。阅读详情

良朋

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

良朋 2013-12-09

打赏
举报

这个可以，其实我是想把我用线扫相机扫到的buffer传递给visionPro的cogImage, 唉，一直找不到有关代码。


Private Sub LockUnlockBitsExample(ByVal e As PaintEventArgs)


        Dim bmp As New Bitmap("c:\fakePhoto.jpg")

        ' Lock the bitmap's bits.  
        Dim rect As New Rectangle(0, 0, bmp.Width, bmp.Height)
        Dim bmpData As System.Drawing.Imaging.BitmapData = bmp.LockBits(rect, Drawing.Imaging.ImageLockMode.ReadWrite, bmp.PixelFormat)

        ' Get the address of the first line.
        Dim ptr As IntPtr = bmpData.Scan0

        ' Declare an array to hold the bytes of the bitmap.
        ' This code is specific to a bitmap with 24 bits per pixels.
        Dim bytes As Integer = bmpData.Stride * bmp.Height
        Dim rgbValues(bytes - 1) As Byte

        ' Copy the RGB values into the array.
        System.Runtime.InteropServices.Marshal.Copy(ptr, rgbValues, 0, bytes)

        ' Set every third value to 255. A 24bpp image will look red.
        For counter As Integer = 2 To rgbValues.Length - 1 Step 3
            rgbValues(counter) = 255
        Next

        ' Copy the RGB values back to the bitmap
        System.Runtime.InteropServices.Marshal.Copy(rgbValues, 0, ptr, bytes)

        ' Unlock the bits.
        bmp.UnlockBits(bmpData)

        ' Draw the modified image.
        e.Graphics.DrawImage(bmp, 0, 150)

    End Sub


    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        LockUnlockBitsExample(e)
    End Sub

wxyong2sy 2013-12-04

打赏
举报

fs = New FileStream(mFileName, FileMode.Open, IO.FileAccess.Read) Dim file(fs.Length-1) As Byte fs.Read(file, 0, fs.Length) fs.Close() 这是我读任意文件为二进制流的代码，对图片也一样。

红衣老大 2013-12-03

打赏
举报

为啥要获取这个？要做操图片没有也能做另外 vb确实不擅长操作内存如果一定的要作业的api了

vb.net 中，怎样获取内存中图片流的内存首地址及大小？

相关推荐