利用HP_Socket执行ihttpclient.start操作时有些电脑返回失败

橴楓ペ俊影ミ

利用HP_Socket执行ihttpclient.start操作时有些电脑返回失败，错误代码是3，错误描述是，Create SOCKET Fail
我是做的一个简单的请求网络api地址操作，大部分电脑都能正常运行

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

如果真 (sock ≠ 0)
phttp.CleanupSSLContext (sock)
phttp.Stop (sock)
phttp.Destroy (sock, 真)
sock ＝ 0

如果真 (改写中 ＝ 真)
改写中 ＝ 假
返回 ()

如果真 (原文本框.内容 ＝ “”)
返回 ()

' streamid ＝ 启动线程 (&stream_start, , )
' stream_start (#洗稿指令 ＋ 原文本框.内容)
sock ＝ phttp.Create (真)
phttp.SetupSSLContext (sock, #SSL_VM_NONE, , , , )
phttp.OnBody (&OnReceive)
phttp.OnClose (&OnClose)
phttp.Start (sock, 全_gpt地址, 443, , , )
调试输出 (sock)
延迟 (500)
stream_start ()

子程序名	返回值类型	公开	备 注
stream_start

如果真 (stream_gpt (“/v1/chat/completions”, 原文本框.内容) ＝ 真)
改写中 ＝ 真
按钮1.标题 ＝ “停止”

i支持库列表	支持库注释
iext2	扩展界面支持库二
spec	特殊功能支持库

.版本 2<br /> .支持库 iext2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果真 (sock ≠ 0)<br />     phttp.CleanupSSLContext (sock)<br />     phttp.Stop (sock)<br />     phttp.Destroy (sock, 真)<br />     sock ＝ 0<br /> .如果真结束<br /> <br /> <br /> <br /> .如果真 (改写中 ＝ 真)<br />     改写中 ＝ 假<br />     返回 ()<br /> .如果真结束<br /> <br /> <br /> .如果真 (原文本框.内容 ＝ “”)<br />     返回 ()<br /> .如果真结束<br /> <br /> <br /> ' streamid ＝ 启动线程 (&stream_start, , )<br /> <br /> <br /> ' stream_start (#洗稿指令 ＋ 原文本框.内容)<br /> <br /> sock ＝ phttp.Create (真)<br /> phttp.SetupSSLContext (sock, #SSL_VM_NONE, , , , )<br /> phttp.OnBody (&OnReceive)<br /> phttp.OnClose (&OnClose)<br /> phttp.Start (sock, 全_gpt地址, 443, , , )<br /> <br /> 调试输出 (sock)<br /> 延迟 (500)<br /> stream_start ()<br /> <br /> <br /> .子程序 stream_start<br /> <br /> .如果真 (stream_gpt (“/v1/chat/completions”, 原文本框.内容) ＝ 真)<br />     改写中 ＝ 真<br />     按钮1.标题 ＝ “停止”

xiaoyu1986

sock ＝ phttp.Create (真)
sock .SetSSLAutoHandShake (n_s, 真)
phttp.SetupSSLContext (sock, #SSL_VM_NONE, , , , )
...
...
...

补充内容 (2024-12-2 16:40):
sock .SetSSLAutoHandShake (sock , 真)

橴楓ペ俊影ミ

xiaoyu1986 发表于 2024-12-2 16:40
sock ＝ phttp.Create (真)
sock .SetSSLAutoHandShake (n_s, 真)
phttp.SetupSSLContext (sock, #SSL_VM_N ...

兄弟，我试过了，加了这一行还是不行

橴楓ペ俊影ミ

xiaoyu1986 发表于 2024-12-2 16:40
sock ＝ phttp.Create (真)
sock .SetSSLAutoHandShake (n_s, 真)
phttp.SetupSSLContext (sock, #SSL_VM_N ...

有没有其他办法啊？

xiaoyu1986

橴楓ペ俊影ミ 发表于 2024-12-2 16:54
兄弟，我试过了，加了这一行还是不行

phttp所有类型都试过了吗？比如试试ITcpClient，

亡胧

按错误描述 , 是HP里得 CreateClientSocket 出错了 . 这个函数里又有一堆调用,具体哪个错误得到机子上打断点才知道了

橴楓ペ俊影ミ

亡胧 发表于 2024-12-2 17:08
按错误描述 , 是HP里得 CreateClientSocket 出错了 . 这个函数里又有一堆调用,具体哪个错误得到机子上打断 ...

关键不是自己电脑出问题，是有些用户的电脑出这个问题，总不能跑到他电脑装个易语言撒

橴楓ペ俊影ミ

xiaoyu1986 发表于 2024-12-2 17:03
phttp所有类型都试过了吗？比如试试ITcpClient，

那我再试试看

xiaoyu1986

橴楓ペ俊影ミ 发表于 2024-12-2 17:01
有没有其他办法啊？

试试不同类型，但是这个创建套接字失败是真没遇到过，可能是系统问题导致的。
你用ssl32试试，如果还是创建套接字失败，那应该就是系统的问题。

橴楓ペ俊影ミ

xiaoyu1986 发表于 2024-12-2 17:13
试试不同类型，但是这个创建套接字失败是真没遇到过，可能是系统问题导致的。
你用ssl32试试，如果还是创 ...

刚试了换了不同类型也不行，ssl32是什么意思