ЗАГРУЗКА FTP на AS / 400 из VB.NET - PullRequest
0 голосов
/ 23 ноября 2010

Я пытаюсь выполнить функцию FTP Put для мейнфрейма IBM AS / 400 с VB.NET. Я могу загрузить файл, однако, мне нужно иметь возможность получать каждый выходной ответ от мэйнфрейма для целей ведения журнала. Вкратце запишите, что выводится на экран cmd, если я должен был выполнить FTP вручную. Любые предложения будут с благодарностью.

1 Ответ

0 голосов
/ 23 ноября 2010

В зависимости от используемой вами библиотеки, вы должны иметь возможность получать какой-либо объект ответа или строку с FTP-сервера для каждой команды, которую вы отправляете. Затем вы можете проанализировать эти ответы и отправить их в файл / место назначения / источник по вашему выбору.

РЕДАКТИРОВАТЬ: Поскольку вы используете библиотеку FTPWebRequest / Response, вам нужно, чтобы ваш объект FTPWebRequest сбрасывал свои результаты в объект FTPWebResponse, а затем читал весь поток с кодом, похожим на этот:

Dim request As FtpWebRequest = DirectCast(WebRequest.Create(serverUri), FtpWebRequest)
request.Method = WebRequestMethods.Ftp.ListDirectory

Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)

Dim responseStream As Stream = Nothing
Dim readStream As StreamReader = Nothing

Try
    responseStream = response.GetResponseStream()
    readStream = New StreamReader(responseStream, System.Text.Encoding.UTF8)

    If readStream IsNot Nothing Then
        Console.WriteLine(readStream.ReadToEnd())
    End If

    Console.WriteLine("List status: " & response.StatusDescription)

Finally

    If readStream IsNot Nothing Then
        readStream.Close()
    End If

    If response IsNot Nothing Then
       response.Close()
    End If
End Try

    Return True
End Function

Вы должны иметь возможность адаптировать этот код к своему, чтобы получить детали ответа, которые вам нужны.

...