- 博客(41)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 Delphi 7 调用C# 编写的com组件DLL
成功注册了导出到“SMUtilMed\bin\Debug\smutilmed.tlb”的程序集和类型库。查找regasm.exe，一般在.net的目录下，可以直接拷拷贝到生成DLL的目录，方便操作。运行 regasm /tlb:smutilmed.tlb smutilmed.dll。可以选择Create Unit，只生成单元文件并引入项目内，不用安装元件到面板上。运行 gacutil.exe gacutil -I XXXX.dll。生成的引入文件内，应该有对应的方法，如果没有，请检查C#内的各项定义。
2024-10-25 23:17:56
1088
原创 BDE在Win10下的ntwdblib.dll问题
1、拷贝ntwdblib.dll到系统目录下 system32 syswow64，目前最新版本：2000.80.2039.0。2、拷贝msvcr71.dll 到系统目录下。
2024-09-23 23:07:23
373
原创 Java普通的3DES加密算法在PHP7内的实现
Java内，普通的3DES加密算法，未使用偏移量(iv)，使用的是DESede标准，在PHP7内，要使用DES-EDE3,很多在线网站加密测试，都是没有这个方案，无法测试。$encrypted_openssl = openssl_decrypt($message, "DES-EDE3", $key, OPENSSL_RAW_DATA );...
2019-12-13 15:07:54
434
原创 微信浏览器提交请求，10秒自动重复提交的问题PHP
生产上一个项目，用户提交订单，因为涉及多个接口的调用，所以响应时间肯定超过10秒。因为在数据库对订单编号做了唯一索引，结果发现大量的重复订单插入失败。开始以为是前端没有控制好，造成用户重复点击提交，做了TOKEN这些机制后，仍然发现故障存在。最终多方测试，发现只要是在手机微信端，安卓下，提交订单10秒没有返回，就会有一条提交补上来，数据完全一样。 网上查询资料，从16年就有人发现此问...
2018-06-13 10:28:39
3400
原创 Linux下，Apache及PHP项目报Core错误Program terminated with signal 7, Bus error
最近上线的一个项目，使用Apache 2.2.32及ThinkPHP3.23，每天访问量共有几万吧，但会出现几十次错误，表现就是Apache根目录下，会出现Core.XXXXX的文件，同时错误日志内会显示：[Thu Nov 30 09:06:04 2017] [notice] child pid 11507 exit signal Bus error (7), possible coredump
2017-11-30 11:23:58
5165
转载 delphi引入ActiveX控件报coreide70.bpl错误解决办法
delphi 导入一个ActiveX控件，文件扩展名是ocx，以往都正常的，但是今天生成PAS文件正常，一安装生成的bpl包就报错。尝试多次，包括重装DELPHI。最后在网上搜到类似问题，原因就是：自动导入生成的dcr文件中包含有超过256色的24x24的位图所至，在包工程文件中删除了对应的dcr文件后，安装成功。dcr文件是工程资源文件。对于package工程来说，里面其实就是包含了安装在d
2013-07-16 16:08:36
2230
原创 如何在widnows下安装配置nginx及PHP
<br /> 因工作需要，要开发一个网站。原本准备用熟悉的.NET来做。但考虑到这个网站有可能会手机访问，那个.NET做出来的页面很庞大，里面的垃圾信息不少。ASP给我的感觉特不好。再加上IIS的名声也不是太好，就打算换一个试试看。<br /> 网上流传WEB服务器nginx不错，轻量级，性能好。PHP也很好用。决定就用这个了。我的数据库是SQLSERVER2000的。<br /> 先下载安装了nginx，我用的是1.0.3的。<br /> 修改conf下的配置文件nginx.con
2011-05-31 10:34:00
558
原创 PrintWindow 使用的问题
<br /> 在VC2003中，准备使用PrintWindow函数，写好后，编译时，才发现报了个特别的错：<br /> <br /> error C3861: “PrintWindow”: 即使使用参数相关的查找，也未找到标识符<br /> <br /> 查找资料，终于发现要改几个地方：在项目文件里面的stdafx.h里面，<br /> #define WINVER 0x0501 <br /> #define _WIN32_WINNT 0x0501<br /> #def
2010-07-27 23:56:00
2589
原创 windows live sync 运行登录错误解决
突然Sync就不工作了，一登录，就报非法访问，重装，重启动电脑都不行。在网上搜索，也没有什么有用的资料。 无意中，在一个英文论坛上，有人也有这个同样的问题。在最后，有人给出了一个解决方法：登录live sync的网站，https://sync.live.com/home.aspx在这里，把出问题的这台电脑从设备里面删除掉，然后再登录。重新映射这台电脑的目录，就恢复正常了。
2010-01-09 20:51:00
1426
转载 在Windows 2003 上如何安装Live 套件 Live Messenger 、LiveMail
在windows2003 上安装Live Messenger 提示：无法安装程序os_check:0x80280004解决方法：下载 Resource Hacker 运行 ResHacker.exe,打开 wlsetup-web.exe(在线安装)或是wlsetup-all.exe(离线安装)打开左侧目录 CONFIG -> CONFIG0 -> 0，找到文件中如下 XML
2009-08-26 12:28:00
1363
原创 用Bass库(Bass.dll)写一个音频转换程序
因工作需要，11k16bit的wav文件要转换成8k8bit的wav，最开始搜索出来的方法是用acm，但是，转出来的效果比用CoolEdit转出来的效果明显差一些，很容易就能听出来。 无意中找到一个OCX控件，转出来的效果和CoolEdit的比较接近了，但是，这个OCX要注册，不注册只能转5个文件，晕，也太小气了吧？ 仔细看它的目录下，有几个DLL文件，Lame_enc
2009-02-13 14:31:00
8166
1
原创 Windows LIve Mail 运行报错的问题
不知道怎么回事，最开始是Tencent的TM2008运行不起了，我重装了一下，OK，可以运行了。接着就是windows Live Mail也不行了，一运行就报什么由于应用程序配置不正确,应用程序未能启动。重新安装应用程序可能会纠正这个问题安装的时候，安装程序刚开始也就报这个错误，晕了，不能安装，也不能运行。网上搜搜索，终于找到原因了下载一下Microsoft Visual C+
2008-11-21 12:21:00
2098
转载 快速排序原理
先把网上别人的转载// 快速排序示例.cpp : Defines the entry point for the console application. // Written By Lee 2005-11-24 #include "stdafx.h" /*使用快速排序法设计一个排序程序*//*此程序的关键是取要排序数组的第一个元素(list[0])做
2008-08-29 23:05:00
1988
原创 Delphi 调用 .net 2.0 的WebService的错误(BUG？)
调用任何方法，只有要参数传递的，服务端均收不到传入的参数，报System.NullReferenceException: Object reference not set to an instance of an object.经过网上搜索资料，发现解决解决方法：在delphi生成webservices声明单元中的initialization部分加入一行InvRegistry.Regist
2007-06-01 14:42:00
1097
1
原创 delphi内取文件版本信息
unit UVersionInfo;interfaceuses Windows, SysUtils;function GetVersionValue(FileName,QueryName:string):String;implementationfunction GetVersionValue(FileName,QueryName:string):String;var InfoSize, W
2007-04-09 14:33:00
1090
原创 如何在ASP.NET的DataGrid内添加属性到tr
在DataGrid的属性加一个OnItemDataBound="Item_Bound" 然后生成Item_Bound事件 void Item_Bound(Object sender, DataGridItemEventArgs e)...{ if (e.Item.ItemIndex!=-1)...{ e.Item.Attributes.Add("onmouseout","gri
2007-04-06 12:28:00
812
原创 Delphi内的字符串分隔
如果需要在Delphi内对某一字符串进行分隔（字符串有固定的分隔标记），一般情况下好像都是自己写一个函数来实现。其实在Delphi内有一个写好的函数，只是不在常用的单元内。它在xmlutil单元内，名称是Split0。function Split0(Str: string; const substr: string): TStringList; 这是原形，第一个参数是待分隔的
2007-04-06 12:27:00
961
原创 用Delphi编写Windows服务(Service)
Windows的服务是一个比较实用的功能，你的程序可以在Windows未进行登录的时候就开始运行，不受用户注销的影响，也不容易被用户误关闭。 但是编写服务也许不是一件容易的事情，幸好Delphi给我们提供了一个模板，可以很容易的编写一个标准的Windows服务程序。 首先，在Delphi内新建一个Service Application。 此时，Delph
2007-04-06 12:26:00
1928
原创 如何制作万能DVD
万能DVD，也就是用一张DVD可以播放几个小时的视频。一般的DVD只能播放120分钟左右的视频内容，那万能DVD是如何做到的呢？ 其实万能DVD是记载在DVD盘片上的VCD。DVD是8M的码率，VCD是1M左右的码率，所以播放时间当然就变得长得多了。 但一般的DVD制作软件都不接受VCD格式的MPG文件，那如何来制作呢？ 经过GOOGLE的搜索，得知有两
2007-04-06 12:24:00
1148
转载 SQL取汉字拼音首字母的存储过程、函数
Create function fun_getPY ( @str nvarchar(4000) )returns nvarchar(4000)asbegin declare @word nchar(1),@PY nvarchar(4000) set @PY= while len(@str)>0 begin set @word=left(@str,1) -
2007-04-06 12:23:00
1127
转载 如何在SQL语句内引用别的数据源
当我们有一个Excel文件想导入SQL Server的时候，一般是用DTS，还有没有其它的方法呢？SQL Server提供OPENDATASOURCE功能可以让我们直接在SQL命令内使用其它的数据源。 作为源，例如： SELECT * FROM OpenDataSource( Microsoft.Jet.OLEDB.4.0, Data Source="c:/test
2007-04-06 12:23:00
1430
原创 Delphi 取Jpg图片内的Exif信息(需要GDI Plus)
//取Exif信息function GetExifItem(GPImage:TGPImage;ItemID: PROPID): String;var PropSize: UINT; PropItem: PPropertyItem; S:PChar; S1,S2:String;begin PropSize := GPImage.GetPropertyItemSize(ItemID);
2007-04-06 12:22:00
2499
原创 Delphi内JPG与BMP的互相转换
procedure TWPThread.Jpg2Bmp(Src, Dst: String);var SrcJpg:TJpegImage; DstBitMap:TBitMap;begin SrcJpg:=TJpegImage.Create; SrcJpg.LoadFromFile(Src); DstBitMap:=TBitMap.Create; DstBitMap.Assign(S
2007-04-06 12:21:00
1803
原创 Delphi内更换墙纸
Reg:=TRegistry.Create; Reg.RootKey:=HKEY_CURRENT_USER; Reg.OpenKey(Control PanelDesktop,False); Reg.WriteString(TileWallpaper,0); Reg.WriteString(WallPaperStyle,0
2007-04-06 12:20:00
884
原创 Delphi内的图片缩放的实现
procedure ResizeBmp(Src,Dst:String);var SrcBM,DstBM:TBitMap; Rect:TRect; NewW,NewH,PicW,PicH:Integer; HDivW:Double;begin SrcBM:=TBitMap.Create; SrcBM.LoadFromFile(Src); PicW:=SrcBM.Width
2007-04-06 12:20:00
7143
原创 ASP.NET取客户机MAC地址
using System.Text.RegularExpressions;using System.Diagnostics;public class test...{ public test ...{} public static string GetCustomerMac(string IP) //para IP is the clients IP
2007-04-06 12:19:00
714
原创 Delphi 多声卡开发
最近想写一个程序，用于在一台电脑上控制多块声卡，分别放不同的音乐文件。一般的播放控件都没有在哪块声卡进行播放的选择功能。网上倒是见过OCX方式的多声卡SDK（开发包），但不注册的话只能控制两块，而且播放还不稳定，注册的话，费用要2K！倒，我是穷人也，欺负我么。 只好自己动手了。 查找多方面资料，知道用DirectX开发的话是可以实现的，但要用Delphi直接使用Dire
2007-04-06 12:18:00
3709
8
原创 Delphi 7 使用WebService时报错
错误信息：Received content of invalid Content-Type setting:text/html -soap expects"text/xml" 解决办法：将Server端的dpr内的 ISAPIThreadPool与 ISAPIApp在顺序换个位置，让 ISAPIApp在 ISAPIThreadPool之前就应该可以解决。
2007-04-06 12:18:00
1735
原创 SQL Server在存储过程内引用返回数据集的存储过程
有些时候，在一个存储过程内需要引用另外一个存储过程，但另外的存储过程返回的是数据集，而此数据集在引用的存储过程内是需要获得的，常规方法是没办法的。 那么这时候就只有用临时表来进行中转了。 insert into #Temp1 EXEC SP_TEST。这条SQL语句可以将存储过程SP_TEST的返回数据集插入到表#Temp1中去。
2007-04-06 12:16:00
2367
原创 asp.net中使用Cookie时用中文汉字引起的乱码
今晚我一网站程序突然停摆，报错误为某一转换语句：Convert.ToInt32(XXX,10);，此网站以前一直正常工作，经过跟踪检查，发现是变量为空 null，很奇怪的是，此变量是从Cookie内取出的，再将cookie读写后的数据检查后发现，写入一切正常，但读取时，如果写入的内容内有汉字，读取时汉字是乱码，从而导致汉字后的cookie也不能正常读取，至此可以肯定是由于汉字乱码引起的，但我的We
2007-04-06 12:15:00
1187
原创 在Delphi7内取网卡MAC地址
function GetMAC(CardNo: integer): string;//CardNo指定多个网卡适配器中的哪一个0，1，2...var NCB: TNCB; // Netbios control block file://NetBios控制块 ADAPTER: TADAPTERSTATUS; // Netbios adapter status//取网卡状态 LANAENUM
2007-04-06 12:15:00
1438
原创 Delphi中如何准确截取汉字
在Delphi中，用Length来取字符长度时，如果有汉字，那它会将汉字当成一个字符来计算，而Copy把汉字又当成两个来处理，关键的是Copy一个字符后，我如何知道是否取的是汉字呢？是否把一个汉字取完整了呢？ 判断字符串的长度我们可以不用Length，改用StrLen(PChar(S1))来实现，但Copy呢？ 其实，用ByteType对取出来的字符进行判断，我们可以得
2007-04-06 12:14:00
2744
原创 delphi内进行音量控制及静音
unit UMute;interfaceuses MMSystem, Dialogs;Type TDeviceName = (Master, Microphone, WaveOut, Synth);function GetVolume(DN:TDeviceName) : Word ;procedure SetVolume(DN:TDeviceName; Value:Word);functi
2007-04-06 12:13:00
3321
原创 使用ShLwApi中的PathCompactPathEx进行路径压缩显示
比如将C:/My Installations/Delphi7Compent/Media/CDROM/Disk Images/Disk1/data2.cab显示为C:/My Installati.../data2.cabAPI函数为ShlWApi.dll中的PathCompactPathEx，同样的，在此DLL内还有更多关于Path路径的函数。delphi没有把这个DLL进行封装，但有人已经
2007-04-06 12:12:00
1528
原创 目录选择对话框
uses ShlObj;function SelectDirectory(Handle: hwnd; const Caption: string; const Root: WideString; out Directory: string): Boolean;var lpBI: _BrowseInfo; Buf: array[0..MAX_PATH] of char;
2007-04-06 12:11:00
504
原创 使用IdHTTP的问题 Object Moved
使用IdHTTP组件的一个问题使用IdHTTP.Get(URL) 理论上应该可以获得这个URL的源代码。但是为什么有些网页可以获得，而有些网页出现了“HTTP/1.1 302 Object moved”的错误呢？问题是，这个网页采用了response.redirect 跳转到另一个页面去了。而这个跳转的页面时可以访问到的/。将IdHTTP的属性HandleRedirects 设为true.
2007-04-06 12:10:00
1206
原创 IIS 启动不了 【发生意外错误0x8ffe2740】
原因如果系统中存在端口冲突就有可能发生本情况. IIS默认使用80端口进行HTTP通信. 如果除IIS外的应用程序正在运行并且正在相同的IP地址上使用80端口,在您试图使用IIS管理器启动网站时您也可能收到该错误讯息. 解决方法要解决这个问题,您可以进行以下任一项操作:• 在IIS管理器中更改网站绑定端口为除80端口外的其它端口. • 停止正在使用80端口的应用程序,然后从IIS管理器中启动网站.
2007-04-06 12:09:00
659
原创 SQL Server 安装时报有文件被挂起，不能安装
这个错误很多人都碰到过，网上也有不少的资料，主要有几种：删除临时文件，注册表等。有可能这个最快捷，操作步骤最少：注册表内：HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Session Manager下的PendingFileRenameOperations清空。
2007-04-06 12:08:00
765
原创 delphi内如何检测用户多长时间没有鼠标与键盘操作?
procedure TForm1.Timer1Timer(Sender: TObject);var vLastInputInfo: TLastInputInfo;begin vLastInputInfo.cbSize := SizeOf(TLastInputInfo); GetLastInputInfo(vLastInputInfo); Caption := Format(用户已经%
2007-04-06 12:07:00
1810
原创 不正常地定义参数对象。提供了不一致或不完整的信息
在Delphi中使用SELECT * FROM OpenDataSource(Microsoft.Jet.OLEDB.4.0,Data Source="C:/temp/b.xls";Extended Properties="Excel 5.0;HDR=Yes;";Persist Security Info=False)...sheet1$将数据从Excel导入SQLServer时，发生
2007-04-06 12:05:00
6298
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人