Newbie braucht hilfe :-(

  • VB6

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von 0grish.

    Newbie braucht hilfe :-(

    Hallo ich habe ein Problem...
    Ich habe ein WebCam capture erschtellt und möchte meine frisch geschossenen Bilder auf einen FTP hochladen mit vb6.

    Mein Code, beim klicken von CmdFotos_Click()

    Visual Basic-Quellcode

    1. Private Sub CmdFotos_Click()
    3. Static Contador
    4. Dim sFile As String * 250
    5. Dim lSize As Long
    7. lSize = 1000000
    8. sFile = App.Path & "\" & Contador & Format(Now, "hhmmss") & ".dib" '// Hier wird das Bild abgepseichert
    9. Call SendMessageS(lwndC, WM_CAP_FILE_SAVEDIB, 0, sFile)
    11. Contador = Contador + 1
    15. Dim iresult As Long ' no controlo si esta en c:\
    16. If Dir(App.Path & "\camara.wav") <> "" Then
    17. iresult = mciExecute("Play " & App.Path & "\camara.wav") '// Dieser Ton erklingt nach einem Fotoschuss
    18. End If
    19. End Sub


    Meine frage würde das gehen?

    Habe hier enfach mal was gemacht:

    Visual Basic-Quellcode

    1. Private Sub CmdFotos_Click()
    3. Static Contador
    4. Dim Bild As String
    5. Dim sFile As String * 250
    6. Dim lSize As Long
    8. lSize = 1000000
    9. sFile = App.Path & "\" & Contador & Format(Now, "hhmmss") & ".dib"
    10. Call SendMessageS(lwndC, WM_CAP_FILE_SAVEDIB, 0, sFile)
    12. Contador = Contador + 1
    16. Dim iresult As Long ' no controlo si esta en c:\
    17. If Dir(App.Path & "\camara.wav") <> "" Then
    18. iresult = mciExecute("Play " & App.Path & "\camara.wav")
    19. End If
    23. With WebBrowser1
    24. .AccessType = icUseDefault
    25. .Protocol = icFTP
    27. .RemotePort = "21"
    28. .URL = "HOST"
    29. .UserName = "ACC"
    30. .Password = "PW"
    32. Bild = App.Path & "\" & Contador & Format(Now, "hhmmss") & ".dib"
    34. .Execute , "PUT " & Bild
    35. End With
    36. End Sub


    Bitte um hilfe :) (Bin ein anfänger)


    Gruss 0grish :P

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „0grish“ () aus folgendem Grund: Niemand antwortete :P

    So habmal einbisschen aufgeffrischt:


    Visual Basic-Quellcode

    1. Private Sub CmdFotos_Click()
    2. Dim sFile As String * 250
    3. Dim sLocalFile As String
    4. Dim sRemoteFile As String
    6. sFile = App.Path & "\" & "Picture" & ".png"
    7. Call SendMessageS(lwndC, WM_CAP_FILE_SAVEDIB, 0, sFile)
    9. With Inet1
    10. .AccessType = icUseDefault
    11. .Protocol = icFTP
    12. .RemotePort = 21
    13. .URL = "MEIN-Host.de"
    14. .UserName = "MEIN-User"
    15. .Password = "MEIN-Password"
    16. sLocalFile = App.Path & "\Picture.png"
    17. sRemoteFile = "/upload/ftp/ " & TIMEFormat(Now(), "hhmmss") & ".png"
    18. .Execute , "PUT " & sLocalFile & " " & sRemoteFile
    20. End Sub


    Problem:

    Visual Basic-Quellcode

    1. With Inet1
    = Habe kein Microsoft Internet Transfer Control also wininet.dll kann ich nicht auf meinen VB6 Portabel Browsen

Facebook
Telefonspende