Kan ikke skrive til form fra thread

Kig her: http://msdn.microsoft.com/en-us/magazine/cc300429.aspx
Eller vis os din kode, gerne for et lille testprogram.

Hej,
Her er min kode:
[code]
Public Class FileUpload

    Private Const BOUNDARY As String = "MichaelMichael"
    Delegate Sub SetTextCallback()
    'Public Shared Sub Main(ByVal args As String())
    '    upload("http://localhost/upload.php", "C:\z.zip")
    ' End Sub
    Public Shared Sub upload()
        Dim url As String = "http://fakeachievement.com/upload.pl"
        Dim binfile As String = "C:\test.txt"
        Dim Myfilesize As Integer = FileHand.GetFileSize(binfile)
        Dim myprogress As Integer = 0
        Dim MyFileLink As String = ""
        Console.WriteLine("Uploading: " + Path.GetFileName(binfile))
        Dim req As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
        req.Method = "POST"
        req.ContentType = "multipart/form-data, boundary=" & BOUNDARY
        Dim post As New StreamWriter(req.GetRequestStream())
        post.WriteLine("--" & BOUNDARY)
        post.WriteLine("Content-disposition: form-data; name=""filename""; filename=""" & Path.GetFileName(binfile) & """")
        post.WriteLine("Content-type: application/octet-stream")
        post.WriteLine("Content-Length: " & (New FileInfo(binfile)).Length)
        post.WriteLine("Content-Transfer-Encoding: binary")
        post.WriteLine("")
        post.Flush()
        Dim binf As New FileStream(binfile, FileMode.Open)

        Dim b(10000) As Byte
        Dim n As Integer
        Dim sofar As Integer = 0
        n = binf.Read(b, 0, b.Length)
        Console.WriteLine("File size: " & Myfilesize / 1024 / 1024 & " megabytes")
        While n > 0
            post.BaseStream.Write(b, 0, n)
            sofar += n
            'Console.WriteLine(sofar & " - " & Myfilesize)
            myprogress = ((sofar / Myfilesize) * 100)
            'Console.WriteLine(myprogress)
            n = binf.Read(b, 0, b.Length)
        End While

        binf.Close()
        post.BaseStream.Flush()
        post.WriteLine()
        post.WriteLine("--" & BOUNDARY & "--")
        post.Close()
        Dim resp As HttpWebResponse = DirectCast(req.GetResponse(), HttpWebResponse)
        Dim sr As StreamReader = New StreamReader(resp.GetResponseStream())
        Dim fullresp As String = sr.ReadToEnd()
        MyFileLink = Trim(Replace(fullresp, Right(fullresp, 20), ""))
        Console.WriteLine(MyFileLink)
######HER VIL JEG GERNE SKRIVE TIL FORMEN#######
        Form1.lblLink.Text = MyFileLink
        sr.Close()
        Console.WriteLine("Response was: " & resp.StatusCode & " - " & resp.StatusDescription)
        If resp.StatusDescription = "OK" Then Console.WriteLine("Success!")
        resp.Close()
        Console.Read()
        Form1.myUploadProgress.Value = 0
    End Sub
End Class
[/code]

Så skal du kigge på eksemplerne i linket - delegates er svaret på alle dine problemer ;)

Jeg har forsøgt mig med delegate, men uden held.
Er der nogen mulighed for at du kan vise mig et eksempel i vb.net? :)

Jeg har ikke noget liggende, som jeg kan finde ... og sidder ikke ved en Windows maskine. Men der er sikkert eksempler på nettet.

Det må skulle være noget a la:

    Sub SetText(ByVal s As String)
        Form1.lblLink.Text = s
    End Sub
    Delegate Sub SetTextCallback(ByVal s As String)
    Public Shared Sub upload()
        ...
        Form1.lblLink.Invoke(New SetTextCallback(AddressOf SetText), New Object() { MyFileLink })
        ...
    End Sub

Hvis jeg skriver det du har foreslået, får jeg følgende fejl:

Invoke or BeginInvoke cannot be called on a control until the window handle has been created.

Er formen synlig når det kald sker ??

Jep :)

Og det form objekt du kalder på er det samme form objekt som det der er synligt ??

Jeg gør på intet tidspunkt noget usynligt, så ja det bør det :)

Det er altså ikke tilstrækkeligt.

            Dim mf As New MainForm
            mf.ShowDialog()

gør mf synlig, men hvis du et andet sted i koden laver:

Dim mf2 As New MainForm

saa har du en ikke synlig instans af MainForm

Ok. De eneste kald jeg laver, der har noget med selve formen at gøre, er:
Private Sub drgEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        End If
    End Sub
    Private Sub drgDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop
        Dim filePaths As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
        Dim numDroppedFiles As Integer = 0
        'Dim filename As String = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString()
        For Each filePath As String In filePaths

            Me.lstFiles.Items.Add(filePath)
            numDroppedFiles += 1
        Next filePath
        lblNumDroppedFiles.Text = numDroppedFiles

    End Sub

Hvor kommer Form1 fra i dit Invoke kald ?

Public Class FileUpload
  Public shared sub upload()
  Form1.lblLink.Invoke(New SetTextCallback(AddressOf SetText), New Object() {MyFileLink})
  end sub
end class

Det bliver kaldt der fra. Formen har sin egen class, form1

Men Form1 er en instans af en klasse ikke ?

Hvor bliver den instantieret ?

Jeg er ikke helt sikker på hvad du mener - skal jeg gøre noget i stil med:

Dim mf As New MainForm
            mf.ShowDialog()

Først?

Sorry jeg ikke er helt med, men jeg kender ikke alle de rigtige termer.. :)

Absolut ikke.

Men hvor kommer Form1 fra ?

Er ikke helt sikker på hvad du mener - den var der da jeg startede projektet :)

Kan du vise den kode hvor Form1 og lblLink defineres og initialiseres ?

Kan man overhovedet det i VB?
Jeg tror det bliver styret i det indbyggede 'designer mode'..?

Du kan godt finde den kode der bliver genereret i designer mode.

Kommet videre?

Hej arne,

Du må meget undskylde jeg pludselig stoppede med at svare, men jeg har været uden internet i et stykke tid nu! De er ikke så hurtige til at ordne folks internet her oppe i Sverige.. :(

Men ja, jeg fandt faktisk løsningen i en frokost pause, på arbejdet!
Poster senere, når jeg har adgang til koden.

Mange tak for din hjælp, det er vildt du har tid og overskud til at hjælpe så mange her inde :)
Og jeg vil endnu en gang undskylde, at jeg pludselig stoppede med at svare!