VB6.0图片上传与下载

Question

现手头有个任务，是公司的一套系统，需增加关于图片直接存到居域网中的某台服务电脑的指定共享文件夹中，系统可以作多图片传输，且能指定服务器路径，让用户手动登陆后，可以在本地上传，其他人如打开时同事可以看到 ，存放图片用sql 2000!不知到有没有那位高手知道此方面的知识，望赐教，本急需 ！

Answer 1

我做过文件传输,用二进制输送文件,什么格式都行,但后来发现一个问题,不能多线程同时传送多个文件,就放弃了,用DELPHI做了一个,可以多线程,多用户同时传送,服务器端用SQL SERVER 2000只存放路径和相关如权限等信息,文件直接由服务器系统自动按规则生成目录存放,这样客户端不论是B/S结构还是C/S结构,处理都很方便.

Answer 2

有数据库的话，还要写共享文件夹作甚？XP的网络还不好配置直接写到数据库里就OK了，图片的存取用adodb.stream，去网上搜索一下代码就知道怎么用了

Answer 3

调用下面这个程序就可以的
Public Function SaveToFile(ByVal strTable As String, ByVal strField As String, ByVal strFileName As String) As Boolean    SaveToFile = True
    If Adodc1.Recordset(strField).Type <> 205 Then
        SaveToFile = False         '如果字段不是OLE字段，返回错误
        GoTo EndSaveTofile
    End If
    If Adodc1.Recordset.EOF Then              '如果记录不存在，返回错误
        SaveToFile = False
        GoTo EndSaveTofile
    End If
    FileNo = FreeFile
  
    Open "C:\image\" & strFileName For Binary As #FileNo
    ReDim FileData(Adodc1.Recordset(strField).ActualSize) '重新初始化数组
    FileData() = Adodc1.Recordset(strField).GetChunk(Adodc1.Recordset(strField).ActualSize) '把OLE字段的内容保存到数组
    Put #FileNo, , FileData()   '把数组内容保存到文件
    Close #FileNo
'    Erase FileData
    Exit Function
EndSaveTofile:
    Adodc1.Recordset.Close
    Set Adodc1.Recordset = NothingEnd Function