我做了了一个局域网五子棋对战游戏,出现了问题，源代码在此，请各位调试，校正错误！（100分！！！）

Question

先看看再说，你的是以tcp/ip协议为通信基础吧。

Answer 1

原贴主回复：多试几次就可，163的空间有点不稳定，你可以直接下载源代码：
http://go8.163.com/eboysclub/five_q.zip
用FlashGet
谢谢了！！！

Answer 2

email me: [email protected]

Answer 3

me too..    [email protected]

Answer 4

原贴主回复:
请不要用IE打开http://go8.163.com/eboysclub/five_q.zip，目前网易免费个人主页系统暂停从其他主页系统对本系统非html页面的引用，用下载工具载（比如用FlashGet，复制该URL后再直接添加任务即可下载）
谢谢大家的热心帮助!!如果您发现了错误的原因请在此回复，本人不胜感激！！
当然还有给您的100分！！！

Answer 5

你发过来的源码IdIPWatch是包含在哪个控件包的？给我发过来吧

Answer 6

原贴主回复:
IdIPWatch控件事Delphi6.0集成的，在Indy Misc选项卡上

Answer 7

shit！我习惯用delphi 5.0,网上有6.0的下栽吗？

Answer 8

我把 IdIPWatch.pas and IdIPWatch.dcu 做成压缩包给你
http://go8.163.com/eboysclub/IdIPWatch.zip

Answer 9

原贴主再次补贴:
各位大虾实在不好意思，这个程序我没有加注释,所以造成了一些阅读的困难，所以我特意加了注释重新上传到
http://go8.163.com/eboysclub/five_q.zip
请各位热心的大虾重新下载，帮帮我这个初学者

Answer 10

为什么还没有人回答？
CSDN没有高手吗？

Answer 11

错误原因：
    模块：DrawGrid1MouseDown过程中001 if iswin then
002   begin
003    sndPlaySound('ctwin.wav',SND_FILENAME or SND_SYNC);
004    showmessage('You Win!!');
005    initDrawGrid;
006    NMUDP1.RemoteHost:=hisIP;
007    stream:=TMemoryStream.Create;
008    stream.Write('Win',Length('Win'));
009    NMUDP1.SendStream(stream);
010    isNext:=False;
011    isBlack:=False;
012    Memo1.Lines.Add('这局让对方先下！');
013    stream.Free;
014   end
015   else
016   begin
017    Memo1.Lines.Add('轮到对方走了！');
018    stream:=TMemoryStream.Create;
019    isNext:=False;
020    stream.Write(data[1],Length(data));
021    NMUDP1.RemoteHost:=hisIP;
022    NMUDP1.SendStream(stream);
023    stream.clear;
024    stream.Write('Next',Length('Next'));
025    NMUDP1.RemoteHost:=hisIP;
026    NMUDP1.SendStream(stream);
027    stream.Free;
028   end;  第021行中，hisIP为空串，执行021行后使NMUDP1.RemoteHost为空串导致。
第006行也有同样的错误。解决方法：   在Button1Click模块中
001  if Edit3.Text <>'' Then
002  begin
003   stream:=TMemoryStream.Create;
004   str:='Start';
005   stream.Write(str[1],Length(str));
006   NMUDP1.RemoteHost:=Edit3.Text;
007   NMUDP1.SendStream(stream);
008   stream.Free;
009  end;
   第006行前插入hisIP := Edit3.Text;

Answer 12

我10年前在学校里用pascal写了在vax机上的围棋，象棋，黑白棋等
围棋是可以通过不同终端对战的，黑白棋可以和电脑对战
不知道现在还有没人感兴趣

Answer 13

贴主回复:
谢谢openeyes(醒醒)的回答，我去调试一下