请问如何利用WINSOCK传送图片

[xld2001]

发送端
bl=Filetostr("图片.jpg")
Thisform.sock1.Object.SendData(bl)

接收端：
This.sock1.GetData(@m.cData)
Strtofile(m.cData,图片.jpg")
在接收端图片.jpg大小和发送端一样但不能查看

[xld2001]

发送端 bl=Strconv(Filetostr("图片.jpg"),13) Thisform.sock1.Object.SendData(bl) 接收端： This.sock1.GetData(@m.cData) Strtofile(Strconv(m.cData14),图片.jpg") 在接收端图片.jpg大小为0

[十豆三]

试试 bl=Strconv(Filetostr("图片.jpg"),14)

[十豆三]

引用 2 楼 apple_8180 的回复:

试试 bl=Strconv(Filetostr("图片.jpg"),14)

或 bl=CREATEBINARY(Filetostr("图片.jpg"))