Y ye802808 Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-21 #1 gear1023 朋友:我昨天照你的方法做了一個從一台機器向另一台機器發送信息的東東,但是現在問題多多!就是每次發送的信息后面它都會帶上一些亂碼!積分我已給你20了,這個問題幫我再搞搞(1分)<br />如題
gear1023 朋友:我昨天照你的方法做了一個從一台機器向另一台機器發送信息的東東,但是現在問題多多!就是每次發送的信息后面它都會帶上一些亂碼!積分我已給你20了,這個問題幫我再搞搞(1分)<br />如題
东 东兰梦舞 Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-21 #2 NET_API_STATUS NetMessageBufferSend( LPWSTR servername, LPWSTR msgname, LPWSTR fromname, LPBYTE buf, DWORD buflen ); 我发现MSDN中的内容与上面gear1023朋友说的不同。 参数buf都是字节指针,buflen是字节长度 我试一下
NET_API_STATUS NetMessageBufferSend( LPWSTR servername, LPWSTR msgname, LPWSTR fromname, LPBYTE buf, DWORD buflen ); 我发现MSDN中的内容与上面gear1023朋友说的不同。 参数buf都是字节指针,buflen是字节长度 我试一下
东 东兰梦舞 Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-21 #3 刚才出去了一会。 他的声明是对的。 我写了下面的程序,信息正常 procedure TForm1.Button1Click(Sender: TObject); var msgto, msg: WideString; len: Integer; begin msgto := '127.0.0.1'; msg := 'ok?可以吗?'; len := Length(msg) * SizeOf(WideChar); NetMessageBufferSend(nil, @msgto[1], nil, @msg[1], len); end;
刚才出去了一会。 他的声明是对的。 我写了下面的程序,信息正常 procedure TForm1.Button1Click(Sender: TObject); var msgto, msg: WideString; len: Integer; begin msgto := '127.0.0.1'; msg := 'ok?可以吗?'; len := Length(msg) * SizeOf(WideChar); NetMessageBufferSend(nil, @msgto[1], nil, @msg[1], len); end;