---
title: "Winsock SendData"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/118709-winsock-senddata"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "xcalibrate"
published: "2004-12-26T16:22:49.000Z"
updated: "2004-12-26T16:22:49.000Z"
replies: 0
views: 226
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/118709-winsock-senddata"
---

# Winsock SendData

## #1 — xcalibrate, 2004-12-26T16:22Z

Hej, jag har en private sub som heter SkickaBild som ligger i dataarrival på min winsock. Detta är VB.NET.
Problemet är att det inte går att skicka data i och efter SkickaBild(). Och jag klurar inte ut varför (har testat med invoke och delegate) men datan skickas inte. All data kan dock skickas via en knapp!

Urdrag ur dataarrival:
                    Select Case strTemp(1)
                        Case "req"
                            Dim fInfo As New IO.FileInfo("send.jpg")
                            If fInfo.Exists = True Then Microsoft.VisualBasic.FileSystem.Kill("send.jpg")
                            SkickaBild()
                            Winsock1.SendData("pic\|rdy") 'FUNKAR INTE, DATAN SKICKAS INTE

SkickaBild:
    Public Sub SkickaBild()
        Dim i As Integer

        Dim ReadNum As Integer
        Dim ReadData(2047) As Byte
        Dim ReadLength As Long

        ReadNum = 2

        PictureBox1.Image = Nothing : CaptureScreen() : PictureBox1.Image = oBackground : PictureBox1.Image.Save("send.jpg")
        FileOpen(ReadNum, "send.jpg", OpenMode.Binary)
        ReadLength = LOF(ReadNum)

        For i = 1 To CInt(ReadLength) \\ 2048
            FileGet(ReadNum, ReadData)
            'FileGet(ReadNum, DirectCast(ReadData, Array))
            Winsock1.SendData(ReadData)
        Next

        If ReadLength Mod 2048 \<\> 0 Then
            Dim ReadData2((CInt(ReadLength) Mod 2048) - 1) As Byte

            FileGet(ReadNum, ReadData2)
            'FileGet(ReadNum, DirectCast(ReadData2, Array))
            Winsock1.SendData(ReadData2)
            Winsock1.SendData(Encoding.ASCII.GetBytes("hejsanpadig") 'FUNKAR INTE, DATAN SKICKAS INTE
        End If

        FileClose(ReadNum)
    End Sub

Permalänk: https://www.webforum.nu/p/118709

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/118709-winsock-senddata