自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(4)
  • 资源 (6)
  • 收藏
  • 关注

原创 调试COM+应用的安全性

  调试COM+应用的安全性  这是一个比较简单但可以被用来测试远程访问COM+数据库的应用,在服务端只使用了Delphi中TClientDataset的直接数据访问功能,理论上不需要任何后端数据库驱动程序支持,这样也就减少了程序在调试过程中的不可控因素,可以让我们将关注点放在核心的客户远程访问问题上。  先简单介绍下服务器端的代码:unit uDemoRmtDB;{$WARN S

2007-10-27 11:43:00 1135

原创 向远程计算机发送按键

    这个是一人COM应用,利用客户应用程序通过远程服务器上的服务端应用发送按键。由于这段工作时间紧,我先将源代码中部份内容贴上,并在资源中提供全部源代码下载。  注意看到程序代码里“魔兽世界”四个字,大家就应该可以想到我用它是干什么的了,不是要黑别人,而是要带一个牧师小号,呵呵。 ==========服务器端================ unit skSrv;inter

2007-10-15 00:28:00 1894

原创 将文档转成HEX格式输出

此程序可以将文档转成HEX格式输出。DELPHI7,WINXP编译通过program phexview;{$APPTYPE CONSOLE}uses  SysUtils,classes;const  dispChar=[#33..#224];  modSp=- ;//分割字符  nonDispChar=.;//不显示字符  HexChar:array[0..15

2007-10-14 23:55:00 1340

原创 清除文本文档中的多余分隔符

这是一个DELPHI编写的小程序,对于对付网上众多靠空格和换行加长篇幅的文章。它可以清除多余的空格、换行及TAB。DELPHI7,WINXP编码通过 program pcliptxt;{$APPTYPE CONSOLE}uses  SysUtils,classes;const  TTheFmtChar=[#9,#10,#13,#32];  THeadLine=#13#1

2007-10-14 23:51:00 1986

pytorch的MNIST数据集

这个数据集最近下载出现问题,在github上打了一下午给找齐了,为节省大家时间,直接打包供下载。包含: t10k-images-idx3-ubyte.gz t10k-labels-idx1-ubyte.gz train-images-idx3-ubyte.gz train-labels-idx1-ubyte.gz 在当前目录下建立./data文件夹,并上述mnist.zip解压缩至本地,会在将上述四个文件解压至./data/MNIST/raw,用torchvision.datasets.MNIST('./data', train=True, download=True, transform=transform)加载。如果中间有提示下载错误,进入./data/MNIST/raw目录,将下载错误的gz文件直接解压在目录中。

2024-07-18

hanlp-1.7.3-release.zip

包含hanlp-1.7.3.jar 、hanlp-1.7.3-sources.jar、hanlp.properties三个文件,部分地区这个zip包下载下了,特发此资源略以解忧。

2019-06-19

同花顺盘后日线数据读取

很长时间没有用D7,但是小应用原生代码还是要转回到D7.这两天在看同花顺和通达信,下载后的盘后数据下载想直接导入EXCEL。参考网上的同花顺数据格式介绍,下面的代码用于在TMEMO控件中显示文件头和文件内容。长时间不用D7,生殊处请见谅。 procedure TForm1.btOpenClick(Sender: TObject); var TM:TMemoryStream; FHard:TDayRec; PColDef:PByte; s,i:integer; tmp:Dword; begin if OpenDialog1.Execute then begin FName:=OpenDialog1.FileName; tm:=TMemorystream.Create; try tm.LoadFromFile(FName); tm.Read(FHard,sizeof(TDayRec)); Memo1.Lines.Add(format('数据记录总数:%x / %d ',[fhard.rows,fhard.rows])); memo1.Lines.add(format('数据记录内容开始地址:%x / %d ',[Fhard.StartAdd,Fhard.StartAdd])); memo1.lines.add(format('每条记录的长度:%x / %d ',[FHard.RecordLenght,FHard.RecordLenght])); memo1.lines.add(format('每个记录的列数:%x / %d ',[Fhard.ColNum,Fhard.ColNum])); fhard.StartAdd:=sizeof(TDayRec)+fHard.ColNum*4; memo1.Lines.add(format('数据记录内容真实开始地址:%x / %d ',[Fhard.StartAdd,Fhard.StartAdd])); s:=FHard.ColNum*sizeof(TRecordDefine); GetMem(PColDef,s);; try tm.Read(PColDef^,s); for i:=0 to Fhard.ColNum-1 do begin tmp:=PDWordArray(PcolDef)[i]; //tmp:=PDword(integer(pcoldef)+i*4)^; memo1.Lines.add(format('列 %d: %x , 列长度:%x',[i,tmp,TColdef(tmp).ColLength])); end; finally freemem(PColDef); end; finally tm.Free; end; end; end;

2017-02-04

R语言读取EXCEL文件软件包xlsReadWrite

这是R语言读取EXCEL文件内容的软件包xlsReadWrite。用Rgui安装程序包方法下载的xlsReadWrite无法正常运行,会出现参数个数大于10个的提示。此资源是从http://dl.dropbox.com/u/2602516/swissrpkg/index.html直接下载的1.5.4版本,其内含可运行的shllib,即xlsReadWrite.dll。下载此资源,并将其解压到R安装目录下的library中,或者用安装本地ZIP程序包功能安装,并加载程序包。 其后运行以下命令: >library(xlsReadWrite) >read.xls(choose.files()) 在文件选择对话框中选择一个EXCEL文件,然后看下结果.....

2013-03-17

Excel97 sdk For Delphi

这是c语言版Excel97 SDK的 Delphi 转译. 其中包括XLCALL32.H的Delphi转译代码和相应的函数声明,由于我这里目前还不能访问CSDN,因此有关的应说说明我会找机会发到博客说明中.此资源包中也已经包含了一个XLL可加载宏的示例.另外,包中的WIHDWOS.PAS、types.pas等文件是我用于压缩编译文件大小的,各位在应用XLCALL32.PAS时,可以不用这些文件。

2010-02-26

用于调试的com+简单应用

这是一个比较简单但可以被用来测试远程访问COM+数据库的应用,在服务端只使用了Delphi<br>中TClientDataset的直接数据访问功能,理论上不需要任何后端数据库驱动程序支持,<br>这样也就减少了程序在调试过程中的不可控因素,可以让我们将关注点放在核心的客户远程<br>访问问题上

2007-10-27

rmtSendKey_src.rar

向远程计算机发送按键的源代码

2007-10-15

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除