Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

[vb] ftp-progje gaat hangen

pkouwer
3 antwoorden
  • Ik loop tegen het volgende probleem op:
    - er loopt een proces (A) welke telkens een aantal plaatjes in een map plaatst.
    - er loopt een tweede proces (B) welke telkens via ftp op de server kijk wat hij moet doen. Vervolgens stuurt hij het gevraagde plaatje naar de server. Enz. enz

    Hieronder staat de code van proces (B). Na een aantal malen gaat het progje hangen in de response-tak (put-statement).
    Kan mij iemand een hint geven hoe dit hangen te voorkomen????


    [code:1:945afd6732]Dim FileSystemObject As Object

    Private Sub Command1_Click()
    Dim t

    t = 0
    While t < 300
    RequestFTP
    ResponseFTP
    t = t + 1
    Wend
    netFTP.Execute , "QUIT"
    End Sub

    Private Sub Form_Load()
    Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
    netFTP.RemoteHost = "12.34.56.78"
    netFTP.RemotePort = 21
    netFTP.UserName = "test"
    netFTP.Password = "test"
    End Sub

    Private Sub RequestFTP()
    Dim lus
    If FileSystemObject.FileExists("c:\plaatje.exp") = True Then
    FileSystemObject.DeleteFile "c:\plaatje.exp", True
    End If
    netFTP.Execute , "GET plaatje.exp c:\plaatje.exp"
    While netFTP.StillExecuting
    DoEvents
    Wend
    End Sub

    Private Sub ResponseFTP()
    netFTP.Execute , "PUT :\windows\desktop\vb\capture\plaatje_1.jpg"
    While netFTP.StillExecuting
    DoEvents
    Wend
    End Sub[/code:1:945afd6732]

    verder:
    er wordt gebruikgemaakt van WarFtp
    size plaatje ca. 30Kbytes
    size exp ca 10 bytes
  • als het goed is moet er een variabele zijn die aangeeft wat de status is van het netFTP object. Receiving, connecting,sending, etc

    Als hij in de lus blijft, wat is dan de status van een dergelijke variabele. Ik weet niet hoe hij in jou geval heet, maar weet haast zeker dat er zoiets voor dat object bestaat.

    suc6
  • ja gevonden bij microsoft. het event StateChanged geeft een soort van status weer. ik had StillExecuting gebruikt, ook dit is een soort van status.

    ik pruts nog ff verder om te kijken of de handel nu stabiel is. vooralsnog bedankt voor de tip.

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.