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


HSPTV!掲示板


未解決 解決 停止 削除要請

2014
0302
kaiunzipを使用してipファイルを解凍したい4解決


kai

リンク

2014/3/2(Sun) 14:17:40|NO.60398

unzip32.dllを使用してzipファイルを解凍したいと思い、スクリプトを組んだのですが、うまく動作しません。

zipの解凍はhttp://lhsp.s206.xrea.com/hsp_file.html#5
D&Dしたファイルの取得はhttp://www.geocities.co.jp/Playtown-Yoyo/6130/hsp/hsp-drag-file.html
を参考にしました。

実行ファイルの上にzipファイルをD&Dしたら自動で回答するようにしたいのですが・・・

組んでみたスクリプト↓

#uselib "unzip32" #func UnZip "UnZip" nullptr, str, int, int #func UnZipGetFileCount "UnZipGetFileCount" str #func UnZipGetVersion "UnZipGetVersion" sdim filepath, 256 sdim outpath, 256 sdim szOutput,1024 dirinfo(4) = filepath ; ファイル名取得 if peek(filepath, ) = '"' : getstr filepath, filepath, 1, '"' if varptr(UnZipGetVersion) = 0 { dialog "unzip32.dllがありません。" end } outpath = getpath(filepath,32) ; パスの抜き出し *unpack UnZip "\""+filepath+"\" \""+outpath+"\"" if stat = "0" : goto *owari dialog "解凍できませんでした。" end *owari end
これだと正常に作動しなかったので、D&Dに関してのページをしっかり読み、
HSPエディタの起動オプションにdirinfo(4)を設定してみましたが、内部エラー41になってしまいました。
ちなみに、D&Dしない場合の解凍は成功しています。

どうすればいいでしょうか?
お願いします。



この記事に返信する


kai

リンク

2014/3/2(Sun) 14:19:39|NO.60399

すいません。ipファイルではなく、zipファイルです。



あり

リンク

2014/3/2(Sun) 14:37:16|NO.60401

スクリプトをexeファイルにしないで
エディタ上で実行すれば原因が分かります。



あり

リンク

2014/3/2(Sun) 15:00:08|NO.60403

人間誰しもミスはありますから、完璧なデバッグをしろとまでは言いませんが
使っている変数の内容と文字の書き間違いがないかの確認ぐらいは
自分でしてから質問して下さいね。

Debugウィンドウの変数タブを見れば
使用中の変数一覧とその内容が確認できるので
有効に活用してください。



kai

リンク

2014/3/2(Sun) 18:55:08|NO.60409

>人間誰しもミスはありますから、完璧なデバッグをしろとまでは言いませんが使っている変数の内容と文字の書き間違いがないかの確認ぐらいは自分でしてから質問して下さいね。
そうでしたね。

ちなみに、自己解決しました。



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