初学winsocket ,请问......

Question

不保存？很难做吧S端以二进制发送图片，C端保存到硬盘，再显示就OK了

Answer 1

图片格式随便，用jpg的好了。能不能告诉我用什么控件，以及所需要的函数？谢谢大家了！

Answer 2

我现在也遇到了同样的问题,正在焦急寻找答案中.如果你解决了请给我发个例子好吗?谢谢.我的信箱是:[email protected]

Answer 3

不能存为临时文件吗？存为临时文件好像不会影响到你的其它操作，除非你有特殊的用法！
保存文件可以用
Open filename for binary as #1

Answer 4

用WINSOCK转过来的是二进制的数组实际上最难的问题是把这个数组直接写到IMAGE去不写盘本人是这样一来实现的
Option Explicit
Private Declare Function CreateStreamOnHGlobal Lib "ole32" (ByVal hGlobal As Long, ByVal fDeleteOnRelease As Long, ppstm As Any) As Long
Private Declare Function OleLoadPicture Lib "olepro32" (pStream As Any, ByVal lSize As Long, ByVal fRunmode As Long, riid As Any, ppvObj As Any) As Long
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpsz As Any, pclsid As Any) As Long
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal uFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal dwLength As Long)Public Function LoadFile(ByVal FileName As String) As Byte()
    Dim FileNo As Integer, b() As Byte
    On Error GoTo Err_Init
    If Dir(FileName, vbNormal Or vbArchive) = "" Then
        Exit Function
    End If
    FileNo = FreeFile
    Open FileName For Binary Access Read As #FileNo
    ReDim b(0 To LOF(FileNo) - 1)
    Get #FileNo, , b
   Close #FileNo
    LoadFile = b
    Exit Function
Err_Init:
    MsgBox Err.Number & " - " & Err.Description
End Function
Public Function PictureFromByteStream(b() As Byte) As IPicture
    Dim LowerBound As Long
    Dim ByteCount  As Long
    Dim hMem  As Long
    Dim lpMem  As Long
    Dim IID_IPicture(15)
    Dim istm As stdole.IUnknown
    On Error GoTo Err_Init
   If UBound(b, 1) < 0 Then
        Exit Function
   End If
    LowerBound = LBound(b)
    ByteCount = (UBound(b) - LowerBound) + 1
    hMem = GlobalAlloc(&H2, ByteCount)
    If hMem <> 0 Then
        lpMem = GlobalLock(hMem)
        If lpMem <> 0 Then
            MoveMemory ByVal lpMem, b(LowerBound), ByteCount
            Call GlobalUnlock(hMem)
            If CreateStreamOnHGlobal(hMem, 1, istm) = 0 Then
                If CLSIDFromString(StrPtr("{7BF80980-BF32-101A-8BBB-00AA00300CAB}"), IID_IPicture(0)) = 0 Then
                  Call OleLoadPicture(ByVal ObjPtr(istm), ByteCount, 0, IID_IPicture(0), PictureFromByteStream)
                End If
            End If
        End If
    End If
    Exit Function
Err_Init:
    If Err.Number = 9 Then
        'Uninitialized array
        MsgBox "You must pass a non-empty byte array to this function!"
    Else
        MsgBox Err.Number & " - " & Err.Description
    End If
End Function'窗体中：
Option ExplicitPrivate Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Private Type BITMAP
       bmType As Long
        bmWidth As Long
        bmHeight As Long
        bmWidthBytes As Long
       bmPlanes As Integer
        bmBitsPixel As Integer
        bmBits As Long
End Type
Private Sub Form_Load()
    Dim b() As Byte, pic As StdPicture, DrawDirectlyOnForm As Boolean
    AutoRedraw = True
   DrawDirectlyOnForm = False
    'Load a picture into the byte array
    b = LoadFile(App.Path & "\full color.jpg")
    'Create a StdPicture object (bitmap object) from the bytestream
   Set pic = PictureFromByteStream(b)
   If pic Is Nothing Then
       MsgBox "Unable to load bitmap! Check filename"
        Exit Sub
    End If
    'Now, there are two ways to display the picture. You can either:
   If DrawDirectlyOnForm = True Then
        'Assign it directly to the picture property of the form
        Set Me.Picture = pic
    Else
        'Or select it into a DC and do other manipulations to it
        DoItTheHardWay pic
    End If
    'Destroy it when you're done.
   Set pic = Nothing
End Sub
Private Sub DoItTheHardWay(ByRef pic As StdPicture)
    Dim TempDC As Long, hBmp As Long, w As Long, h As Long, bmpInfo As BITMAP
    'Determine the width and height of the bitmap
   GetObject pic.Handle, Len(bmpInfo), bmpInfo
    w = bmpInfo.bmWidth
    h = bmpInfo.bmHeight
    'Create a DC compatible with the bitmap
    TempDC = CreateCompatibleDC(0)
    'Select the bitmap into it
   hBmp = SelectObject(TempDC, pic.Handle)
    'Blit it to the form
   BitBlt Me.hdc, 0, 0, w, h, TempDC, 0, 0, vbSrcCopy
    'Clean up
   hBmp = SelectObject(TempDC, hBmp)
    DeleteDC TempDC
End Sub

Answer 5

put #1,,aPic()'收到的图片数组
Close #1
set image1.pictrue=loadpictrue(filename)
Socket控件传送时，要用字节数组!

Answer 6

呵呵，高级的应用都得靠 WIN32。