vfp的网页数据传递功能

jamesfu 2011-11-30 12:02:16

一个php网站，提供接口程序，如WebService(或一个php网页)。客户端vfp传递2个数字，如代码，数量，然后网站就显示这两个数字。vfp端要如何传递给这个网站的例子。最好不要弹出ie，就能自动完成。

...全文

351 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

jamesfu 2011-12-03

打赏
举报

vfp如何调用Web Service?

FOXHENGXING 2011-12-02

打赏
举报

用get方法字符数是有限制的，一般http传送文件都用post方法,直接可以传送2进制文件，免去转换，速度也有得保证

aabiao 2011-12-02

打赏
举报

既然服务器软件自己编，用Web Service是不错的选择。
接口注意：最好用字符型、数值型，千万别用结构体啥的，这个VFP用起来很麻烦。

十豆三 2011-12-01

打赏
举报

这样试试：你将网页下载到本地，然后分析本地网页来判断结果。

Local lcRemoteUrl,lcRemoteFile,lcLocalhtm,lcLocalFile

Declare Integer DeleteUrlCacheEntry In Wininet.Dll String szUrl

Declare Integer URLDownloadToFile In urlmon.Dll Integer pCaller,String szURL,String szFileName,Integer dwReserved,Integer lpfnCB

*--下载网页

lcRemoteUrl="http://www.AAA.com/XXX.asp?dm=123&sl=32.1"

lcLocalhtm="c:\xxx.htm"

=DeleteUrlCacheEntry(lcRemoteUrl)	&&清理缓存，这对实时刷新的数据时很有用。

If URLDownloadToFile(0,lcRemoteUrl,lcLocalhtm,0,0)=0

	Messagebox("下载成功！",64,'信息提示')

Else

	Messagebox("下载失败",48,'信息提示')

Endif

然后分析 c:\xxx.htm ，用 Filetostr()将网页转成字符串来分析。

十豆三 2011-12-01

打赏
举报

[Quote=引用 10 楼 jamesfu 的回复:]
对，这个很好用。公司又要求，要传商品图jpg上服务器，服了。有什么好建议？一开始我在想能否将图形转为字符串放在url上传，看来url长度还是限制的。
[/Quote]
要么此网页有上传功能（就像：http://www.access911.net/CSDN/）。
要么服务器加 FTP 功能。

jamesfu 2011-12-01

打赏
举报

对，这个很好用。公司又要求，要传商品图jpg上服务器，服了。有什么好建议？一开始我在想能否将图形转为字符串放在url上传，看来url长度还是限制的。

十豆三 2011-11-30

打赏
举报

帖一下实际网页。

接口是什么要求?

jamesfu 2011-11-30

打赏
举报

对，双方都要自己写，一个通过adsl沟通网站.Web Service方面不知有否好建议,如有例子就行

aabiao 2011-11-30

打赏
举报

既然提供了Web Service功能，就用它就好了。
问题有点没看明白，是网站提供了，要求客户端编程，还是服务器端也还没有，双方都要自己写？

jamesfu 2011-11-30

打赏
举报

loIE.Navigate(lsURL)
这段，如果在已打开360浏览器时会获取，并显示。
loIE.Quit
则quit会出错和无效,"Ole错误码0X80004005: Unspecified"，是否有更安全的代码?

jamesfu 2011-11-30

打赏
举报

这个方法试了是可行的!还有否备选方案。

十豆三 2011-11-30

打赏
举报

你可以试试通过判断网页是否加载完成来判断你是否成功。

Local loIE

loIE=Createobject("InternetExplorer.Application")

lsURL="www.126.com"

loIE.Navigate(lsURL)

Do While loIE.busy Or loIE.readyState <> 4

	*Inkey(0.1,"H")		&& 防止程序失去响应

	DoEvents

Enddo

loIE.Visible=.T.

Messagebox('')

loIE.Quit

Release loIE

jamesfu 2011-11-30

打赏
举报

测试了一下，如类似这段信息.
LOCAL ie4
IE4=CreateObject("InternetExplorer.Application")
IE4.navigate( "http://www.163.com") && 应该指明全路径
IE4.navigate( "http://www.21cn.com") && 应该指明全路径
无法自动关闭Ie。能否成功也没法知道.

jamesfu 2011-11-30