您的位置：程序门 -> vb -> 网络编程

winsock收发文件

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

winsock收发文件[已结贴,结贴人:wjp1015]

发表于：2007-11-06 09:56:53 楼主

dim buffer（) as byte
open app.path & "\" & itmx.subitems（1) & ".xls " for binary as #1
redim buffer（1 to lof（1))
get #1, , buffer
close #1
winsock1.senddata buffer
我用上面的代码发送数据，然后用下面代码接受数据，但为什么没收到呢？？要是收到那收到文件在哪啊？？？谢谢，新手
dim gbt（) as byte
winsock1.getdata gbt, vbbyte
text1.text = str（gbt)

发表于：2007-11-06 16:31:211楼得分:2

收到的数据显示在text1文本框里了，没有落地存成文件。

发表于：2007-11-07 15:30:392楼得分:6

你没有把受到的文件保存下来
dim nfileno1 as long
nfileno1 = freefile
open opath for append as #nfileno1
write #nfileno1, text1.text
close #nfileno1

发表于：2007-11-08 10:53:223楼得分:0

谢谢了，那freefile是什么？opath又是什么啊？？？？

发表于：2007-11-08 11:40:244楼得分:2

freefile是个自动生成文件号的函数，不用理它.
opath是你要保存文件的路径及文件名，一个字符串

发表于：2007-11-08 11:43:175楼得分:10

"text1.text=str（gbt)"----> [".xls]的binary传输数据放到text1里?就象装硫酸的瓶子用来装饮料一样,呵呵

vbscript code


    dim bytdata（) as byte
    dim f%
    f = freefile'随机文件号
    strfilename =app.path & "\myexcel.xls"'保存路径

    redim bytdata（1 to bytestotal&)
    winsock1.getdata bytdata
   
    open strfilename for binary as #f'二进制打开文件
    put #f, 1, bytdata'写入数据
    close #f'关闭这个打开的文件

其他资讯