jhldelphi-CSDN博客

转载取Windows登录用户名,计算机名

uses Windows, WinSock;{ ComputerLocalIP }//取本机的 IP 地址function ComputerLocalIP: string;var ch: array[1..32] of char; wsData: TWSAData; myHost: PHostEnt; i: integer;begin Result := ;

2008-09-10 15:02:00 635

转载在Delphi的DLL中使用FastReport要处理的几个问题

在dll中使用FastReport会遇到以下内个问题：1.调用时变量出错，最普通的一个变量注入也是一样2.出现Cannot assign a TFieldList to a TStringList的错误3.Invalid pointer operation的错误，在函数中返回WideString引起的以下是解决办法：1.不要在DLL中直接引用FastReport的单元文件，最好用一个接口类来实现

2008-08-07 10:03:00 671

转载使用midas访问远程access数据库

使用midas访问远程access数据库来源：作者：发布时间：2007-12-27 使用MIDAS访问远程Access数据库 Allen Tao(http://blog.csdn.net/allentao/)2005-5-3本文源码下载访问远程数据库常用的办法是使用大型数据库自带的客户端工具，如SQL Server和Oracle等都带有这样的工具。带对于Access这样的

2008-08-07 09:47:00 503

转载 ERwin的学习总结

ERwin的学习总结一新建domainmodel:file>newnew model type 一般Logical view是用于生成文档的，而physical view是用于生成或者导出脚本的,如果只做文档，可以选择只建立logical view,如果是做项目，需要同时使用Logical view 和physical viewtarget database ERwin是可以直接连

2008-07-24 07:49:00 2547

原创 DBGrideh实现自动排序

不用自己写代码！DBGrideh实现自动排序:1.在optioneh中设置：AutosortMarking:=True2.设置DbGridEh的属性:(不一定总要设置，与使用的数据连接有关)sortlocal:=True;3.uses 单元Ado------ehlibADoTclientData------ehlibCDSBDE ---------ehlibBDE4.Column属性Tit

2008-07-24 07:46:00 573

转载 delphi 控制excel的格式

设置EXCEL的单元格的格式为文本格式ColumnRange.Columns[1].numberformatlocal:=@; ExcelApplication1.ActiveSheet.Rows[1].numberformat:=@; ExcelApp.Cells[j,2].numberformatlocal:=@; excelworksheet1.Cells.Item[j,

2008-07-04 16:58:00 2458

转载 DLL与MDI的子窗体

作为一个经常被提起的问题，很多人不知道怎么来从DLL中导出窗体，特别是MDI的子窗体，因此Kingron愿意在这里把一些经验写出来给大家分享，让大家在碰到类似的问题的时候，少走些弯路。大家知道，DLL有两种加载方式，至于动态的，和静态的，稍微有点儿区别。动态的加载，大家可以参考Torrys Delphi Page上面的例子，其中有一个MDI的例子，非常简单的，很好用。我

2008-04-23 16:57:00 666

原创 Delphi制作DLL

Delphi制作DLL一 Dll的制作一般步骤二参数传递三 DLL的初始化和退出清理[如果需要初始化和退出清理]四全局变量的使用五调用静态载入六调用动态载入七在DLL建立一个TForM八在DLL中建立一个TMDIChildForM九示例：十 Delphi制作的Dll与其他语言的混合编程中常遇问题：十一相关资料一 Dll的制作一般分为以下几步：1 在一个DLL工程里写一个过程或函

2008-04-23 15:19:00 614

原创附加数据库建帐套

USE masterGO-- First determine the number and names of the files in the backup.-- MyNwind_2 is the name of the backup device.RESTORE FILELISTONLY FROM DISK=F:/20080313erp_0.bak-- Restore the files

2008-03-19 09:26:00 547

原创 Locate应用

ADOQryResult.Locate(CKDJID, EditNum.Text, [loCaseInsensitive]);-------------------------------------------------------------------------------------------------------------procedure Tfrmstore_ma

2008-03-14 09:48:00 386

Delphi中的线程类 - TThread详解2007-03-15 00:00Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是对TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程编程的全部，我写此文的目的在于对此作一个补充。线程本质上是进程中一段并发运行的代

2008-03-13 11:21:00 418

转载 delphi的多线程编程

delphi的多线程编程2008年01月28日星期一下午 10:03 　　1-1 多线程的基本概念　　win 98/nt/2000/xp 是个多任务操作系统，也就是：一个进程可以划分为多个线程，　　每个线程轮流占用cpu 运行时间和资源，或者说，把cpu 时间划成片，每

2008-03-13 11:15:00 1498

转载 Delphi动态连接库的编写和调用

Delphi动态连接库的编写和调用一、dll的优点Dll是windows中的一种重要机制。它包括例程和资源，可以在使用程序之间共享例程和资源。其优点是：扩展应用程序的特性、可以使用多种语言来编写、简化了软件项目的管理、有助于节约内存、帮助实现平台的跨越和本地化等。二、dll在delphi中的建立在delphi中新建－>其他－>选中Dll图标(Dll Wizard) 确定后可以看

2008-03-13 11:05:00 1318

转载 sql server 局域网内的异地备份

EXEC sp_addumpdevice disk, MyNwind_1, z:/skills 只是生成一个备份设备，在本地机就可以，但备份不到另一台机。如何才可以备份到另一台机上呢？它的原理是什么呢？用 master..xp_cmdshell 系统扩展过程先在服务器与要备份到的机子间建立联系，或者说是

2008-03-07 14:28:00 1395 1

原创 sql server 备份

procedure TfrmDbBackup.BtnOKClick(Sender: TObject);var sfile: string;begin if trim(EditPath.Text) = then begin application.messagebox(请选择备份文件路径！, 系统提示, MB_ICONINFORMATION); exit;

2008-03-07 14:25:00 381

原创 sql server恢复

procedure TfrmDbRevert.BtnOKClick(Sender: TObject);begin if trim(EditPath.Text) = then begin application.messagebox(请选择源备份文件路径！, 系统提示, MB_ICONINFORMATION); exit; end; //这个是连

2008-03-07 14:24:00 402

转载 D7安装FastReport v4的方法

TABLE OF CONTENTSI. IntroductionII. Manual installing of the FastReport packagesIII. Recompiling FastReport Basic Edition and Standard Edition packagesIV. Recompiling FastReport Pro Edition and

2008-03-05 11:07:00 3152 1

转载 Inno Setup使用教程

如何使用：文档约定创建安装程序创建脚本段内参数一些常量公共参数安装脚本段 [Setup] 段 [Dirs] 段 [Files] 段 [Icons] 段 [INI] 段 [InstallDelete] 段 [Messages] 段 [Registry] 段 [Run] 段 [UninstallDelete] 段 [UninstallRun] 段其它问题：其它注意事项在命令行执行

2008-03-01 09:15:00 1705

原创 dbgrid eh excel

unit DBGrdToExcel;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB,ComObj, ExtDlgs, DBGridEhImpExp, GridsEh,

2007-11-09 16:29:00 493

原创 QuickRep打印

打印的字段多,用QRCompositeReport1实现联合,1.一个QRCompositeReport1,三个QuickRep,每个QuickRep上有rbTitle,rbDetail和基本字段;第一个QuickRep还有rbColumnHeader,相关:uses QuickRpt, QRExport, QRCtrls, QrPrntr; rbSubDetai

2007-11-08 11:18:00 3127

原创打印工资条

打印字段太多,用换行来处理;1.窗体上方一个QuickRep1 ,一个TitleBand1,一个DetailBand12.代码var iLeft,i,tleft,n : integer; QRShape1,QRShape2 : TQRShape; is_next : boolean;begin if not Assigned(dbGrid1.DataSource) then E

2007-11-08 10:32:00 636

原创软件开发编码规范(适用于delphi)

软件开发编码规范(适用于delphi)制定编码规范的目的是为了使一组程序员生成同样风格的代码，使一个团队形成并保持一定的风格。这样的好处是每个程序员的代码都易于为他人所理解，从而会在很大程度上提高代码的可维护性，也因此会降低维护费用。对于任何团队来说，这均是一个十分理想的境界。对于个人，选择或自我生成一种编码规范，并坚持这个规范，同样会产生良好的效果。每种程序设计语言都

2007-11-07 16:00:00 1043

转载 file not found frmaddBdsuo.dcu

一般情况是你装了控件，却没有把路径加到delphi中，编译时找不到相关的资源。可以查找一下该dcu文件所在的路径，然后在你的工程Search Path加上该路径，具体操作是：打开你的工程，选Projects-->Options--> Directories/Contiondals-->Search Path--> 点击编辑框右边的按纽 Delphi控件的安装

2007-09-08 08:21:00 4845

原创 TreeView使用笔记

TreeView使用笔记 TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集。一、针对TTreeNodes,也就是 TreeView.Items,有这些属性：1、count，节点个数。2、item[index] ,通过index得到节点。二、针对TTreeNodes,也就是 Tree

2007-09-08 08:17:00 702 1

audacity2.4.1源码

audacity-minsrc-2.4.1.tar.xz，linux源码，是源码，源码编译说明：https://wiki.audacityteam.org/wiki/Building_On_Linux

2020-05-29

ios http请求框架

MKNetWorkKit是由一个印度小伙子写的，是用于网络请求的库，支持ARC，代码的网址这里给出。

2015-05-24

zlib和libpng源码

zlib和libpng源码 zlib1.2.3.0 libpng1.2.35

2013-05-29

zlib和libpng

zlib和libpng源码，版本如下 zlib1.2.3.0 libpng1.2.35

2013-05-29

libxl-3.1.0_破解

网上还有个3.3的，但是有时会出现buy me!字样 3.1缺点： 1、没有超链接功能 2、会自动去掉空格，如" abc"，生成excel后变成了"abc"；但是可以这样写sheet->writeFormula(3, 8, "\" abc\"");就有空格了如果你有好方法的请告诉我，谢谢[email protected]

2013-05-17

VC++设置并叠加透明图片

VC++设置并叠加透明图片，分3步进行实际的绘制 dcMask.BitBlt(0, 0, nWidth, nHeight, &dcImage;, 0, 0, SRCCOPY);//分3步进行实际的绘制 pDC->BitBlt(x, y, nWidth, nHeight, &dcImage;, 0, 0, SRCINVERT); pDC->BitBlt(x, y, nWidth, nHeight, &dcMask;, 0, 0, SRCAND); pDC->BitBlt(x, y, nWidth, nHeight, &dcImage;, 0, 0, SRCINVERT); //恢复原先设置

2012-08-02

everestultimate550

everestultimate550 硬件检测工具硬件检测

2011-08-25

EhLib4.3 - EhLib

delphi7安装方法: 1、在“D:\Program Files\Borland\Delphi7”(delphi7安装目录)下创建一个文件夹EhLib。 2、把ehlibsrc4.3\Common下的文件复制到EhLib文件夹下。 3、把ehlibsrc4.3\Delphi7下的文件复制到EhLib文件夹下。 4、打开delphi7, File\Open..., 编译D:\Program Files\Borland\Delphi7\EhLib\EhLib60.dpk。 5、File\Open..., 编译并安装(Install)D:\Program Files\Borland\Delphi7\EhLib\DclEhLib60.dpk。 6、设置delphi7的环境变量，Tools\Environment Options\Library, 设置Library path, 添加$(DELPHI)\EhLib;

2011-07-20

mydac5.9.rar

delphi 三方控件MyDAC： Data Access Components for MySQL (MyDAC) is a library of components that provides direct access to MySQL database servers from Delphi, Delphi for .NET, C++Builder, Free Pascal, and Kylix. MyDAC can connect directly to MySQL server or work through the MySQL client library. The MyDAC library is designed to help programmers develop faster and cleaner MySQL database applications. MyDAC is a complete replacement for standard MySQL connectivity solutions and presents an efficient alternative to the Borland Database Engine for access to MySQL.