Очень простой вопрос , Аплоад файлов

[Zaratustra]

Товарищи, подскажите как на Вб это можно реализовать? Требуется просто загрузка файла на некоторый сервак. Я понимаю что вопрос простой, по крайней мере мне так говорят, но никто не расскажет как это делается. Был бы очень признателен тем кто продемонстрирует ответ на вопрос на исходниках.

Заранее благодарен!

[Vasya2000]

Сервак серваку - рознь.

[Zaratustra]

Я вот нашел небольшой исходничек. Он делает все что мне нужно. Одна проблема, а как написать скрипт для приема этого файла на стороне сервера? И такое бывает....
Хочу протестить прогу на апаче. У меня на нем стоит Перл и ПХП, так что если кто знает как такой скрипт написать на этих языках, буду очень благодарен.
Прогу выкладываю:

Dim WinHttpReq As WinHttp.WinHttpRequest
Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0
Const HTTPREQUEST_SETCREDENTIALS_FOR_PROXY = 1
 
Private Sub Command1_Click()
    
    ' Disable the Apply Command
    Command1.Enabled = False
    
    Dim strURL As String
    Dim strUserName As String
    Dim strPassword As String
    Dim strFile As String
    Dim StrFileName As String
    Dim strBody As String
    Dim aPostBody() As Byte
    Dim nFile As Integer
            
    strURL = Text1.Text
    strUserName = Text2.Text
    strPassword = Text3.Text
    
    ' Turn error trapping on
    On Error GoTo SaveErrHandler
 
    ' Get the file name
    CommonDialog1.CancelError = True
    CommonDialog1.Flags = cdlOFNOverwritePrompt + cdlOFNPathMustExit
    CommonDialog1.Filter = "Binary Files (*.bin)|*.bin|JPG Files (*.jpg)|*.jpg" & _
        "|GIF Files (*.gif)|*.gif|All Files (*.*)|*.*"
    CommonDialog1.ShowOpen
    
    StrFileName = CommonDialog1.FileName
 
    ' Grap the file
    nFile = FreeFile
    Open StrFileName For Binary As #nFile
    strFile = String(LOF(nFile), " ")
    Get #nFile, , strFile
    Close #nFile
 
    ' Assemble an HTTP request.
    WinHttpReq.Open "POST", strURL, False
        
    If Check1.Value Then
        ' Set the user name and password.
        WinHttpReq.SetCredentials strUserName, strPassword, _
        HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
    End If
        
    ' Set the header
    WinHttpReq.SetRequestHeader "Content-Type", "multipart/form-data; boundary=Xu02=$"
      
    ' Assemble the body
    strBody = "--Xu02=$" & vbCrLf & _
    "Content-Disposition: form-data; name=files; filename=" & vbCrLf & _
    "Content-type: file" & vbCrLf & vbCrLf & _
    strFile & vbCrLf & _
    "--Xu02=$--"
    
    ' Because of binary zeros, post body has to convert to byte array
    aPostBody = StrConv(strBody, vbFromUnicode)
    
    ' Send the HTTP Request.
    WinHttpReq.Send aPostBody
    
    ' Display the status code and response headers.
    Text4.Text = WinHttpReq.GetAllResponseHeaders & "  " & WinHttpReq.ResponseText
SaveErrHandler:
    blnCancelSave = True
    
    ' Re-enable the Apply Command
    Command1.Enabled = True
    
End Sub
 
 
Private Sub Form_Load()
    'Create an instance of the WinHttpRequest object.
    Set WinHttpReq = New WinHttpRequest
End Sub

Он использует winhttp.dll.

[Lamerroot]

А на какой сервак то? На Веб-сервер?

[Vasya2000]

Ну если перл и пхп, то наверное веб

[Lamerroot]

Ну вообще, тут по этому делу совсем другой раздел есть.
Ну там всё просто, файл у тя будет в отдельном поле, т.е. в отдельной переменной. В другом поле будет название. Открываешь файл и записываешь туда содержием переменной.
Смотри в хелпе по ПХП использование ф-ии fopen.

[Vasya2000]

M

Тема перенесена из Visual Basic -> Visual Basic. Общие вопросы.

[SergeS]

Zaratustra,
http://www.php.net/manual/ru/features.file...oad.post-method
ето на PHP + поищи по етому разделу