局域网中异步传递信息可用实例(大富翁中找到的源代码不同程度上存在错误，无法使用)(0分)

kyq · 2002-09-10

以下是局域网中异步传递信息可用实例 (大富翁中找到的源代码不同程度上存在错误，无法使用)： 以下代码未处理退出时检查是否仍在发送的问题。 设Form1中有Memo1, Button1两个控件。 unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, SendNetMessageImpl; type   TForm1 = class(TForm, ISendNetMessageCallback)     Button1: TButton;     Memo1: TMemo;     procedure Button1Click(Sender: TObject);   private     { Private declarations }     procedure OnSendNetMessageComplete(const Succeeded: Boolean; const       FromComputer, ToComputer, FromName, Text: string);   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin   SendNetMessage(Self, 'andy', 'andy1', 'kyq', 'OK123中文321');   SendNetMessage(Self, 'andy', 'andy', 'kyq', 'OK123中文321');   SendNetMessage(Self, 'andy', 'andy2', 'kyq', 'OK123中文321'); end; procedure TForm1.OnSendNetMessageComplete(const Succeeded: Boolean;   const FromComputer, ToComputer, FromName, Text: string); begin   if Succeeded then     Memo1.Lines.Append(       Format(       'Succeeded in sending message to %s',       [ToComputer]       )       )   else     Memo1.Lines.Append(       Format(       'Failed in sending message to %s',       [ToComputer]       )       ); end; end. unit SendNetMessageImpl; interface type   ISendNetMessageCallback = interface     procedure OnSendNetMessageComplete(const Succeeded: Boolean; const       FromComputer, ToComputer, FromName, Text: string);   end; procedure SendNetMessage(const SendNetMessageCallback: ISendNetMessageCallback;   const FromComputer, ToComputer, FromName, Text: string); implementation uses   Classes; function NetMessageBufferSend(ServerName: PWideChar;   MsgName: PWideChar;   FromName: PWideChar;   Buf: PWideChar;   BufLen: integer): Integer; stdcall;   external 'netapi32.dll' type   TTrdSendNetMessage = class(TThread)   protected     _Succeeded: Boolean;     _SendNetMessageCallback: ISendNetMessageCallback;     _FromComputer, _ToComputer, _FromName, _Text: string;     procedure Execute; override;     procedure InvokeCallback;   public     constructor Create(const SendNetMessageCallback: ISendNetMessageCallback;       const FromComputer, ToComputer, FromName, Text: string);   end;   { TTrdSendNetMessage } constructor TTrdSendNetMessage.Create(   const SendNetMessageCallback: ISendNetMessageCallback;   const FromComputer, ToComputer, FromName, Text: string   ); begin   Assert(SendNetMessageCallback <> nil);   _SendNetMessageCallback := SendNetMessageCallback;   _FromComputer := FromComputer;   _ToComputer := ToComputer;   _FromName := FromName;   _Text := Text;   FreeOnTerminate := True;   inherited Create(False); end; procedure TTrdSendNetMessage.Execute;   function SendNetMessage(     const FromComputer, ToComputer, FromName, Text: WideString     ): Boolean;   begin     Result := NetMessageBufferSend(       PWideChar(FromComputer),       PWideChar(ToComputer),       PWideChar(FromName),       PWideChar(Text),       Length(Text) * SizeOf(PWideChar)       ) = 0;   end; begin   _Succeeded := SendNetMessage(     _FromComputer,     _ToComputer,     _FromName,     _Text     );   Synchronize(InvokeCallback); end; procedure TTrdSendNetMessage.InvokeCallback; begin   _SendNetMessageCallback.OnSendNetMessageComplete(     _Succeeded,     _FromComputer,     _ToComputer,     _FromName,     _Text     ); end; procedure SendNetMessage(const SendNetMessageCallback: ISendNetMessageCallback;   const FromComputer, ToComputer, FromName, Text: string); begin   TTrdSendNetMessage.Create(     SendNetMessageCallback,     FromComputer,     ToComputer,     FromName,     Text     ); end; end.

kyq · 2002-09-11

如果要同步发送，直接使用下面的代码就可以了： function NetMessageBufferSend(ServerName: PWideChar;   MsgName: PWideChar;   FromName: PWideChar;   Buf: PWideChar;   BufLen: integer): Integer; stdcall;   external 'netapi32.dll' function SendNetMessage(     const FromComputer, ToComputer, FromName, Text: WideString     ): Boolean;   begin     Result := NetMessageBufferSend(       PWideChar(FromComputer),       PWideChar(ToComputer),       PWideChar(FromName),       PWideChar(Text),       Length(Text) * SizeOf(PWideChar)       ) = 0;   end;

Boblee · 2002-09-11

kyq,你这里所说的同步与异步是什么意思？ 还有，你看了我的代码不知有没有看出来，由于NetMessageBufferSend一次最多只能传1000个字左右， 所以我在线程中就做了个循环：如果超出1000字，我就自动把它割成1000的倍数的份数，也 正是这个处理，才有线程中变量怪异的现象，对这个你有无解决方案？：）

Boblee · 2002-09-11

还有，我用你这段代码，无法发送成功： 如果要同步发送，直接使用下面的代码就可以了： function NetMessageBufferSend(ServerName: PWideChar;   MsgName: PWideChar;   FromName: PWideChar;   Buf: PWideChar;   BufLen: integer): Integer; stdcall;   external 'netapi32.dll' function SendNetMessage(     const FromComputer, ToComputer, FromName, Text: WideString     ): Boolean;   begin     Result := NetMessageBufferSend(       PWideChar(FromComputer),       PWideChar(ToComputer),       PWideChar(FromName),       PWideChar(Text),       Length(Text) * SizeOf(PWideChar)       ) = 0;   end; 不知为什么。

Boblee · 2002-09-11

用这个就可以： function TSendMsgThread.SendMsg(Toh,From,Msg:string):integer; const COPYTRIGHTPLAIN = #13#10+#13#10+'----========================----'+#13#10+                                 'Message was sended by NM Messager Explorer'; TRY_SEND_TIMERS = 3; var   ToName :array [0..64] of WideChar;   WMsgText:array [0..1000] of WideChar;   MsgLen,i,tryNum:integer; begin     Result := 1;     tryNum := 0;     for i := 0 to 64 do ToName := #0;     for i := Length(Msg)+1 to 1000 do WMsgText := #0;     Msg := Msg + COPYTRIGHTPLAIN;     StringToWideChar(Toh,ToName,i);     StringToWideChar(Msg,WMsgText,i);     MsgLen  :=  Length(Msg) * SizeOf(PWideChar);     while (tryNum < 3) and (Result <> 0) do     begin       Result := NetMessageBufferSend(                             nil,                             ToName,                             nil,                             @WMsgText,                             MsgLen);       inc(tryNum);       //sleep(2000);     end; end;

Boblee · 2002-09-11

还有，这个线程怪变量值的问题也解决了，方法是： 1。用你给的函数申明 2。给MsgLen 就这样，那个SegNum就正常了。真怪。但解决是解决了，就是不知所以然。 希望你能回一下帖。

kyq · 2002-09-11

1. NET_API_STATUS NetMessageBufferSend(     LPTSTR servername,     LPTSTR msgname,     LPTSTR fromname,     LPBYTE buf,     DWORD buflen   &nbsp

; Delphi声明应该是： function NetMessageBufferSend(ServerName: PWideChar;   MsgName: PWideChar;   FromName: PWideChar;   Buf: PWideChar;   BufLen: Integer): Integer; stdcall;   WINAPI函数NetMessageBufferSend声明有误，应该为stdcall，使用cdecl会造成stack内容混乱。    而且BufLen是应传入按字节计算的Buf长度，而不是传引用。    你也知道了，你代码中SegNum的值出错不是因为循环，而是函数调用方式错误引致的。    具体可查看Delphi帮助，直接查stdcall就可以了。 2. 至于你我用同步发送这段代码，导致无法发送成功，我也多番测试过，结果都成功。    如： 从计算机andy发送到计算机kevin，使用名称kyq，发送内容是OK123。   SendNetMessage('andy','kevin','kyq','OK123'); 3. 至于为什么用你找到的代码可以发送成功，原因如下： a. NetMessageBufferSend函数声明中BufLen错误地声明为传引用，例如变量BufLen这时的地址是$1234，               实际传给NetMessageBufferSend的BufLen的值就是$1234，一般情况下该值都比较大。 b. NetMessageBufferSend处理时会检查BufLen的值，如果BufLen大于Buf(Buf以Unicode #0字符结束)的实际长度，              就忽略BufLen，所以在BufLen足够大的情况下，BufLen可忽略。 总结，WINAPI函数NetMessageBufferSend函数调用方式有误外加原因3.a以及3.b，造成了你的代码运行时的奇怪结果。 另外， 同步就是阻塞当前线程，当前线程需要等操作完成才能继续运行。 异步就是不阻塞当前线程，当前线程继续运行，操作完成后会以某种方式通知当前线程(可选)。 例如你在某个Button的OnClick事件中同步发送消息，窗口就会停顿，直到操作完成才能继续使用， 而异步就不会导致这种现象。

kyq · 2002-09-19

接受答案了.

局域网中异步传递信息可用实例(大富翁中找到的源代码不同程度上存在错误，无法使用)(0分)

kyq

Unregistered / Unconfirmed

kyq

Unregistered / Unconfirmed

Boblee

Unregistered / Unconfirmed

Boblee

Unregistered / Unconfirmed

Boblee

Unregistered / Unconfirmed

Boblee

Unregistered / Unconfirmed

kyq

Unregistered / Unconfirmed

kyq

Unregistered / Unconfirmed

Similar threads