HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2016
0211
KUROTV_4656早急!!!pcbnet2.asをよびだすとこうなります!6未解決


KUROTV_4656

リンク

2016/2/11(Thu) 15:15:38|NO.74552


#include "pcbnet2.as" #define PORT 3301 ;ポート番号 ;///////////////////////////////////////////// 初期化 randomize sdim name,64 sdim host,256 sdim msg,256 sdim memberlist,16000 sdim buf,2000 sdim s,2000 sdim ss,2000 host="127.0.0.1" r = rnd(100) name="Test"+r title "Simple Chat" objmode 2 ;///////////////////////////////////////////// メニュー画面 *menu cls 1 pos 10,10 mes "接続先:" pos 20,30 input host,200,24,255 pos 10,70 mes "ニックネーム:" pos 20,90 input name,200,24,63 pos 40,150 objsize 120,24 button "接続",*connect objsel 0 stop ;///////////////////////////////////////////// 接続開始 *connect if (name="")|(host="") : dialog "必要事項を入力してください" : stop cls 1 tcpopen soc,host,PORT if stat : dialog "tcpopenに失敗しました!",1 : end mes host+" に接続中..." *@ tcpiscon soc if stat=0 : wait 1 : goto *@b if stat>1 : tcpclose soc : dialog "接続に失敗しました!",1 : goto *menu mes "接続が完了しました." wait 50 cls 1 pos 0,ginfo_winy-24 mesbox msg,ginfo_winx-160,24,1 pos ginfo_winx-160,0 objsize 160,ginfo_winy listbox dummy,0,"" tcpput "login "+name+"\n",soc goto *main ;///////////////////////////////////////////// メイン *main tcpfail soc if stat : tcpclose soc : dialog "接続が切断されました!",1 : end tcpgetl buf,1024,soc if stat : gosub *recv a = instr(msg,0,"\n") if a!-1 : gosub *send wait 1 goto *main *recv sdim cmd,1024 sdim arg,1024 getstr cmd,buf,0,' ' getstr arg,buf,strsize if cmd="joined" : gosub *joinedmember if cmd="left" : gosub *leftmember if cmd="msg" : gosub *message return *joinedmember memberlist+=arg+"\n" objprm 1,memberlist objsel 0 return *leftmember notesel memberlist members = notemax repeat members noteget s,cnt if s=arg : notedel cnt : break loop objprm 1,memberlist objsel 0 return *message redraw 2 pos 0,0 gcopy 0,0,20,ginfo_winx,ginfo_winy-20 pos 0,ginfo_winy-24-20 mes arg redraw 1 return *send s=msg a = instr(s,0,"\n") getstr ss,s,a+2 poke s,a,0 s+=ss buf="say "+s+"\n" tcpput buf,soc msg = "" objprm 0,msg return

エラー↓
Error 38 in line 121
外部DLLの呼び出しに失敗しました


と出ます...
対処法を教えてくださいw



この記事に返信する


kanamaru

リンク

2016/2/11(Thu) 15:19:50|NO.74553

保存せずに実行してるなら、エディタと同じフォルダにdllを配置して、
保存したなら、ソースファイルと同じフォルダにdllを配置。
で解決すると思います。
そういうエラーなので。



KUROTV_4656

リンク

2016/2/11(Thu) 15:20:46|NO.74554

dllが入ってないんです



cats

リンク

2016/2/11(Thu) 15:44:05|NO.74558

pcbnet2はhpiだったと思うので、hpiを同じディレクトリ下に入れてみてください。



KUROTV_4656

リンク

2016/2/11(Thu) 19:42:40|NO.74559

入れてもできないです...



KA

リンク

2016/2/11(Thu) 20:38:30|NO.74562

その行の少し上を見直しましょう。



KUROTV_4656

リンク

2016/2/11(Thu) 23:10:23|NO.74568

色々やったら解決しました有難うございましたw



ONION software Copyright 1997-2021(c) All rights reserved.