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


HSPTV!掲示板


未解決 解決 停止 削除要請

2021
0612
Mkpackselfolder命令のファイルを実行ファイルにするとエラーが起こる問題1解決


Mkpack

リンク

2021/6/12(Sat) 14:03:26|NO.93022

HSPEXTプラグインのselfolder命令をスクリプトにして実行ファイルを作成すると、
selfolder命令部分で「内部エラーが発生しました(38)」と表示されます。
HSP 3.5 を使っているので、「C:\hsp35\sample\hspext\folder.hsp」で同様の処理を
させてもエラーが発生します。HSP内にあるselfolder命令が使われているアプリ(HSP3Dish
Helperなど)は問題ないのに、新たにEXEファイルにするとエラーが起こるのはどうし
てでしょうか?解決策を教えてください。以下ソースです。


#include "hspext.as" ; ディレクトリ一覧表示サンプル ; (CHDIRを押すと、入力したディレクトリに移動します) ; sdim dirbuf,32000 dirbuf="" sel=0 ad="" objsize 200,24:pos 0,30 listbox sel,200,dirbuf button "Browse",*chg *getdir color 255,255,255:boxf 0,0,640,24 color 0,0,0:pos 0,0:mes "DIR="+curdir dirlist dirbuf,"*.*" objprm 0,dirbuf stop *chg selfolder ad,"フォルダを選んでください。" //エラー発生部分 if stat : dialog "キャンセルされました" : stop chdir ad if stat : dialog "ERROR!" goto *getdir



この記事に返信する


Mkpack

リンク

2021/6/12(Sat) 15:12:35|NO.93023

すみません、COMコンポーネントを使用することで解決しました。
これなら実行ファイルにしてもエラーは起きません。一応ソース貼っときます。

newcom app,"Shell.Application" //COMコンポーネント呼び出し comres res app->"BrowseForFolder" hwnd,"",$41 //フォルダブラウザの設定 if varuse(res) { res->"Items" res->"Item" mes res("Path") //パスの書き出し } stop



記事削除

記事NO.パスワード
(質問が解決したスレッドは他の利用者に活用してもらうため、削除しないようお願いします)

NO.93022への返信

マスコット

好きなマスコットを選んでください。

名前

e-mail
HOME
  1. 初めて利用する方は、HSP3掲示板の使い方をお読みください。
  2. 不要部分の多い長いスクリプトの投稿は ご遠慮ください。
  3. 書き込みは自動改行されません。適度に改行を入れてください。
  4. スクリプトは小文字の<pre>〜</pre>で囲むと見やすく表示できます。

削除用パスワード

解決したら質問者本人がここをチェックしてください。

エラー発生時、再送信すると二重送信になることがあります。
回答が得られたら、お礼書き込み時に[解決]チェックしてください。
SPAM防止のためURLから始まる文章は投稿できません。
SPAM防止のため英文字のみの本文を投稿することはできません。

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