Jak obsługiwać inputa typu FILE?

[eXu]

Witam,

W ramach edukacji bawię się w visual basicu. Automatyzuje sobie moje codzienne czynności

Mam mały problem. Mianowicie tak:

Mam input, kod wygląda tak:

Kod:

<input type="file" multiple id="myfiles">

 

i chcę tutaj ustawić moje zdjęcie które znajduje się na dysku

D:\Zdj\ja.jpg

 

niestety nie mam pojęcia jak się za to wziąć ;/ 

Mogły mnie ktoś nakierować jak to zrobić?

[theoo]

Albo nie rozumiem o co chodzi albo nie robisz tego w VisualBasic.

 

1. Robisz to w VB6 czy te nowsze?

2. Chcesz osiągną jaki efekt? Co dokładnie chcesz zrobić bo samo napisanie" mam input i wygląda tak:" nie naprowadziło mnie na to co chcesz zrobić.

[Sopelek997]

1. Robisz to w VB6 czy te nowsze?

 

On to robi w HTML z tego co widzę

[theoo]

@Sopelek997

No właśnie też widzę ale napisał, że bawi się w VB więc tak sobie pomyślałem skąd on takie kody tam bierze, VB 2010 już chyba we wszystkie strony poznałem i mi nie pasowało to do reszty

 

W każdym bądź razie @topic podaj co robisz i co chcesz osiągnąć bo pisanie o Visual Basic'u i wklepywanie do niego znaczników z html nie pasuje

[eXu]

Albo nie rozumiem o co chodzi albo nie robisz tego w VisualBasic.

 

1. Robisz to w VB6 czy te nowsze?

2. Chcesz osiągną jaki efekt? Co dokładnie chcesz zrobić bo samo napisanie" mam input i wygląda tak:" nie naprowadziło mnie na to co chcesz zrobić.

 

 

On to robi w HTML z tego co widzę

 

 

@Sopelek997

No właśnie też widzę ale napisał, że bawi się w VB więc tak sobie pomyślałem skąd on takie kody tam bierze, VB 2010 już chyba we wszystkie strony poznałem i mi nie pasowało to do reszty

 

W każdym bądź razie @topic podaj co robisz i co chcesz osiągnąć bo pisanie o Visual Basic'u i wklepywanie do niego znaczników z html nie pasuje

 

Już panowie wam tłumaczę.

Mam aplikację w VB(2010), która loguje się na stronę xxx.

Oczywiście wszystko jest na zasadzie WebBrowser1.Document.GetElementByid itd

Po zalogowaniu muszę wrzucić obrazek i wysłać go na serwer

 

muszę jakoś symulować wybranie pliku, lecz nie wiem jak ;/

I ten kod co wam podałem to znajduje się na xxx stronie

[theoo]

To jest Twoja strona czy kogoś innego ?

Bo jeżeli Twoja to mam rozwiązanie a jeżeli kogoś tam, to zaraz znajdę rozwiązanie

 

Jeżeli Twoja to:

Daj na stronie aby obrazek był ładowany z katalogu ../obrazek/NICK_LOGOWANIA.jpg

Jeżeli takowy nie istnieje to niech nic nie wstawia. A wysyłanie obrazka zrób tak:

Dodaj:

OpenFileDialog

TextBox

2x Button

 

Jeden button będzie służył do wybierania pliku a a drugi do wysyłania na serwer.

 

Parametry, które musisz zmienić w OpenFileDialog:

Filtr daj taki:

JPG Files|*.jpg

 

Parametry TextBoxa:

ReadOnly daj na True

 

Do kodu buttona służącego do przeglądania dodaj:

If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            TextBox1.Text = OpenFileDialog1.FileName
End If

Kod buttona wysyłającego na serwer (ja zastosowałem metodę przez FTP:

nick pobierany jest z WebBrowsera pod warunkiem, że nick zalogowanej osoby ma id == login

Dim txtlogin As String = WebBrowser1.Document.GetElementById(login)
UploadFile(TextBox1.Text, "ftp://ADRES_STRONY.pl/FOLDER/" & txtlogin & ".jpg", "LOGIN_FTP", "HASŁO_FTP")

Kod do funkcji UploadFile:

Public Sub UploadFile(ByVal _FileName As String, ByVal _UploadPath As String, ByVal _FTPUser As String, ByVal _FTPPass As String)
        Dim _FileInfo As New System.IO.FileInfo(_FileName)
        Dim _FtpWebRequest As System.Net.FtpWebRequest = CType(System.Net.FtpWebRequest.Create(New Uri(_UploadPath)), System.Net.FtpWebRequest)
        _FtpWebRequest.Credentials = New System.Net.NetworkCredential(_FTPUser, _FTPPass)
        _FtpWebRequest.KeepAlive = False
        _FtpWebRequest.Timeout = 20000
        _FtpWebRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
        _FtpWebRequest.UseBinary = True
        _FtpWebRequest.ContentLength = _FileInfo.Length
        Dim buffLength As Integer = 2048
        Dim buff(buffLength - 1) As Byte
        Dim _FileStream As System.IO.FileStream = _FileInfo.OpenRead()

        Try
            Dim _Stream As System.IO.Stream = _FtpWebRequest.GetRequestStream()
            Dim contentLen As Integer = _FileStream.Read(buff, 0, buffLength)
            Do While contentLen <> 0
                _Stream.Write(buff, 0, contentLen)
                contentLen = _FileStream.Read(buff, 0, buffLength)
            Loop
            _Stream.Close()
            _Stream.Dispose()
            _FileStream.Close()
            _FileStream.Dispose()
            MsgBox("Przesłano zdjęcie!")
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Upload Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub 

Kod chyba opierałem na informacjach z MSDN ale nie pamiętam bo mam na kompie.

Poza tym nie wiem, może w czymś się komuś przyda

[Gość]

http://msdn.microsoft.com/en-us/library/w3kksch7.aspx

[eXu]

dzięki! zacznę coś działać i zobaczymy jak to wyjdzie

[Gość]

HttpWebRequest i tyle.

[theoo]

@Miszczu.

no właśnie nie, sprawa nie wygląda dokładnie tak jak to kolega opisał, ale na PW chyba mu już pomogłem.