NetMessageBufferSendを使うには (ID:2029)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 なぜかパソコンが復旧しましたので、 にしのさんの言われるとおりやってみました。 しかし、'Byte'と'Char'には互換性が・・・のエラーが出ます。 なぜなのでしょうか？ 発生する場所は、NetMessageBufferSend(nil,'To','み〜ちゃん',buff,buflen←■ここ■); ちなみに変数を何も使用せず NetMessageBufferSend(nil,'To','み〜ちゃん','testmessage',64); とやってみましたが、メッセージが文字化けしてきちんと表示されませんでした。 そのため、試行錯誤の上、下のようにやったのですが、、、、 解決策を教えてください。 procedure TForm1.Button1Click(Sender: TObject); var msg:string; buff:PBYTE; buflen:DWORD; begin msg:=memo1.Text; buflen:=length(msg)*2; getmem(buff, buflen+1); stringtowidechar(msg, LPWSTR(buff), buflen); NetMessageBufferSend(nil,'To','み〜ちゃん',buff,buflen); freemem(buff,buflen+1); end;