HSPTV!掲示板

Windows画像ビューアではきちんと画像として表示され、
exist命令でファイルが存在することを確認したのに、
picload命令を使うとエラー13。ほかのファイルで実行すると使える。

どういうことなんでしょう?
以下、スクリプト。(とはいってもこれだけ)

exist "vscan.jpg"

if strsize = -1 : dialog "Unknown": else : dialog "存在確認"
picload "vscan.jpg"

無くても読み込んでるから。

拡張子偽装などで、実はHSPでは対応していない画像形式を読み込もうとしているとか。

「mci コマンド」でGoogle検索してみてください。
きっと答えが見つかるはずです。

↑いやいや、そういう事ではありませんよ
スクリプト自体は完璧ですよ

こちらではawqさんのスクリプトで
存在確認のダイアログが出たあと、
vscan.jpgを読み込めました

HK2さんの言うように、
スクリプトではなく画像の方に
拡張子などの問題があるんだと思います


ただ、試しに
vscan.jpg.bmp
vscan.jpe
vscan.jpeg
でやってみましたが、

ちゃんとUnknownダイアログが出て、
エラー13でした

存在確認ダイアログがでて、読み込めないんですよね?

これでもvscan.jpgが読み込めませんか?

dialog "jpg",16
if stat = 0 : end
fname=refstr
picload fname

そしたら私には解決できませんすみません

あれ・・・
違うスレにレスしたのにこのスレにレスが・・・
おかしい・・・

Jpeg画像かどうかの簡易判断に
「先頭2バイトと終末2バイトをチェックする」
と言うものを見つけたので作ってみました。

exist "vscan.jpg"
if strsize = -1 : dialog "Unknown": else : dialog "存在確認"

//簡易判定
ss=strsize
dim SOI	;ファイル先頭
dim EOI	;ファイル終末
mes "strsize:"+ss
bload "vscan.jpg",SOI,2
bload "vscan.jpg",EOI,2,ss-2
title "Jpegじゃないかも"	;タイトル文 仮置き

if peek(SOI,0)=255{
	mes "FF"
	if peek(SOI,1)=216{
		mes "D8"
		if peek(EOI,0)=255{
			mes "FF"
			if peek(EOI,1)=217{
				mes "D9"
				title "Jpegっぽいです。"
			}
		}
	}
}
//ここまで
;picload "vscan.jpg"

KMTLさん、たんすさん、ありがとうございました。
どうやらJPEGとして認識されていなかったようです。
もう一度画像作り直します。お騒がせしました。

exist "vscan.jpg"
if strsize = -1 : dialog "Unknown":end: else : dialog "存在確認"
picload "vscan.jpg"

僕が言いたかったのは、プログラムとしてはここにendを入れないとプログラムとして
画像ファイルがないと判定されているのにpicloadが実行されてしまう。

もう解決済みみたいですのであえて言うの迷ったのですが、プログラムを提示して質
問しているのなら指摘をもう少し精査してみてください。