ab.com コミュニティ

[quote]Bオフィシャルユーザーズガイド3.1.0のテキストエディタを作るで「メール送信機能を作る」に従ってコードを作成しましたが、下記のWindowsのエラーが出てしまいます。Codeは7月4日付のゲストさんが示されているのと同じです。ABのバージョンはは4.11.01です。OSはXp HomeE Sp2 です。
また別の質問ですが Sinryowさんが7月8日に書いておられる変数Recvtempの意味と型と宣言する場所はどこでしょうか？[/quote]
あぁ、それは僕が個人的にメール送信のログを取るために定義した変数です。関係ないです。

[quote]"0x00406544"の命令が0x0016b000のメモリを参照しました。
メモリがreadになることは出来ませんでした。"

接続を繰り返すと数字とreadがwrittenに変わったメッセージが出ます。
たびたびお手数をかけますがお願いいたします。[/quote]あまり分かりませんですが、多分アクセス違反でしょうかね。一度コードを見直してください。
あと、あのメール送信サンプルは送信するコマンドがおかしいので...。

Bオフィシャルユーザーズガイド3.1.0のテキストエディタを作るで「メール送信機能を作る」に従ってコードを作成しましたが、下記のWindowsのエラーが出てしまいます。Codeは7月4日付のゲストさんが示されているのと同じです。ABのバージョンはは4.11.01です。OSはXp HomeE Sp2 です。
また別の質問ですが Sinryowさんが7月8日に書いておられる変数Recvtempの意味と型と宣言する場所はどこでしょうか？

"0x00406544"の命令が0x0016b000のメモリを参照しました。
メモリがreadになることは出来ませんでした。"

接続を繰り返すと数字とreadがwrittenに変わったメッセージが出ます。
たびたびお手数をかけますがお願いいたします。

> もう一つ修正箇所がありました。（ポカが多いなぁ。笑）
> 他のコードを流用したため、不要な部分がありました。
> そのままでも動くのですが、コードを参考にされる方もいると思いますので、
> 一応書いておきます。
> ２バイト文字の文字コードには、タブのコードが入ることはありませんので、
> IsDBCSLeadByte は、不要です。
そうなんですか。修正しておきます～。

もう一つ修正箇所がありました。（ポカが多いなぁ。笑）
他のコードを流用したため、不要な部分がありました。
そのままでも動くのですが、コードを参考にされる方もいると思いますので、
一応書いておきます。
２バイト文字の文字コードには、タブのコードが入ることはありませんので、
IsDBCSLeadByte は、不要です。

> もうひとつ抜けがありました。
> 2つ目の Whileブロックの Wend 行の後に、
> pszDest[k] = 0 を追加しといてください。
> ABでは、calloc（APIのラッパ）は、確保したメモリを
> 0クリアするようになっているので、毎回メモリ確保するか
> クリアすれば問題ないですが、そのまま使いまわしたりすると
> エラーになります。（あのコードでは）
ありがとうございました。

もうひとつ抜けがありました。
2つ目の Whileブロックの Wend 行の後に、
pszDest[k] = 0 を追加しといてください。
ABでは、calloc（APIのラッパ）は、確保したメモリを
0クリアするようになっているので、毎回メモリ確保するか
クリアすれば問題ないですが、そのまま使いまわしたりすると
エラーになります。（あのコードでは）

>メール送信問題は、解決しているので、新たな問題は、
>別に質問を起こしたほうが良いかもしれません。
僕の中では解決していないと思ったからです。

Absさん、ありがとうございました。おかげでうまくいきました。
ＯＥでタブを半角スペースに変換するということはそれなりの理由があるからだと思います。
Mario2さん、Absさんここまで返信していただき、ありがとうございました。

コードとは、関係ないですが、タブは、columnでした。
失礼しました。VBAでもたまに間違えます。(笑)

If n = 0 Then Exit Sub
を、
If n = 0 Then Goto *ExitTag
に変更してください。

Sub MainWnd_CommandButton1_Click()
	Const NUM_TABROWS = 4
	Dim i As Long
	Dim n As Long
	Dim nLen As Long
	Dim pszDest As *Byte
	Dim pszSrc As *Byte

	nLen = GetWindowTextLength( GetDlgItem(hMainWnd, EditBox1) )
	If nLen = 0 Then Exit Sub
	pszSrc = calloc(nLen + 1)
	If pszSrc = NULL Then Exit Sub
	If GetWindowText(GetDlgItem(hMainWnd, EditBox1), pszSrc, nLen + 1) = 0 Then Goto *ExitTag

	'文章中のタブ数を数える。
	While i < nLen
		If IsDBCSLeadByte( pszSrc ) Then
			i = i + 1
		ElseIf pszSrc = 9 Then
			n = n + 1
		End If
		i = i + 1
	Wend	
	
	If n = 0 Then Exit Sub
	pszDest = calloc(nLen + (n * NUM_TABROWS) + 1)
	If pszDest = NULL Then Goto *ExitTag

	Dim k As Long

	'全ての文章データを、1バイトずつ検証してタブなら半角空白に置き換える。
	i = 0
	While i < nLen
		'全角文字（2バイト）の先頭なら、2バイト分をコピー。
		If IsDBCSLeadByte( pszSrc ) Then
			memcpy(pszDest + k, pszSrc + i, 2)
			k = k + 2
			i = i + 1
		'タブなら、タブの列数分の半角空白をコピー。
		ElseIf pszSrc = 9 Then
			lstrcpy( pszDest + k, String$(NUM_TABROWS, " ") )
			k = k + NUM_TABROWS
		'半角文字なら、1バイト分をコピー。
		Else
			pszDest[k] = pszSrc
			k = k + 1
		End If
		i = i + 1
	Wend

	SetWindowText(GetDlgItem(hMainWnd, EditBox1), pszDest)
	MsgBox 0, Str$(n) + " 個のタブを置き換えました"

*ExitTag
	If pszSrc Then free(pszSrc)
	If pszDest Then free(pszDest)	
End Sub

以下のサンプルで試してください。
EditBox1 内の文章にタブがあれば空白に変換して更新します。
# メール送信問題は、解決しているので、新たな問題は、
別に質問を起こしたほうが良いかもしれません。

[code]Sub MainWnd_CommandButton1_Click()
Const NUM_TABROWS = 4
Dim i As Long
Dim n As Long
Dim nLen As Long
Dim pszDest As *Byte
Dim pszSrc As *Byte

nLen = GetWindowTextLength( GetDlgItem(hMainWnd, EditBox1) )
If nLen = 0 Then Exit Sub
pszSrc = calloc(nLen + 1)
If pszSrc = NULL Then Exit Sub
If GetWindowText(GetDlgItem(hMainWnd, EditBox1), pszSrc, nLen + 1) = 0 Then Goto *ExitTag

'文章中のタブ数を数える。
While i < nLen
If IsDBCSLeadByte( pszSrc[i] ) Then
i = i + 1
ElseIf pszSrc[i] = 9 Then
n = n + 1
End If
i = i + 1
Wend

If n = 0 Then Exit Sub
pszDest = calloc(nLen + (n * NUM_TABROWS) + 1)
If pszDest = NULL Then Goto *ExitTag

Dim k As Long

'全ての文章データを、1バイトずつ検証してタブなら半角空白に置き換える。
i = 0
While i < nLen
'全角文字（2バイト）の先頭なら、2バイト分をコピー。
If IsDBCSLeadByte( pszSrc[i] ) Then
memcpy(pszDest + k, pszSrc + i, 2)
k = k + 2
i = i + 1
'タブなら、タブの列数分の半角空白をコピー。
ElseIf pszSrc[i] = 9 Then
lstrcpy( pszDest + k, String$(NUM_TABROWS, " ") )
k = k + NUM_TABROWS
'半角文字なら、1バイト分をコピー。
Else
pszDest[k] = pszSrc[i]
k = k + 1
End If
i = i + 1
Wend

SetWindowText(GetDlgItem(hMainWnd, EditBox1), pszDest)
MsgBox 0, Str$(n) + " 個のタブを置き換えました"

*ExitTag
If pszSrc Then free(pszSrc)
If pszDest Then free(pszDest)
End Sub[/code]

返信遅れてすみません。
考えてみたのですが、半角や全角スペースなどは再現されています。
なので、タブはスペース４つ分なのでタブをスペースに変換できたら
いいと思うのですが。
自分の技量ではまだできないのでよければ教えていただきたいです。

再度 OEを復旧して調べてみましたが、仕様のようです。
設定も見ましたが、それらしい物も見つかりませんでした。
"メッセージはすべてテキスト形式で読み取る(R)" を有効にすると、
本文表示欄は、RichEdit20W になり、無効にすると、
Internet Explorer_Server に切り替わります。
なお、OEでタブを入力した場合は、半角空白に変換されていました。

> コード変更前に、以下の事を試してみてください。
>
> １．Outlook Express でタブ入り文章を、テキスト形式で送信する。
> ２．□ メッセージはすべてテキスト形式で読み取る(R)　のチェックを外す。
> ３．送ったメールを受信してみる。
>
> サンプルでは、テキスト形式が送信されてない為、
> Outlook Express は、HTMLをデフォルトとして使用するのかもしれません。
早速やってみました。
そうすると、メーラーへの貼り付けの時点でタブの間隔が狭くなり、それを受信するとそのままでした。
なお、そのソースを見ると以下のようになっていました。

MIME-Version: 1.0
Content-Type: text/plain;
format=flowed;
charset="iso-2022-jp";
reply-type=original
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2900.2527
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2527

以上です。

コード変更前に、以下の事を試してみてください。

１．Outlook Express でタブ入り文章を、テキスト形式で送信する。
２．□ メッセージはすべてテキスト形式で読み取る(R)　のチェックを外す。
３．送ったメールを受信してみる。

サンプルでは、テキスト形式が送信されてない為、
Outlook Express は、HTMLをデフォルトとして使用するのかもしれません。

> TextEditorのプログラムを変えるとできるのでしょうか...。
文章形式を送信すれば、出来るかもしれません。