注册 登录
编程论坛 → VFP论坛

推荐一个免费的人工智能AI--deepseek

sam_jiang 发布于 2025-01-10 23:21， 603 次点击
手机上刷到红衣主教推荐的国产人工智能deepseek，非常强大，速度快，正确率高，我就去试了一下，感觉非常牛逼，值得推荐！

注册很简单，用手机号注册，填写个验证码，通过了就可以用了。

我让它给我生成一段vfp代码，用来向服务器上传图片。。。

几乎实时给我生成一堆代码，而且贴心给我注释，以后大家有问题可以直接问它了，知无不言言无不尽！关键是实时的，不用等。。。

以下是它给我生成的代码：
程序代码：

LOCAL lcBoundary, lcPostData, lcImageFile, lcFileContent

* 设置边界符
lcBoundary = "---------------------------" + SYS(2015)

* 设置图片文件路径
lcImageFile = "C:\path\to\your\image.jpg"

* 读取图片文件内容
lcFileContent = FILETOSTR(lcImageFile)

* 构建 POST 数据
lcPostData = "--" + lcBoundary + CHR(13) + CHR(10)
lcPostData = lcPostData + "Content-Disposition: form-data; name=file; filename=" + JUSTFNAME(lcImageFile) + CHR(13) + CHR(10)
lcPostData = lcPostData + "Content-Type: image/jpeg" + CHR(13) + CHR(10) + CHR(13) + CHR(10)
lcPostData = lcPostData + lcFileContent + CHR(13) + CHR(10)
lcPostData = lcPostData + "--" + lcBoundary + "--" + CHR(13) + CHR(10)

* 发送请求
loXMLHTTP = CREATEOBJECT("MSXML2.XMLHTTP")
loXMLHTTP.Open("POST", "http:///upload", .F.)
loXMLHTTP.SetRequestHeader("Content-Type", "multipart/form-data; boundary=" + lcBoundary)
loXMLHTTP.Send(lcPostData)

* 等待响应
DO WHILE loXMLHTTP.readyState <> 4
    DOEVENTS
ENDDO

* 输出响应信息
MESSAGEBOX("响应状态码：" + TRANSFORM(loXMLHTTP.status))
MESSAGEBOX("响应内容：" + loXMLHTTP.responseText)


之前在论坛里发的贴，没有人给我满意的答复，它给了
8 回复
#2
schtg2025-01-11 05:46
回复 楼主 sam_jiang
谢谢分享！
#3
sam_jiang2025-01-12 20:50
这个人工智能真是可以啊！

我让它帮我优化一段代码，解决黑屏一闪而过的问题，它基本上帮我解决了，虽然有点小问题。
使用ipconfi命令获得ip地址，解决黑屏一闪而过的问题。
程序代码：

CLEAR

* 动态生成临时文件路径
lcTempFile ="D:\temp.txt"

* 清理临时文件
IF FILE(lcTempFile)
    ERASE (lcTempFile)
ENDIF

* 创建 WScript.Shell 对象
oShell = CREATEOBJECT("WScript.Shell")

* 运行命令并隐藏窗口
lcCommand = 'CMD /C "ipconfig > ' + lcTempFile + '"'
oShell.Run(lcCommand, 0, .T.)

* 释放对象
RELEASE oShell

* 检查文件是否生成
IF !FILE(lcTempFile)
    WAIT WINDOW "无法生成临时文件！"
    RETURN
ENDIF

* 读取文件内容
cstr = FILETOSTR(lcTempFile)
n = ALINES(atemp, cstr, CHR(13) + CHR(10))

* 提取 IPv4 地址
FOR i = 1 TO n
    IF "ipv4" $ LOWER(atemp[i])
        lcIP = STREXTRACT(atemp[i], ":","")
        lcIP = ALLTRIM(lcIP)
        ? lcIP
        EXIT
    ELSE
        LOOP
    ENDIF
ENDFOR

* 清理临时文件
IF FILE(lcTempFile)
    ERASE (lcTempFile)
ENDIF
#4
wcx_cc2025-01-13 01:00
非常支持！！
#5
chychychy2025-01-13 15:03
网址？还是app，烦请详细分享一下

[此贴子已经被作者于2025-1-13 15:06编辑过]
#6
sam_jiang2025-01-13 22:30
有网页版,有app,百度一下就行了,现在很火的
#7
pnyjq2025-01-13 23:17
这些问题曾经是吊炸天的屠龙术，有了ai，一切得来不废功夫。
#8
iswith2025-01-13 23:44
以下是引用sam_jiang在2025-1-10 23:21:04的发言：

手机上刷到红衣主教推荐的国产人工智能deepseek，非常强大，速度快，正确率高，我就去试了一下，感觉非常牛逼，值得推荐！

注册很简单，用手机号注册，填写个验证码，通过了就可以用了。

我让它给我生成一段vfp代码，用来向服务器上传图片。。。

几乎实时给我生成一堆代码，而且贴心给我注释，以后大家有问题可以直接问它了，知无不言言无不尽！关键是实时的，不用等。。。

以下是它给我生成的代码：

LOCAL lcBoundary, lcPostData, lcImageFile, lcFileContent

* 设置边界符
lcBoundary = "---------------------------" + SYS(2015)

* 设置图片文件路径
lcImageFile = "C:\path\to\your\image.jpg"

* 读取图片文件内容
lcFileContent = FILETOSTR(lcImageFile)

* 构建 POST 数据
lcPostData = "--" + lcBoundary + CHR(13) + CHR(10)
lcPostData = lcPostData + "Content-Disposition: form-data; name=file; filename=" + JUSTFNAME(lcImageFile) + CHR(13) + CHR(10)
lcPostData = lcPostData + "Content-Type: image/jpeg" + CHR(13) + CHR(10) + CHR(13) + CHR(10)
lcPostData = lcPostData + lcFileContent + CHR(13) + CHR(10)
lcPostData = lcPostData + "--" + lcBoundary + "--" + CHR(13) + CHR(10)

* 发送请求
loXMLHTTP = CREATEOBJECT("MSXML2.XMLHTTP")
loXMLHTTP.Open("POST", "http://, .F.)
loXMLHTTP.SetRequestHeader("Content-Type", "multipart/form-data; boundary=" + lcBoundary)
loXMLHTTP.Send(lcPostData)

* 等待响应
DO WHILE loXMLHTTP.readyState <> 4
    DOEVENTS
ENDDO

* 输出响应信息
MESSAGEBOX("响应状态码：" + TRANSFORM(loXMLHTTP.status))
MESSAGEBOX("响应内容：" + loXMLHTTP.responseText)


之前在论坛里发的贴，没有人给我满意的答复，它给了


你就全村最靓的仔
#9
sam_jiang2025-01-14 01:05
鍥炲 8妤
1
©2025, BC-CN.NET
电脑版