求用delphi7设计的socket客户端的方法，并实现通过socket接口发字符串的功能，包括具体源码和编写过程，我是菜鸟，谢谢

由于数据库开发过程中用到了socket接口，才开始接触delphi的，所以几乎什么都不懂，上网找到源码竟然因为每月定义部分，而又不知道delphi中的变量类型定义而无法完成功能，请大侠多多指教啊

解决方案 »

  1.   

    废话，怎么可能没有先google过；查到delphi低版本的有函数TCPClient.Socket.Sendtext('文本内容'），但delphi7并不能编译，估计函数有所不同；google了好久都不到啦
      

  2.   

    支持brightyang 、小乖 自己先学GOOGLE、baidu吧。学会做人吧。
      

  3.   

    d7 新带的 tcpserver/tcpclient 不好用
    tools->component->install packages ->add $delphi\bin\dclsockets.bpl把原来的socket加进来
    你 google, serversocket&clientsocket 知道的就不少了顺便广告一下我正在写的另一个 socket 开源组件,基本上可以代替 ServerSocket/ClientSocket
    http://sourceforge.net/projects/uvc/
    支持更多的线程模型, SocketPerThread/FDSetPerThread/RequestPerThread
    支持更大量的socket, FDSetPerThread/RequestPerThread支持不低于60k以上的连接数, ServerSocket最多2k(是因为windows线程限制)
    支持 SOCKS 代理, 目前只有socks4a连接
      

  4.   

    嘿嘿！
    粗略看起来，的确，用“google一下一大堆....”来回答一些看似简单的技术问题确实没有什么不正常，但是，亲爱的朋友们，若你们自己再想一想分析一下，就会很自然地认识到，在CSDN论坛，简单地以“google一下一大堆....”来回复版面提问是多么可笑！多么荒谬了！首先，这是一个看似普遍的问题的确，而且也许多少搞一点delphi的都能做！但是，你们要清楚，在这里提问的，是一个此前根本都没接触过delphi编程的新警察，不得已而用delphi才刚刚补习过delphi的几页入门书本，凭着以往用其他编程语言的经验飞快地在接收着全新地知识，对delphi的一些更细节的规则用法还根本不了解，你说google可以查，鬼不知道google可以查咩，问题是查到的答案不少，都不能解决问题，不清楚为什么，所以才来这里问的啊！你说“问题本来就很简单”，可是你都没有进一步搞清楚为什么“看似简单的问题查google、baidu之后还不能解决”，不搞清楚到底提问者是哪个环节出了问题，就妄言什么“楼主的问题相当简单，不过，大家都不想理你"真是可笑之极了！其次，为什么查了google都不能解决问题呢？难道真想是某人枉自认为的提问着不知道利用google，baidu作为搜索工具吗？竟然还要提问者“自己先学GOOGLE、baidu。学会做人。”首先，请说这话的人明白一个真理：几乎根本没有google、baidu查询不到的问题，关键是“查询的方法”！搜索对了关键字方式的人很容易利用google找到答案的，但是要首先要查询者真的对自己不懂的地方全面了解，这一点没有人能完全做到，人总是会碰到自己不懂其然也不懂其所以然的时候，因此才要通过google外的其他方式解决，因此才会有CSDN这样一个论坛给别人传道、授业、解惑和交流。在这个方面你或许是专家，在其他地方，你也有完全不懂需要人家帮忙的时候，CSDN才有存在的价值。而只会回答“google一下一大堆....”，甚至连google到的东西内容都不愿意分享一下，看看是否是提问者要求的答案的人，这种答复是不是“废话”！这种不负责任敷衍了事的做法，到底谁需要先“学会做人”！到底是谁“不厚道”了！最后，CSDN作为开发性自由论坛，是向对相关问题各方面层次的人自由开放的友好论坛， 竟然出“问题简单”就“大家都不想理你” 的论调，这决不是一个具有程序员精神的人说出来的话，至少这话在这个论坛里面决不显得“豁达、坦荡”！一定要补充得是，特别鸣谢comanche同志，您可能帮我找出了问题的真正症结，也许正是因为我的delphi版本是7的版本，因此网上查到的很多函数方法都不能直接用；您教我增加dclsockets.bpl的思路，让我豁然开朗，原来delphi这种东西还有这种机关，作为初学者，恐怕我不了解这一点，google查死都不能解决问题，明天我去公司试试！作为稍微有点delphi基础的人或许会笑我，连这个dephi的“基本方法”都不懂，但请你们也要回忆起当你们初学一个新语言，而身边又没有人问的时候，那连一些也许是最基本的原理都不熟悉的那个困惑与无助的阶段。而且涉及winsocket的原理和编程我也是第一次呢。
      

  5.   

    谢谢大家，问题解决；添加了socket的package，用indy，用write语句可以发送了，谢谢你们