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()
Meine frage würde das gehen?
Habe hier enfach mal was gemacht:
Bitte um hilfe (Bin ein anfänger)
Gruss 0grish
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
- Private Sub CmdFotos_Click()
- Static Contador
- Dim sFile As String * 250
- Dim lSize As Long
- lSize = 1000000
- sFile = App.Path & "\" & Contador & Format(Now, "hhmmss") & ".dib" '// Hier wird das Bild abgepseichert
- Call SendMessageS(lwndC, WM_CAP_FILE_SAVEDIB, 0, sFile)
- Contador = Contador + 1
- Dim iresult As Long ' no controlo si esta en c:\
- If Dir(App.Path & "\camara.wav") <> "" Then
- iresult = mciExecute("Play " & App.Path & "\camara.wav") '// Dieser Ton erklingt nach einem Fotoschuss
- End If
- End Sub
Meine frage würde das gehen?
Habe hier enfach mal was gemacht:
Visual Basic-Quellcode
- Private Sub CmdFotos_Click()
- Static Contador
- Dim Bild As String
- Dim sFile As String * 250
- Dim lSize As Long
- lSize = 1000000
- sFile = App.Path & "\" & Contador & Format(Now, "hhmmss") & ".dib"
- Call SendMessageS(lwndC, WM_CAP_FILE_SAVEDIB, 0, sFile)
- Contador = Contador + 1
- Dim iresult As Long ' no controlo si esta en c:\
- If Dir(App.Path & "\camara.wav") <> "" Then
- iresult = mciExecute("Play " & App.Path & "\camara.wav")
- End If
- With WebBrowser1
- .AccessType = icUseDefault
- .Protocol = icFTP
- .RemotePort = "21"
- .URL = "HOST"
- .UserName = "ACC"
- .Password = "PW"
- Bild = App.Path & "\" & Contador & Format(Now, "hhmmss") & ".dib"
- .Execute , "PUT " & Bild
- End With
- End Sub
Bitte um hilfe (Bin ein anfänger)
Gruss 0grish
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „0grish“ () aus folgendem Grund: Niemand antwortete :P