有什么方法可以测试远程FTP服务器连接是否可用？高分求解！！！谢谢各位大虾！！！！-CSDN论坛

有什么方法可以测试远程FTP服务器连接是否可用？高分求解！！！谢谢各位大虾！！！！

VB > 网络编程

收藏回复

[问题点数：100分，结帖人qnn8299]

⋅高分请教Inet控件问题！在线等待！ ⋅为什么重装sybase,无法覆盖原有组件? ⋅高分求助：如何用treeview和listiew两个控件实现windows资源管理器的功能？？——高手都来看看啊 更多帖子 关注私信空间博客 qnn8299 等级 本版专家分：0 结帖率 100%: 问题描述：
    需要做一个配置ftp服务器的程序，配置的内容包括：IP，用户名，密码，端口号。在保存配置前，需要对所填的配置信息进行测试，以确定所填用户名及密码是否可以成功连上ＦＴＰ服务器。
该功能如何实现？

－－－－－－
我所做的尝试：
　　利用inet控件，设置其URL，User，Passwd 及端口属性
    然后用OpenURL的方法：call inet1.OpenURL (.URL)
    再通过判断state的返回值，以确定是否成功。返回值为1，表示成功。
但是，不管我输的用户名或密码对不对，state的返回值都是1，晕，郁闷哦！！！！！
各位大虾帮帮小弟吧，有何高见，敬请赐教！

2006-09-19 11:13:43

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅vb.net中操作Listview 请问获取某一行某一列的值 ⋅请问VB.net怎样读取全部子目录和孙目录 ⋅一个比较难的问题 更多帖子 关注私信空间博客 wangjunnjim 等级 本版专家分：16: 顶，我现在也正在向这个问题，求高手帮忙

2006-09-19 13:05:27

点赞只看TA 引用举报 #1得分 0

⋅急求SQL ⋅急求SQL ⋅急求SQL 更多帖子 关注私信空间博客 fyming 等级 本版专家分：2922: Private Sub Inet1_StateChanged(ByVal State As Integer)

    Select Case State
        Case 4
              MsgBox "ok"
        Case 12
        Case Else
    End Select
End Sub

2006-09-19 13:56:54

点赞只看TA 引用举报 #2得分 0

⋅vb.net中操作Listview 请问获取某一行某一列的值 ⋅请问VB.net怎样读取全部子目录和孙目录 ⋅一个比较难的问题 更多帖子 关注私信空间博客 wangjunnjim 等级 本版专家分：16: 能不能详细一点

2006-09-19 13:59:53

点赞只看TA 引用举报 #3得分 0

⋅急求SQL ⋅急求SQL ⋅急求SQL 更多帖子 关注私信空间博客 fyming 等级 本版专家分：2922: Option Explicit
Dim strOper As String

Private Sub Command1_Click()
    On Error GoTo ConError
    Command1.Enabled = False

    With Inet1
        .URL = txFTP(0).Text
        .Protocol = icFTP
        .UserName = txFTP(2).Text
        .Password = txFTP(3).Text
    End With

    strOper = "Dir"
    Inet1.Execute , strOper
    Exit Sub

ConError:
    MsgBox "无法与" & txFTP(0).Text & " 网站取得连接! "
End Sub

Private Sub Command2_Click()
    strOper = "GetFile"
    Inet1.Execute , "Get " & txFTP(1).Text & " " & App.Path & "\" & txFTP(1).Text
End Sub

Private Sub Command3_Click()
    Inet1.Execute , "Quit"
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
    Select Case State
        Case 4
            Command2.Enabled = True
            Command3.Enabled = True
            txFTP(0).Enabled = False
            txFTP(1).Enabled = True
            txFTP(2).Enabled = False
            txFTP(3).Enabled = False
        Case 11
            If InStr(Inet1.ResponseInfo, "No such file") > 0 Or _
                InStr(Inet1.ResponseInfo, "No such file or directory") Then
                MsgBox "符合的文件下载!"
            Else
                MsgBox Inet1.ResponseInfo
            End If
        Case 10
            Command1.Enabled = True
            Command2.Enabled = False
            Command3.Enabled = False
            txFTP(0).Enabled = True
            txFTP(1).Enabled = False
            txFTP(2).Enabled = True
            txFTP(3).Enabled = True
        Case 12
            If LCase(strOper) = "dir" Then
                InetGetDir
                MsgBox "已经与主机连接 !"
            Else
                MsgBox "文件下载成功!"
            End If
    End Select
    Debug.Print 状态常数:" & State & "信息内容:" & Inet1.ResponseInfo
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Inet1.Cancel
End Sub

Private Sub InetGetDir()
    'vtData 的数量类型为 Variant
    Dim vtData
         '将接收的文件以二进制的方式打开文件输出
        Open App.Path & "\" & txFTP(1).Text & ".txt" For Binary Access Write As #1

       vtData = Inet1.GetChunk(1024, icString)
        Do While LenB(vtData) > 0
            Put #1, , vtData
            vtData = Inet1.GetChunk(1024, icString)
        Loop
        Put #1, , vtData
        Close #1
End Sub
------------------------------------------
说明：
cmd1:与FTP主机连接
cmd2:开始下载
cmd3:终止连接

2006-09-19 14:27:02

点赞只看TA 引用举报 #4得分 80

⋅作别，散分 ⋅未来2年黄金市场预测以及炒金必备基础知识，好机会啊兄弟姐妹们，钱会贬值，黄金保值！！！ ⋅HOTMAIL好象登不上 更多帖子 关注私信空间博客 province_ 等级 本版专家分：11835: 扫描一下对方端口（缺省：21）开了没有。（其实就是尝试连接一下该端口，成功说明FTP服务开了）

2006-09-19 14:53:14

点赞只看TA 引用举报 #5得分 0

⋅求个简单的正则>D10000000 ⋅类似淘宝我的订单页面该如何设计处理呢？ ⋅C#发邮件到outlook 更多帖子 关注私信空间博客 吾非大神 等级 本版专家分：1366: 学习

2006-09-19 15:20:55

点赞只看TA 引用举报 #6得分 0

⋅百度知道，你可知道？！ ⋅好久木来了，散分！！！ ⋅关于Vista系统下运行VB6的问题。 更多帖子 关注私信空间博客 happy_sea 等级 本版专家分：28024 勋章 红花 2006年10月 VB大版内专家分月排行榜第一 2006年9月 VB大版内专家分月排行榜第一 2006年8月 VB大版内专家分月排行榜第一 黄花 2006年11月 VB大版内专家分月排行榜第二 蓝花 2008年8月 VB大版内专家分月排行榜第三 2008年7月 VB大版内专家分月排行榜第三: 楼主可以用下面的代码试验一下：
Private Sub Inet1_StateChanged(ByVal State As Integer)
debug.print state
end sub
可以看到state的变化过程，而不是像楼主说的那样是一个值。

2006-09-19 15:29:06

点赞只看TA 引用举报 #7得分 20

⋅如何使用input和lof函数完整读取文件(包含格式) ⋅我提的问题没人能解答，自己找到答案了，现在想要结帖，该怎么办？ ⋅如何在运行时用代码使datagrid中某一行高亮显示 更多帖子 关注私信空间博客 vinegar111 等级 本版专家分：284: 学习

2006-09-19 15:50:03

点赞只看TA 引用举报 #8得分 0

收起

收藏回复

qnn8299

等级：

关注私信 TA的帖子

QTableWidget控件总结: 1，设置QTableWidget滚动条宽度。 myTableWidget->verticalScrollBar()->setStyleSheet("QScrollBar:vertical { width: 100px; }"); QTableWidget详解（样式、右键菜单、表头塌陷、多选等） (2013-05-15...

关于QTableWidget使用setCellWidget嵌入控件错位的问题: 关于QTableWidget使用setCellWidget嵌入控件错位的问题一、发生现象 1.使用setCellWidget往QTableWidget界面插入数据 2. 使用滚动条翻页至最底部，在PushButton的槽处理函数中再使用setCellWidget往...

QT中结合实际例子谈谈QTableWidget中布局控件的方法: 每做一个控件，就会慢慢熟悉QT中的一个控件类，这次在用QTableWidget做一个标记点控件的时候，因为不熟悉有些东西花了大量的时间来查阅资料和学习，边学边做的确挺令人头疼的。下面是用QtableWidget布局控件的一些...

QTableWidget嵌入QpushButton后定位QpushButton: 有时候会遇到这样的情况，在QTableWidget中我们需要嵌入一个QpushButton按钮，但是如何确定是哪个Button按下的呢？解决：一般地，一个按钮按下后会连接到一槽函数，那么在槽函数中我们可以这样做： ...

QTableWidget设置网格线粗细单元格中添加控件并居中: 通过网上搜集资料整理,方便...tableWidget = new QTableWidget(3,2); //http://zhidao.baidu.com/link?url=GAP652gyVHuLThmigsYh1kVYMI-kAiaKPHayyZmd45DNUfqhOO8ULGgVE4QmYoTEqpHe4eyltfoyadvQA5TP8K tableWi

Qt TableWidget 控件及自定义委托: 上次和大家分享了TreeWidget的简单使用，本次和大家分享下TableWidget的简单应用以及项目视图中的自定义委托。以前上学的时候，经常要填写各种各样的统计信息，工作之后办理证件时也要填写各种各样的表格(电子的...

PyQt5 使用自定义ToolTip解决QTableWidget数据显示不全问题: 最近在使用PyQT5做一个项目，用到最多的控件是QTableWidget,使用很方便，但是也存在很多问题，比如下面这种：数据太长，使用QTableWidget默认的列宽分配会导致显示不全，数据以"XXX..."的形式呈现，很不利于用户...

Qt编写项目作品大全（自定义控件+输入法+大屏电子看板+视频监控+楼宇对讲+气体安全等）...: 一、自定义控件大全（一）、控件介绍超过150个精美控件，涵盖了各种仪表盘、进度条、进度球、指南针、曲线图、标尺、温度计、导航条、导航栏，flatui、高亮按钮、滑动选择器、农历等。远超qwt集成的控件数量。每...

Qt使用QListWidget结合QScrollBar实现图像动态无限加载: 量变都会引起质变，在Qt界面开发中无不体现着这个道理，特别是在界面上加载数据量巨大的图片的时候，会显得非常的力不从心，比如：我想加载100000张图片到列表中，每一个列表项是一个自定义控件，自定义控件中包含了...

QTableWidget(...view)自定义委托(combobox,spinbox,checkbox,dateTimeEdit): 在经典的 MVC 模型中，view用于向用户展示 model 的数据。但是，Qt提供的不是 MVC 三层架构，而是一个 model/view 设计。这种设计并没有包含一个完整而独立的组件用于管理用户的交互。在这种结构中，为了获得对用户...

Qt开发经验小技巧合集: 2：定时器是个好东西，学会好使用它，有时候用QTimer::singleShot可以解决意想不到的问题。 3：打开creator，在构建套件的环境中增加MAKEFLAGS=-j8，可以不用每次设置多线程编译。珍爱时间和生命。 4：如果你想顺...

PyQt5-信号与槽: 信号与槽我们之前案例中已涉及，信号（Signal）和槽（Slot）是Qt中的核心机制，也是PyQt变成中对象之间进行通信的机制；在Qt中，每一个QObject对象和PyQt中所有...PyQt中针对窗口类控件有很多内置的信号，也可以...

Qt开发经验小技巧71-80: 在我们使用QList、QStringList、QByteArray等链表或者数组的过程中，如果只需要取值，而不是赋值，强烈建议使用 at() 取值而不是 [] 操作符，在官方书籍《C++ GUI Qt 4编程（第二版）》的书中有特别的强调说明，此...

Qt开发经验小技巧81-90: Qt中的QColor对颜色封装的很完美，支持各种转换，比如rgb、hsb、cmy、hsl，对应的是toRgb、toHsv、toCmyk、toHsl，还支持透明度设置，颜色值还能转成16进制格式显示。 QColor color(255, 0, 0, 100); qDebug() <...

PyQt5详细教程：基于PyQt5 QTdesigner的PyQt编程（常用控件、线程编写、在pyqt内嵌Matplotlib）: 用QTdesigner的时候最好在制作完界面后对界面进行布局，当然你不使用布局也是可以运行的，但是在别的电脑，分辨率不同的情况下会导致软件显示出问题，并且无法根据界面拉伸来解决。如果你布局过，那么可以使用界面的...

转载Qt的重要知识3: <br />4.2 Subclassing QTableWidget QTableWidget会自动创建QTableWidgetItem来存储用户的输入。 QTableWidgetItem类并不是widget，而是一个纯粹的data class。 QTabeW

Qt之QTableView: 之前有讲解过QTableWidget的使用（QTableWidget详解（样式、右键菜单、表头塌陷、多选等）），已经算是很详细了，这节再讲更常用的视图部件QTableView的高级用法。 Qt中有几种纯粹的视图部件：QListView、...

QTableView: Qt之QTableView (2014-02-20 15:29:11) 转载▼ 标签： qtableview qtableview整行选中 qtableview整行高亮 qtableview和tooltip ... 之前有讲解过QTableWidget的使用（QTableWidget详解（样式、右键

PyQt5学习(3)--QWidget，QLabel，QLIneEdit，QTextEdit，按钮类: QWidget叫做“基础窗口控件”，这个类是所有用户界面的基类，所有的窗口或者控件都直接或者间接的继承了这个类，使用这个类的时候可以直接使用，也可以继承了再使用。 QWidget类直接提供的成员函数为有x(),y(),width...

QT基础三: 4.1The Central Widget QMainWindow的中央区域可以被任何类型的widget占据。...QTableWidget会自动创建QTableWidgetItem来存储用户的输入。 QTableWidgetItem类并不是widget，而是一个纯粹的d...

PyQt 5信号与槽的几种高级玩法: 版权声明：本文为博主原创文章，遵循 CC 4.0 by-sa 版权协议，...信号（Signal）和槽（Slot）是Qt中的核心机制，也是在PyQt编程中对象之间进行通信的机制。本文介绍了几种PyQt 5信号与槽的几级玩法。在Qt中，每一...

Qt归纳（二）: 4.1 The Central Widget QMainWindow的中央区域可以被任何类型的widget占据。... QTableWidget会自动创建QTableWidgetItem来存储用户的输入。 QTableWidgetItem类并不是widget，而是一个纯粹

Qt基础知识大全: 本文章记录着我学Qt几个月来的笔记，其中包括着控件的使用，样式表，绘图事件，其他事件，Gstreamer等！还有很多东西，如果有问题的地方，希望大家可以评论告诉我，或者私信也可以，大家一起进步，谢谢啦！转载请...

读书摘要--《C++.GUI.Programming.with.Qt.4》chapter4~10: Chapter 4 Implementing Application Functionality4.1 The Central Widget QMainWindow的中央区域可以被任何类型的...4.2 Subclassing QTableWidget QTableWidget会自动创建QTableWidgetItem来存储用户的输入

Qt之QTableView 鼠标动作特效: 之前有讲解过QTableWidget的使用（QTableWidget详解（样式、右键菜单、表头塌陷、多选等）），已经算是很详细了，这节再讲更常用的视图部件QTableView的高级用法。 Qt中有几种纯粹的视图部件：QListView、...

Qt Qtableview 的一些用法: Qt Qtableview 的一些用法标签：Qt Qtableview <转>... 一些Qtableview的用法： ...一、Qtableview主要借助于QStandardItemModel类来使用，最后再把QStandardItemModel的对象set进去即可 ...QTa...

QStyle设置界面的外观和QCommonStyle继承关系图讲解和使用: 讲述绘画自定义风格的 Style 的框架结构；使用 QStyle 设置界面的外观 QCommonStyle 继承关系图如何继承 QCommonStyle 类来创建自己的自定义的类讲解如下函数：polish()，unpolish()，drawPrimitive()，...

Qt Model/View编程介绍: Qt中包含了一系列的项视图类，它们使用model/view的架构去管理数据之间的关系以及它们被展示给用户的方式。这种由这种架构引进的功能分离特性给了开发者很大的灵活性去自定义自己的展示方式，并且提供了一个编制的...

QT4中 MainWindow, Dialog, Widget的介绍及使用: Qt中的每个类，都有一个对应的同名头文件，其中包含其类定义。例如要使用QApplication类，则需要在程序中添加" #include " QApplication类用于管理应用程序范围内的资源。其构造函数需要main函数的argc和argv...

Qt 开发经验总结: 文章目录Qt 开发经验总结当编译发现大量错误的时候，从第一个看起，一个一个的解决，不要急着去看下一个错误，往往后面的错误都是由于前面...打开creator，在构建套件的环境中增加MAKEFLAGS=-j8，可以不用每次设置多线

相关热词 c# 按行txt c#怎么扫条形码 c#打包html c# 实现刷新数据 c# 两个自定义控件重叠 c#浮点类型计算 c#.net 中文乱码 c# 时间排序 c# 必备书籍 c#异步网络通信