HSPTV!掲示板

ファイルを送受信するやつです

サーバー側

*set
#include "hspsock.as"
	fad=""
	fs=0
	sdim fd,1
	sockmake 0,50001
	if stat!0:dialog "エラーが発生しました\nエラーコード:"+stat+"":end
*manu
	screen 0,300,400
	objsize 300,100
	button "ファイルをロード",*load
	button "ファイルを送信",*send
	mes "送信するファイル"
	mesbox fad,300,100
	mes "送信するサイズ "+fs+"Bite" 
	stop
*load
	dialog "*",16,
	if stat!1:goto *manu
	fad=refstr
	exist fad
	fs=strsize
	if strsize=0:dialog "ファイルが存在しません"
	goto *manu
*send
	sockput ""+fs+""
	wait 100
	screen 1,300,200
	repeat fs
	 sdim fd
	 bload ""+fad+"",fd,1,cnt
	 sockputb fd,,1,0
	 color 225,225,225
	 boxf
	 color 
	 pos 0,0
	 mes ""+cnt+"/"+fs+""
	 wait 1
	loop
	GOTO *manu

クライアント側

*set
#include "hspsock.as"
	fad=""
	fs=0
	sdim fd,1
	sockopen 0,"ｘｘｘｘｘｘｘｘｘ",50001
	if stat!0:dialog "エラーが発生しました\nエラーコード:"+stat+"
	repeat
	 wait 1
	 sockwait 0
	 if stat=0:break
	loop
	sockget fs
	mes fs
	screen 1,300,200
	repeat fs
	 sockwait 0
	 repeat
	 if stat=0:break
	 wait 1
	 loop
	 sdim fd,1
	 sockgetb fd,,1,0
	 bsave "0.bmp",fd,1,cnt
	 color 225,225,225
	 boxf
	 color 
	 pos 0,0
	 mes ""+cnt+"/"+fs+""
	 wait 1
	loop

です
　クライアントが動作してないようです

hspsock自体全く使った事無いので間違ってるかも知れませんが…

・「sockwait」はサーバー側が、クライアント側の接続を待つ為の命令のようです。
・クライアント側で、サーバーからの送信を待つには「sockcheck」を使うようです。
・クライアント側、「sockget」で受け取った「fs」は文字列型のようですが、
　そのままrepeatの引数にして大丈夫なのでしょうか。
・ソケット切断の「sockclose」が見当たらないのですが、抜粋したソースだからでしょうか。

送受信に関しては上記のような点が気になりました。

はあ、そうなのですね
ちょっと勘違いしていたようです
そこで修正してみたのですが
クライアント側でエラーが出ます
ただ、bsave命令なのですが
bsaveで指定したファイル名が存在しなかったら
新しく作成されるはずなのですが？

サーバー

*set
#include "hspsock.as"
	fad=""
	fs=0
	sdim fd,1
	sockmake 0,50001
	if stat!0:dialog "エラーが発生しました\nエラーコード:"+stat+"":end
*manu
	screen 0,300,400
	objsize 300,100
	button "ファイルをロード",*load
	button "ファイルを送信",*send
	mes "送信するファイル"
	mesbox fad,300,100
	mes "送信するサイズ "+fs+"Bite" 
	gosub *wat
	stop
*load
	dialog "*",16,
	if stat!1:goto *manu
	fad=refstr
	exist fad
	fs=strsize
	if strsize=0:dialog "ファイルが存在しません"
	goto *manu
*send
	sockput ""+fs+""
	repeat
	wait 1
	sockcheck 0
	if stat=0:break
	loop
	screen 1,300,200
	repeat fs
	 sdim fd
	 bload ""+fad+"",fd,1,cnt
	 sockputb fd,,1,0
	 color 225,225,225
	 boxf
	 color 
	 pos 0,0
	 mes ""+cnt+"/"+fs+""
	 repeat
	 if stat=0:break
	 wait 1
	 loop
	 wait 1
	loop
	GOTO *manu
*wat
	repeat
	wait 1
	sockwait 0
	if stat=0:break
	loop
	dialog "接続"
	goto *manu

クラ

*set
#include "hspsock.as"
	fad=""
	fs=0
	sdim fd,1
	sockopen 0,"192.168.0.2",50001
	if stat!0:dialog "エラーが発生しました\nエラーコード:"+stat+"
	dialog "1"
	repeat
	 wait 1
	 sockcheck 0
	 if stat=0:break
	loop
	dialog "2"
	sockget fs
	sockput "OK"
	mes fs
	screen 1,300,200
	repeat fs
	 sockcheck 0
	 repeat
	 if stat=0:break
	 wait 1
	 loop
	 sdim fd,1
	 sockgetb fd,,1,0
	 bsave "0.bmp",fd,1,cnt
	 sockputc 1,0
	 color 225,225,225
	 boxf
	 color 
	 pos 0,0
	 mes ""+cnt+"/"+fs+""
	 wait 1
	loop

スクリプトエディタでF1キーを押すことで、その命令のヘルプが出るはずですがご存知無いのでしょうか？
出てこないようであればファイルが壊れているのかも知れませんので、再インストールしてみましょう。

HSP付属エディタ以外をお使いの場合は、キーマクロなどで呼び出せるようにしといた方が良いです。
もし、そのような機能も無いエディタをお使いの場合は乗り換えをお勧めします。

で、bsaveのヘルプによりますと
>ファイルのオフセット値を指定すると、その値だけファイルの先頭からずらした場所からが操作の対象になります。
>bsave命令でオフセットを指定すると、 ファイルの先頭から任意のサイズを過ぎた場所からセーブを行なうことが可能です。
>(この場合は、それオフセットより前のファイル内容は変化しません。
>また、オフセット指定時はファイルが存在しない場合エラーとなります。)
とあります。最後の行です。