你启动scktsrvr了吗?
再检查一下你的网络通不通!
在网上邻居你能见到ser_comp计算机吗?
还有SocketConnection1.Servername对不对?

解决方案 »

  1.   

    我都没用意外处理,当没连接上时,程序提示socket bind错误。
    可能你的系统有问题吧,应该不会有错的
      

  2.   

     MainForm.SocketConnection1.Host:=ser_comp;
     try
       MainForm.SocketConnection1.Connected:=True;
     except
     application.messagebox('连接失败','提示....)  
    这样试试
      

  3.   

    try
      MainForm.SocketConnection1.Connected:=True;    //当这个连接失败时无法执行下面的
    except
    application.messagebox('连接失败','提示....)  这样我如何判断到期是否连接成功。而且整个程序就死在那里。
      

  4.   

    不会吧,我的程序就是这样写的,没有任何问题,我把我代码贴出来了吧
     MainForm.SocketConnection1.Host:=regfs;
            try
                MainForm.SocketConnection1.Connected:=True;
            except
                mForm:=TChangeServer.Create(Application); //改变服务端的机器名
                mForm.ShowModal;
            end;
      

  5.   

    为什么我也是一样,那你的socketconnection是否的进行其它的设置。
    我试了好几台机子,都一样我用的是win98的机子有关系吗?
    而且我将delphi6的调试窗口也关了可还是一样的。
      

  6.   

    我将这段代码放在delph5下都有正常了,可现在我用的是delph6的就不行,
    那我现在怎么办?快救救我吧!
      

  7.   

    我现在用的是Delphi5,你运行在delphi6上,怪不得出错,不过到底为什么我也不太清楚。
    从我的感觉上来看,并不是什么设置有问题,socket又不像dcom那么难配置,简单易用,再说了你的语法也没有问题,会不会是delphi6的try..expert不同于delphi5(只是猜测),你可以看一下delphi6的try..expert语法的帮助,还socketconnection的一些属性,方法与以前有什么不同。
    祝你好运了!!!
      

  8.   

    没看出有什么不同,
    使用try ..except 同样这句在d5要是出错最不超过1分钟就提示了,可是用d6最少要20分钟,
    你说气人不气人。