Delphi ServerSocket,ClientSocket示例 2008-05-09 16:20 Delphi TServerSocket,TClientSocket实现传送文件代码 1.建立两个工程Server及Client, 分别放TServerSocket及TClientSocket控件,Demo,Edit控件等. 2.设置TServerSocket name为 SS, ServerType为stNonBlocking,TClientSocket name为cs,ClientType…

package j2se.core.net.tcp; import java.io.DataOutputStream;import java.io.IOException;import java.net.ServerSocket;import java.net.Socket; public class Server { public static void main(String[] args) throws IOException { ServerSocket server = new Ser…

var Form : IHTMLFormElement ; D:IHTMLDocument2 ; begin with WebBrowser1 do begin D := Document as IHTMLDocument2; Form := D.Forms.item( ) as IHTMLFormElement; //form1为表单名 //title为表单中的文本框 (form.item( ) ); (form.item( ) ); (form.item( ) as IHTMLElement…

新建Webbroker项目: 选择类型: 开始可以使用:Indy VCL Application 方便调试,完成后,再新建一个DLL 项目,引用业务单元.   示例代码如下: unit uDataModuleMain; interface uses   SysUtils, Classes, HTTPApp, HTTPProd; type   TWebModule2 = class(TWebModule)     ppTest: TPageProducer;     procedure ppTes…

自:http://www.delphibbs.com/keylife/iblog_show.asp?xid=20713 ================================================================ -- :: xml基础操作实例,因为刚开始学,如果有不对的地方,请批评指正,代码如下: unit XMLOptionUnit; //===========================================================…

unit TcpSCDemo;//最简单的TTcpServer与TTcpClient通信实例-Delphi //Borland推出TTcpServer与TTcpClient作为主要的网络通信控件,意味着这两个控件有很大的优越性,//但是有关这两个控件的资料非常少见,很多人都在问一个相同的问题:TcpServer怎么样向TcpClient发送数据?//网上的回答千奇百怪,归纳起来有三种://1.参考delphi自带的netchat.例子中TcpServer只收不发,答题得分0.//2.用indy或…

示例代码已经放出!请移步使用delphi+intraweb进行微信开发1~4代码示例进行下载,虽为示例代码但是是从我项目中移出来的,封装很完备适于自行扩展和修改. 在上一讲当中我做了个简单的微信文本消息回显应用,当时是以微信明文方式实现的,其实微信推荐的是消息应该加密传输以增加安全性,所以这讲说说微信消息的加解密. 在微信的帮助页面上可以下载微信消息加解密的例程,可惜的是没有Delphi语言的示例,网上搜索一番,没有人贡献出写好的Delphi版的微信加解密算法单元,好在有官方示例的C#版的,那就…

让Delphi的DataSnap发挥最大效率 让Delphi的DataSnap发挥最大效率 一个DataSnap的应用程序由两个层组成: DataSnap服务器,它有一个带有一个或者更多DataSetProvider组件的远程数据模块:DataSnap客户端,它带有一个xxxConnection组件和一个或者多个连接到DataSetProviders的ClientDataSets. 你可以不使用ClientDataSet而换用XMLBroker组件,后者是专门用在InternetExpress…

Delphi Win API函数 操作帮助文件 HtmlHelpA函数介绍 函数原型:HWND HtmlHelpA( HWND hwndCaller, LPCSTR pszFile, UINT uCommand, DWORD_PTR dwData ); Delphi 中引用:function HtmlHelpA (hwndcaller:Longint; lpHelpFile:string; wCommand:Longint;dwData:string): HWND;stdcall; extern…

DELPHI 通过ZLib来压缩文件夹 unit Unit1; interface uses ZLib, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; const cBufferSize = $; cIdent: ] = 'zsf'; cVersion = $; cErrorIdent = -; cErrorVersion = -; type TFileH…