HSPTV!掲示板

このソースをF5で実行しても、何も問題ないのですがEXEにすると内部エラー(38)が発生します。
GDIplusImgSaveMod.hspとhspinet.asとhspsock.asは同じフォルダーに入れています。
どこが問題なのでしょうか？

//読みにくいとは思いますが回答よろしくお願いします
//準備
#include "GDIplusImgSaveMod.hsp"//jpg保存
#include "hspinet.as"//FTP
#include "hspsock.as"//IP取得

#uselib "gdi32.dll"//キャプチャー
#cfunc CreateDC "CreateDCA" sptr,sptr,sptr,int
#func DeleteDC "DeleteDC"  int
#func BitBlt "BitBlt" int,int,int,int,int,int,int,int,int
#define NUL l       0//この行のせいで内部エラーが発生？
#define SRCCOPY     0x00CC0020
#define CAPTUREBLT  0x40000000
///ここまで
	ipget//ファイル名となるIPアドレスを取得
	画質=20//画像の画質を指定
	netinit//ネット接続の初期化
	ftpopen "FTPサーバーアドレス","ユーザー名","パスワード"//FTPセッションの開始
	ftpdir m_dir,"/"//ディレクトリ

//ここからキャプチャー開始 ここのサンプルを改造→http://goo.gl/us3PS
sx = ginfo_dispx : sy = ginfo_dispy//デスクトップ画面のサイズでバッファ画面を作成
buffer 2, sx, sy//デスクトップ画面のサイズでバッファ画面を作成
	repeat//repeat開始
		; デスクトップ画面のデバイスコンテキスト取得
		hdcScreen = CreateDC("DISPLAY",NULL,NULL,NULL)
		
		; デスクトップ画面の画像をコピー
		BitBlt hdc, 0, 0, sx, sy, hdcScreen, 0, 0, SRCCOPY | CAPTUREBLT
		
		; デバイスコンテキスト削除
		DeleteDC hdcScreen//ここまで
		imgsave "test.jpg",画質//画像保存
		ftpput ""+refstr+"","test.jpg"//アップ開始
		//Dialog stat//デバック用。基本的には必要なし。
		await 10
	loop

Start.axは作成してpackfileに指定しましたか？

#define NUL l 0//この行のせいで内部エラーが発生？となっていますが、正しくは
#define NULL 0//この行のせいで内部エラーが発生？です。ブラウザにコピーして
変更してる時に間違えて変えちゃっただけなので、内部エラー発生とは関係ありません。

はい、axファイルはpackfileに指定しています。

実行ファイルと同じ場所に

HSPINET.DLL
HSPSOCK.DLL

はありますか？

（以下HSPSOCK.DLLのリファレンスから抜粋）
HSPSOCK.DLLは、HSP3.EXEと同時に使用されるプラグインファイルです。
EXEファイルを作成した場合でも、HSPSOCK.DLLをEXEファイルと同じディレクトリ
に置かないと動作しません。また、packfileにDLLを追加することはできません。

そのdllを同じフォルダーに入れたら出来ました＞＜ちなみにDLLはpackfileに追加していません

少し気になったので。

※その１

as ファイルは スクリプトとしてコンパイルされるので、packする必要は有りません。
Start.ax ファイルもコンパイル時に自動で追加されるため、必要ありません。

※その２

ファイルをpackするには
packファイル編集を使用するのではなく。
#pack
#epack

のプリプロセッサ命令を使用しつつ

ctrl+F9 の [実行ファイル自動生成]のメニューを使用する事をお勧めします。