ab.com コミュニティ

重ね重ねご指導ありがとうございました。MakeStr　こんな関数があったのですね。ヘルプで確認しました。閲覧して下る方が多いのには驚きました。今後ともよろしくお願いいたします。

問題ありません。BytePtrからStringへは自動的に変換されます。
ちなみにString型変数を経由せずともPrint MakeStr(buffer)としても文字列を表示させることができます。

ありがとうございました。
アドレスの図はどこかで見たような気がします。なんとなく分かったような感じです。
　それから「strText=buffer」左辺と右辺の型が違うのですがこんなことをしていいですか？
（エラーにはなりませんでしたが）

ActiveBasicの文字列を扱う基本関数は、String型のみサポートしているようです。

String型は最初の４バイトを文字列の長さとして、データを保持するようです。
その為、StrPtr()関数で返すポインターは、String型の4byte目を返します。 残念ながら、バッファーを4バイト目から使用しても、変数の型チェックで
String型とＡＢ判定が判断出来ない為、標準関数では表示できません。

MsgBoxはWinAPIなのでStrPtr()またはBytePtrで文字列を指定する必要があります。

ちょっと難しいでしょうか？

テキストファイル「test.txt」をBasic Promptに表示させる下のようなものを作ってみました。
メッセージボックスではうまく表示されるのに　print buffer では数字が表示されるだけで駄目でした。
そこで Strjng型の変数を作って下のようにしたら表示できましたがこれでよいでしょうか？
MessageBox関数の第2パラメータの文字列とprint命令語の文字列との違いがわかりません。
#N88BASIC
Dim path[MAX_PATH] as Byte
Dim hFile as DWord
Dim FileSize As Long
Dim buffer as BytePtr
Dim dwAccessByte As DWord
Dim hWnd As DWord
dim strText as String '表示する文字列

hFile=CreateFile("test.txt",GENERIC_READ,0,ByVal 0,OPEN_EXISTING,0,0)
If hFile<>INVALID_HANDLE_VALUE Then
FileSize=GetFileSize(hFile,0)
buffer=malloc(FileSize+1)

ReadFile(hFile,buffer,FileSize,VarPtr(dwAccessByte),ByVal 0)
buffer[dwAccessByte]=0
CloseHandle(hFile)

'MessageBox(0,buffer,"ファイルの内容",MB_OK)

strText=buffer
print strText

free(buffer)
End If