孤独的猫

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

2012年8月31日

摘要: 在FormCreate设置PersonSignLB的windows消息aHint :=THintWindow.Create(nil);aHint.Color :=clInfoBk;FWndMethod := PersonSignLB.WindowProc;PersonSignLB.WindowProc := LabelWndProc;显示个人提示框procedure TMainForm.LabelWndProc(var Msg: TMessage); //根据一定长度,将字符串变为回车的字符 function SplitByLen(src:string;var row:Integer;perC 阅读全文
posted @ 2012-08-31 12:16 孤独的猫 阅读(340) 评论(0) 推荐(0) 编辑

摘要: C# ThreadPool.QueueUserWorkItem典型案例详解时间:2012-03-07 11:22 来源:未知 收藏 复制分享 今天在博客园拜读了 蒋金楠,难道调用ThreadPool.QueueUserWorkItem()的时候,真是必须调用Thread.Sleep(N)吗?自己也深有启发,决定再次陈述个人理解。 我自己差不多写了一段源码,类似蒋金楠那篇博文中的:using System;using System.Collections.Generic;using System.Threading;namespace ThreadPoolTest{ class Program 阅读全文
posted @ 2012-08-31 10:07 孤独的猫 阅读(2978) 评论(0) 推荐(1) 编辑

摘要: **************************数学单元*********************************Delphi / Kylix 跨平台运行时(Runtime)库Copyright (c) 1996, 2001 Borland 软件********************************************************************这个单元包含高性能的算术、三角、对数、统计和金融方面的计算及FPU程序函数用于补充Delphi语言System.pas 单元中的数学常规程序函数 注意1) 对于有些函数,这个单元中涉及的概念或常数由Earl 阅读全文
posted @ 2012-08-31 10:04 孤独的猫 阅读(423) 评论(0) 推荐(0) 编辑

摘要: 搭了一个ftp站点,没想到的是利用客户端的时候,服务器当掉了,于是自己写了一个下载ftp站点的脚本,脚本不大,不超过30行。可能利用了一点函数式的编程思想吧。源代码:Python代码 #/usr/bin/env python import ftplib, sys, oslocal_root = '/home/calvin/learn/tsace'host = 'localhost'username = 'jesse'passewd = '123456'f = FalsewriteFile = lambda filename: op 阅读全文
posted @ 2012-08-31 09:59 孤独的猫 阅读(333) 评论(0) 推荐(0) 编辑

摘要: require'socket'includeSocket::Constants defscan_port if$*[0]==nilor$*[1]==nilor$*[2]==nilabort"用法示例:ruby#$0ip地址开始端口 结束端口EX:如ruby#$0localhost11024"endtime=Time.now scan$*[0],$*[1],$*[2] puts"\n共耗时:#{Time.now-time}秒"endprivate defscan(address,start_port,end_port) threads=[] 阅读全文
posted @ 2012-08-31 09:57 孤独的猫 阅读(400) 评论(0) 推荐(0) 编辑

摘要: VB.NET多线程编程技术 介绍 传统的Visual Basic开发人员已经建立了同步应用程序,在这些程序中事务按顺序执行。尽管由于多个事务多多少少地同时运行使多线程应用程序效率更高,但是使用先前版本的Visual Basic很难建立这类程序。 多线程程序是可行的,因为操作系统是多任务的,它有模拟同 阅读全文
posted @ 2012-08-31 09:55 孤独的猫 阅读(1833) 评论(0) 推荐(0) 编辑

摘要: 可以编写一宏,使导出的文件与原文件完全一样Sub DoIt() Dim o As OLEObject Dim TargetDir As String '导出文件的目标目录 TargetDir = "D:\" Dim CmdLine As String '使用"",是为了防止文件夹带空格 CmdLine = "explorer.exe " & """" & TargetDir & """" '包含包对象的OLE 阅读全文
posted @ 2012-08-31 09:51 孤独的猫 阅读(471) 评论(0) 推荐(0) 编辑