文章分类 - Delphi Socket
TIdTcpClient TIdTcpServer
摘要：现在将本人总结出来的TServerSocket和TClientSocket两个组件的基本用法写出来，希望与您分享。 ClientSocket组件为客户端组件。它是通信的请求方，也就是说，它是主动地与服务器端建立连接。 ServerSocket组件为服务器端组件。它是通信的响应方，也就是说，它的动作是
阅读全文
摘要：前段时间曾写了一个“用TTcpClient和TTcpServer进行文件的传输”的小代码（http://blog.csdn.net/onebigday/archive/2010/03/28/5425028.aspx）。现在回头看来那时的代码就是个错误的代码，没有真正理解TTcpClient和TTcp
阅读全文
摘要：经常有朋友提这样的问题，“我原来在delphi5或者delphi6中用的很熟的控件到哪里去了？是不是在delphi7中没有了呢？这是不是意味着我以前写的代码全都不能够移植到delphi7中来了呢？是不是我必须学习适应这些新的控件呢？” 现在我就对这一问题进行解释，并对在delphi7中的VCL以及C
阅读全文
摘要：没啥大区别 反正都是建立socket server的我反而用Tserversocket较多 delphi7有 但默认不安装 官方自己也推荐indy的较好 所以很少有人用TcpServer。 转自：https://zhidao.baidu.com/question/262933108313749085
阅读全文
摘要：问：Delphi 7 ：关于控件NMFTP 和 NMSMTPDelphi 7 找不到 NMFTP 和 NMSMTP 控件了（还是我眼花了？）NMHHTML 知道是 5 后就没了，都用 WebBrowser 控件了；那么，NMFTP 和 NMSMTP 控件呢？是不是 7开始也退役了？请老大们指示。另外找了一下，关于NMFTP 和 NMSMTP的介绍也很乱，哪位有比较清晰的使用说明呢？感谢！答：替换成indyIndy Client页下面的IdFTP和IdSMTP差别很多的，原来是fastnet的现在是indy的，呵呵出处：http://et8.net/bbs/showthread.php?t=35
阅读全文
摘要：在编制Winsocket程序的时候，要有一些必要的步骤：1、初始化Winsock动态连接库；2、建立一个Winsock对象。3、连接主机。4、和主机进行数据交流。5、关闭Socket对象6、释放Winsoket动态链接库。下面是一个使用winsock Api实现finger实现的源程序：在delphi6中调试通过。unit finger;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,winsock, StdCtrls;type TForm1 = c
阅读全文
摘要：【eNet硅谷动力专稿】在Windows操作系统的平台上，WinSock是首选的网络编程接口，用于在网络上传输数据和交换信息，它构成了Windows操作系统进行网络编程的基础。对于编写网络应用程序来说，WinSock是一门非常重要的并且必须掌握的知识，虽然现在有很多的工具如FTP程序可以在网络上传输数据和文件,但是通过WinSock编程具有更大的灵活性,因为它不需要关心网络连接的细节问题。然而用WinSock编程却相当复杂,但是在Delphi中我们并不需要直接与WinSock的API函数打交道,因在Delphi中的TClientSocket组件和TServerSocket组件封装了WinS..
阅读全文
摘要：program Server; {$APPTYPE CONSOLE} uses SysUtils, Winsock, Windows; type TParam=record TrdId:integer; Sckt:TSocket; end; //子线程函数 function ChildThrd(p:Pointer):LongInt;stdcall; var PkLen:integer; ThreadId:integer; ASocket:TSocket; buf:array[0..63] of char; begin Result:=0; ThreadI...
阅读全文
摘要：Delphi开发WinPcap程序一直是个门槛，这个代码之前在netexpert发过，但是问“如何用Delphi写网络协议分析？”、“Delphi怎么发送ARP包”这类问题的人还是大有人在。Delphi不能开发Sniffer？不能进行底层数据包收发？跨过这条门槛，一切易如反掌。转自：http://www.cnblogs.com/bits/archive/2009/03/15/delphi-winpcap_httpsniffer.html一直在考虑是否要把这几个代码拿出来，因为有些程序危害还比较大（比如ARP冲突攻击、SYN Flood那几个），留着也是留着还是拿出来开源得了。另外，虽然网上有个
阅读全文
摘要：Google搜索 NetResource 扫描弱口令，获取计算机用户列表，都要用到这个数据结构。
阅读全文
摘要：转自：http://dev.yesky.com/374/2155374.shtml刚学电脑时很喜欢网络安全，看着高手们写的一个又一个攻击工具，自己也总想努力去学好编程去写属于自己的程序。学DELPHI快一年了，感觉什么都没学到，惭愧啊。今晚突然想学着写木马，于是手忙脚乱的敲了点代码，超简单，愿自己能越写越好！！！ 程序跟传统木马一样，分服务端和客户端。运行服务端后会复制自身到SYSTEM32目录下面，并在注册表添加一自动行启动项，打开本机9626端口开始等待接收客户端的数据。当接收到客户端数据时就当作CMD命令去执行，最后把回显传送回客户端。客户端很简单，跟服务端连接成功后，输入命令点执行，.
阅读全文
摘要：做一个循环： procedure TForm1.FormCreate(Sender: TObject); var phe : PHostEnt; Buffer : array [0..255] of char; GInitData : TWSADATA; nLoop: Integer; begin WSAStartup($101, GInitData); for nLoop := xx to yy do //网段xx~yy begin Buffer:= Chr(x) + ...
阅读全文
摘要：IdTcpServeruses IdContext //需要引用属性,方法：IdTCPServer.Active :=True; //开启服务器IdTCPServer1.Bindings.Add.IP := '127.0.0.1';//绑定IPIdTCPServer1.Bindings.Add.Port := 7956;//绑定端口事件:OnConnect : 客户端连接成功触发OnDisConnect : 客户端断开触发OnExeCute : 收到客户端数据触发例子//像所有客户断发送数据varI: Integer;Context: TIdContext;beginwith
阅读全文
摘要：function PingAlive(const AHost: string; const ATimeout: Cardinal = 1000): boolean; var IdIcmpClient: TIdIcmpClient; begin try IdIcmpClient := TIdIcmpClient.Create(nil); IdIcmpClient.ReceiveTimeout := ATimeout; //設定回應的等候時間 IdIcmpClient .Host := AHost; Result := true; try IdIcmpClient.Ping; except Res
阅读全文
摘要：DELPHI下的SOCK编程 本文是写给公司新来的程序员的，算是一点培训的教材。本文不会涉及太多的编程细节，只是简单讲解在DELPHI下进行Winsock编程最好了解的知识。 题外话：我认为学习编程就如同学习外语一样，最好的方式是你先学会如何去运用它，然后才是了解它的语言特性、语法之类的东西。不过很可惜，我们以前的外语教育使用了相反的过程。软件编程也是一样，在很多人的大学阶段，你更多的是学习那些理论知识，学习“语法”，这里，我丝毫没有贬低理论知识重要性的意思。理论知识和实践是相辅相成的，但一个恰当的学习方式，很多时候可以让学习者得到事半功倍的效果。例如你学习《数据结构》中排序的概念，我们假设对
阅读全文
浙公网安备 33010602011771号