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


HSPTV!掲示板


未解決 解決 停止 削除要請

2021
0926
ねんねこpackdllが機能しない3解決


ねんねこ

リンク

2021/9/26(Sun) 12:18:15|NO.93984

↓で配布されている、PackDllが機能しません。
https://hsp.moe/#packdll
ソースコードはこれです。

#runtime "hsp3ld" #include "packdll.as" // パックファイルからDLLを読み込む(実行ファイルにしたとき) LoadPackDLL "hspinet.dll" // #func #cfunc のみ if stat : dialog "hspinet.dll の読み込みに失敗しました" : end //http://hsp.tv/play/pforum.php?mode=pastwch&num=91873 #pack "hspinet.dll" #include "hspinet.as" #include "hsp3utf.as" #packopt name "Dischat" #packopt icon "discord_logo_icon_145337.ico" title "Dischat" *chat cls a="" name="" netinit neturl "https://discord.com/api/webhooks/891512627711340564/84fYix8XV68UChUCs3CesL8pVv6D2IZ2KpHaGfkUogydR2IGJHHH9sQV1n7-n4uH4VIe" netheader "Content-Type: application/json" pos 0,0:mes "名前" pos 0,20:input name,100,20 pos 0,60:mes "内容" pos 0,80:input a,100,20 button "送信",*start stop *start b="{\"content\": \""+name+":"+a+"\"}" //a="{\"content\": \"Hello from Webhook\\n改行は\\\\\\\\\\\\\\\\nで送るらしいですよ。\"}" netrequest_post "",b //以下sample/hspinet/test7.hspのアレ 結果は何も表示されない で正解。 mes "DOWNLOAD 開始" *main ; 結果待ちのためのループ netexec res if res > 0 : goto *comp if res < 0 : goto *bad await 50 goto *main *bad ; エラー neterror estr mes "ERROR "+estr stop *comp ; 完了 cls goto *main23 *main23 netinit neturl "https://discord.com/api/webhooks/891513956391329812/czxOB8TlV2B1dV7RfVQVdVavsGP_4hB9rtwvVP1-5Aw3t0CxJS1uoQhW_vUNxIX0XHfk" netheader "Content-Type: application/json" netrequest_post "",b goto *main2 *main2 ; 結果待ちのためのループ netexec res if res > 0 : goto *comp2 if res < 0 : goto *bad2 await 50 goto *main2 *bad2 ; エラー neterror estr mes "ERROR "+estr stop *comp2 ; 完了 cls mes "送信完了" button "もう一度chat",*chat netgetv buf mesbox buf,640,400,1



この記事に返信する


ねんねこ

リンク

2021/9/26(Sun) 12:19:44|NO.93985

実行すると、
hsp3ldランタイムが使用されていません。終了します。
と表示されてしまいます。



UT-X

リンク

2021/9/26(Sun) 12:41:03|NO.93986

PackDllは古いスクリプトなので、現在のバージョンだと使えなくなっている可能性があります。
私は以前(HSP3.4付近)にこれを使って開発中のソフトにDLLの同梱を試みましたが、
#regcmdを使っていたために断念しました。
現在は、以下の方法でDLLファイルを実行ファイルに同梱しています。
#pack "hspinet.dll"
#ifndef _debug exist ""+dir_cur+"\\hspinet.dll" if strsize=-1{ bcopy "hspinet.dll",""+dir_cur+"\\hspinet.dll" } #endif
実行ファイルと同じ場所に無かった場合に、実行ファイル内部にあるファイルをコピーするというものです。
これはDLL以外の、#packだけでは呼び出せないファイルにも通用します。



ねんねこ

リンク

2021/9/26(Sun) 14:46:04|NO.93989

ありがとうございます。参考になります。



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