ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2018年8月15日(水) 13:48

All times are UTC+09:00




新しいトピックを投稿する  トピックへ返信する  [ 8 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2011年6月17日(金) 17:52 
毎度、お世話になります。

 BytePtr型変数の初期化で「全角のみ」正しく格納されません。

 突然と言いますか、気が付いたらこの様な現象が起こっていました。
と言うのも過去の物を見ても同じ使い方をしているのですが、何の問題も無く正しく格納されています。

何が原因なのでしょうか?

宜しくお願いします。


 MainWnd内のモジュールやプロシージャレベルは、問題なく格納されますが
インクルードファイルのモジュールやプロシージャレベルでは、「全角のみ」
正しく格納されません。

 又、インクルードファイル内での変数の初期化時に "ク" が有るとコンパイラが固まります。
Dim item1[1]= ["Active", "ベーシック"] As *Byte 'NG

 以前、「バグ報告」で、文字によって初期化出来ない・・・。 様な事が在りましたが、
それとは、また違うのでしょうか?

題名: BytePtr 型の初期化でコンパイラが固まる
http://www.activebasic.com/forum/viewto ... 37184a2e03


[Active Basic Ver 4.24.00 使用] (因みに Ver 5.00 cp3 も同様でした)

[hide=ex code]
'-----------------------------------------------------------------------------
' イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。

#include "Test.sbp"

Sub MainWnd_CommandButton1_Click()

Dim item1[1] = ["Active", "ベーシック"] As *Byte 'OK
Dim item2[1,1] = [["0-1", "0-2"],["1-1", "1-2"]] As *Byte 'OK

Test()
debug

End Sub

'-----------------------------------------------------------------------------
'Test.sbp

Function Test() As Long
Dim item1[1] = ["Active", "ベーシッ"] As *Byte 'NG
Dim item2[1,1] = [["0-1", "0-2"],["1-1", "1-2"]] As *Byte 'NG

debug
End Function

'-----------------------------------------------------------------------------
[/hide]


通報する
ページトップ
   
 記事の件名: 確認しましたが
投稿記事Posted: 2011年6月19日(日) 10:36 
オフライン

登録日時: 2006年2月05日(日) 17:10
記事: 192
住所: 東京都
確認しましたが、提示されたソースコードは問題ありませんでしたが?
コンパイルできましたし、実行も見た目問題ないようです。
詳しく検証していませんが?

動作環境は
WINDOWS XP
WINDOWS 7 HOME
 いずれも X86です。

確認対象は
AB V4.24
AB V05CP3

>以前、「バグ報告」で、文字によって初期化出来ない・・・。 様な事が在りましたが、それとは、また違うのでしょうか?
>題名: BytePtr 型の初期化でコンパイラが固まる

上記の件は対応済みと思われますので違うと思います。
ちなみにWINDOWSのバージョンはなんでしょうか?

ここにテストしたソースコードを提示します。
[hide]
コード:
'-----------------------------------------------------------------------------
'  イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。


'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
	' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。

	' イベントプロシージャの呼び出しを行います。
	MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function


'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。
#include "Test.sbp"

Sub MainWnd_CommandButton1_Click()

    Dim item1[1]   = ["Active", "ベーシック"] As *Byte    'OK
    Dim item2[1,1] = [["0-1", "0-2"],["1-1", "1-2"]] As *Byte    'OK

    Test()
debug

End Sub


Sub MainWnd_Destroy()
	TEST_DestroyObjects()
	PostQuitMessage(0)
End Sub
'Test.sbp

Function Test() As Long
    Dim item1[1]   = ["Active", "ベーシッ"] As *Byte        'NG
    Dim item2[1,1] = [["0-1", "0-2"],["1-1", "1-2"]] As *Byte    'NG

debug
End Function

[/hide]


通報する
ページトップ
投稿記事Posted: 2011年6月19日(日) 17:54 
かせ様、ありがとう。
お世話になります。

>ちなみにWINDOWSのバージョンはなんでしょうか?
WINDOWS XP SP3 です。


 原因は、「文字化け」見たいです。

Active Basic Ver 3.13 で Test.sbp(インクルードファイル)を見たところ

Dim item1[1] = ["Active", "ベーシック"] As *Byte
Dim item2[1,1] = [["0-1", "0-2"],["1-1", "1-2"]] As *Byte
と、成るべきところ

Dim item1[1]= ["・。・・ス費ス会ス厄ス・, "繝吶・繧キ繝・] As *Byte
Dim item2[1,1] = [["0-・・, "0-・・],["・・1", "・・2"]] As *Byte
と、成っている。(格納されていた文字列)

又、コメントは全て「文字化け」しています。

Ver 4.24 や メモ帳(notepad.exe)で見ても、「文字化け」せず見えているのですが、
どうすれば良いのでしょう?


宜しくお願いします。


通報する
ページトップ
   
 記事の件名: お詫び
投稿記事Posted: 2011年6月19日(日) 18:56 
ご免なさい。
たかせ様、お名前間違いました。


通報する
ページトップ
   
 記事の件名: 申し訳ありませんが
投稿記事Posted: 2011年6月19日(日) 21:31 
オフライン

登録日時: 2006年2月05日(日) 17:10
記事: 192
住所: 東京都
申し訳ありませんがVER 3.13は現在入手できず確認できません。
VER 3.10で確認しましたが問題ありませんでした。


通報する
ページトップ
投稿記事Posted: 2011年6月19日(日) 22:46 
お世話になります。
たかせ様、ありがとう。

>VER 3.10で確認しましたが問題ありませんでした。
 Ver 4.24 で正常なら VER 3.xx でも同じだと思います。

 Ver 3.13 で Test.sbp(インクルードファイル)を編集したものをコピーして、
Ver 4.24 で使用したところ、正常でした。
しかし、Ver 4.24 で保存し直すと同じ事になります。


宜しくお願いします。


通報する
ページトップ
   
投稿記事Posted: 2011年6月19日(日) 23:07 
オフライン

登録日時: 2006年2月05日(日) 17:10
記事: 192
住所: 東京都
WIN-XP(たぶんWIN-7も同様?)では再現できませんでした。
なのでVer 4.24またはV05CP3を使用したほうがいいかもしれませんね。

>  Ver 3.13 で Test.sbp(インクルードファイル)を編集したものをコピーして、
> Ver 4.24 で使用したところ、正常でした。
> しかし、Ver 4.24 で保存し直すと同じ事になります。


通報する
ページトップ
 記事の件名: 文字化け 見たい?
投稿記事Posted: 2011年6月20日(月) 00:08 
お世話になりました。
たかせ様、色々試して頂き、ありがとう御座いました。

原因が解り次第、報告します。

また、宜しくお願いします。


通報する
ページトップ
   
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 8 件の記事 ] 

All times are UTC+09:00


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[1人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by KONISHI Yohsuke