七级风科技-CSDN博客

转载 Delphi使用IdHttp 获取 HttpsURL内容

uses IdHTTP, IdSSLOpenSSL;function HttpsGet(const aURL, aContentFile: string): Boolean;var vIdHTTP: TIdHTTP; vSSL: TIdSSLIOHandlerSocket; vMemory: TMemoryStream;begin try vIdHTTP := TI

2015-11-23 16:19:11 8815

转载 DELPHI 动态创建和释放多个 EDIT 控件

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 =class(TForm) pnl1: TPanel;

2015-11-12 11:26:18 690

转载使用TCP/IP协议实现聊天程序

TCP/IP协议的传输即面向点到点的传输方式！　　1.创建应用程序　　选择“NEW”菜单下的“Application”选项，创建一个普通的应用程序。　　2.创建所需控件　　首先在控件栏的Win32页中选择ImageList控件和CoolBar控件，再从Win32栏选择ToolBar控件放置到CoolBar 控件上。用鼠标右键单击“ImageList”控件，在弹出的菜单中选

2015-11-12 10:49:37 2489

目前网上视频聊天软件、视频会议软件、可视IP电话软件随处可见，你是否想自己做一个玩玩？其实这类软件无非是视频加上网络而建成的。如果熟悉视频捕捉和网络传输技术，根本就难不倒你。微软为软件开发人员提供了一个专门用于视频捕捉的VFW SDK（Video for Windows SDK），用它实现视频捕捉很简单，至于网络传输嘛，Delphi更是提供了N多种网络组件，随你用了。本文详细介绍了如何利用Delp

2015-11-12 10:40:07 432

转载 delphi 三层架构简单例

delphi 三层架构简单例所谓三层：(1) 客户端(2) 服务器端(3) 数据库在数据访问时，使得客户端必须通过服务器来访问数据库。提高了系统的安全性。在Delphi中可以使用Socket或者Dcom来连接他们相互间的通讯。如果使用Scocket在系统使用时必须提供Scocket连接器，而Dcom则不用。客户端和服务器的连接需要Broker来联系。环境

2015-11-12 10:35:39 605

转载 Delphi的三层开发初学经验

在数据库开发方面Delphi相对于其他众多开发工具其优势在于灵活快速，且十分稳定。本实例使用Remote DataModule(远程数据模块)创建。服务端：　　首先让我们来编译服务器端，打开Delphi7，选择File菜单,New-> application，创建一个新窗体form1。　　选择File菜单 -> New -> Other-> Multitier -> 选择R

2015-11-12 10:31:12 2296

转载 PHP获取搜索引擎关键字来源的函数(支持百度和谷歌等搜索引擎)

最近遇到一个项目，客户需要一个功能，一个商品销售下单需要知道用户下单是从哪个途径来的，认为客服软件和站长统计只能满足工作时间，及晚上下班和周六日休息，客服不在线，用户下单会不知道该订单的具体来源，所以嘛，又只能通过网站功能来增加一字段，获取来源关键字，如何获取来源关键字，代码发在下面，里面包含（百度、谷歌、雅虎、搜狗、搜搜、必应、有道）几大搜索引擎的获取方法，代码中均注明，希望对你有帮助，分享一下

2015-11-07 15:56:39 1787

转载用Delphi即时判断当前的网络的连接方式

判断网络的是否连接或者连接方式，比较重要的一点就是是不是即时判断，如果你明明无连接，判断出来却说你有，连接上了，却说你还未连接，下面要介绍的两个方法中 InternetGetConnectedState就是不怎么够即时的API函数，而第二个使用的是IsNetworkAlive这个API函数，这个没有InternetGetConnectedState的那种问题，但是可能需要安装SDK，也就是.N

2015-11-07 15:07:11 459

原创用Delphi怎么调用IE菜单中的internet选项

我们可以使用ShellExecute来调用IE的internet选项。首先，新建一表单，添加一个Button；然后uses添加ShellAPI。代码如下：procedure TForm1.Button1Click(Sender: TObject);begin ShellExecute(Handle, 'open', 'control.exe', 'INETCPL.CPL', Nil,

2015-11-07 15:05:21 384

转载 DELPHI 线程池

unit uThreadPool;{ aPool.AddRequest(TMyRequest.Create(RequestParam1, RequestParam2, ...)); }interfaceuses Windows, Classes;// 是否记录日志// {$DEFINE NOLOGS}type TCriticalSect

2015-10-22 10:44:22 1442

转载用Delphi创建IIS虚拟目录

//可以添加ACTIVE DS TYPE LIBRARYunit MainUnt; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl, Buttons,Activeds_TLB;

2015-10-22 10:39:19 336

七级风科技