- 博客(16)
- 资源 (125)
- 收藏
- 关注
RSS订阅原创 一篇关于OxyPlot的使用记录
官网链接1：点击打开链接（www.oxyplot.org）官网链接2：http://docs.oxyplot.org/en/latest/引用资源共享： 链接：https://pan.baidu.com/s/1r9ctsyEYW7_E7x-L99Op8w 密码：dfjm ps：项目添加引用后可直接使用1.主要结构 //显示控件PlotView；继承: Control, IP...
2018-04-13 15:01:34
12000
原创 串口实例帮助文档 ComHelper
本文是对搜罗的一些串口实例，做一总结，详情如下：1.获取本机上所有可用串口列表两种方法，其一：读注册表 /// /// 初始化串口名列表 /// private void InitPortNames() { RegistryKey keyCom = Re
2017-03-17 10:44:35
1040
原创 c#中蹒跚学步
接下来的一段时间，我将记录c#的学习历程，当然从Delphi转到c#也主要是界面开发，并不代表我不会深入.net领域。我会爱上c#.net的，时间会改变一切，GO！
2017-03-17 10:01:29
350
转载 Lo、Hi、HiByte、LoWord、HiWord、MakeWord、MakeLong、Int64Rec
譬如有一个 Cardinal 类型的整数: 1144201745其十六进制的表示是: $44332211其二进制表示是: 01000100 00110011 00100010 00010001我们说 Cardinal 是 32 位的整数, 这里的位是指 "二进制的位数", 不信你
2011-07-25 11:13:12
628
转载 递归_delphi
0:几种数学式的定义:Fibonacci数列:function Fibonacci(n:integer):integer;begin if n else result:=Fibonacci(n-1)+Fibonacci(n-2)end;阶乘,function RankMult
2011-07-14 13:38:18
914
转载 delphix 学习中
在Delphi中使用DirectX减小字体 增大字体 Delphi作为一种方便的可视化程序设计语言，一 直非常受大家喜爱。但它在图形处理、3D表现等方面 不很让人满意。如果说你要开发一个Windows95下的 3D游戏，你会用什么工具呢？DirectX!不少人
2011-07-04 15:23:55
1088
转载 Delphi7怎么样调用系统语音库
（一）要使用系统的语音库，你需要先安装 Microsoft Speech SDK 5.1 及其语言包，下载地址：Speech SDK 5.1: http://www.newhua.com/soft/38264.htmSpeech SDK 5.1 语言包（中英文）: http://www.onlinedown.net/soft/38265.htm（二）安装完成后，需要在D7里导入类库以便生成SAPI组件于IDE组件面板.启动D7, Project -> Import Type Library->找到Micro
2011-05-20 08:52:00
5478
1转载 SQL Server 里的日期和时间函数
这些标量函数对日期和时间输入值执行操作，并返回一个字符串、数字值或日期和时间值。 下表列出日期和时间函数以及它们的确定性属性。 函数 确定性 DATEADD 具有确定性 DATEDIFF 具有确定性 DATENAME 不具有确定性 DATEPART 除了用作 DATEPART (dw, date) 外都具有确定性。dw 是工作日的日期部分，取决于由设置每周第一天的 SET DATEFIRST 所设置的值。 DAY 具有确定性 GETDATE 不具有确定性 GETUTCDATE 不具有确定性 MONTH 具有
2011-05-05 10:03:00
586
Aspose.Words和Aspose.Pdf的dll文件.rar
pdf转换工具，dll文件，可以转换word，excel等，c#源码csdn有相关方法，直接引用dll文件即可使用，这里是双份dll，版本不明确，我已经在用了，分享给大家
2020-08-17
万年历.rar
procedure TFRM_Date.DateChange(MyTime: TDateTime);
var
i, S: integer;
StarNo: integer;
Present: TDateTime;
Year, Month, Day: Word;
begin
Label20.Caption := IntToStr(DateUtils.YearOf(Mytime));
Label17.Caption := IntToStr(DateUtils.MonthOf(Mytime));
Label16.Caption := Label17.Caption;
Label1.Caption := IntToStr(DateUtils.YearOf(Mytime));
Label21.Caption := Copy(CnSkyStemOfYear(Mytime), 1, 2) + CnanimalOfYear(Mytime);
lbl1.Caption := '选定日期为：'+DateToStr(Mytime);
lbl2.Caption := Copy(CnSkyStemOfYear(Mytime), 1, 2) + Copy(CnanimalOfYear(Mytime),1,2)+'年'+CnMonthOfDate(Mytime)+CnDayOfDate(Mytime);
lbl3.Caption := GetLunarHolDay(Mytime)+CnDayOfDateJr(Mytime)+Holiday(Mytime,DayOf(Mytime));
for i := 1 to 37 do
begin
CnDate[i].Visible := false;
ChnDate[i].Visible := false;
CnDate[i].Font.Size := 11;
CnDate[i].Color := self.Color;
ChnDate[i].Color := self.Color;
if (((i) mod 7) = 0) or (((i) mod 7) = 1) then
begin
CnDate[i].Font.Color := clRed;
ChnDate[i].Font.Color := clRed;
end
else
begin
CnDate[i].Font.Color := clBlack;
ChnDate[i].Font.Color := Cnday.Font.Color;
end;
end;
DecodeDate(MyTime, Year, Month, Day);
Present := EncodeDate(Year, Month, 1);
StarNo := dayofweek(Present);
s := starno + DayOfMonth(Present) - 1;
try
for i := StarNo to s do
begin
Present := EncodeDate(Year, Month, i - StarNo + 1);
CnDate[i].Caption := IntToStr(i - StarNo + 1);
CnDate[i].Tag := i - StarNo + 1;
ChnDate[i].Tag := CnDate[i].Tag;
ChnDate[i].Caption := CnDayOfDate(Present);
if ChnDate[i].Caption = '初一' then
begin
ChnDate[i].Caption := CnMonthOfDate(Present);
ChnDate[i].Font.Color := clRed;
end ;
if length(Holiday(MyTime, i - StarNo + 1)) > 3 then
begin
ChnDate[i].Caption := Holiday(MyTime, i - StarNo + 1);
ChnDate[i].Font.Color := $000080FF;
end;
if DateCn.GetLunarHolDay(Present) <> '' then
begin
ChnDate[i].Caption := GetLunarHolDay(Present);
ChnDate[i].Font.Color := $00FF5353;
end;
if DateCn.CnDayOfDateJr(Present) <> '' then
begin
ChnDate[i].Caption := CnDayOfDateJr(Present);
ChnDate[i].Font.Color := $000080FF;
end;
if i - StarNo + 1 = day then
begin
Shape2.Left := CnDate[i].left - 1;
Shape2.Top := CnDate[i].top + 1;
Label22.Caption := Constellation(Present, day);
end;
CnDate[i].Visible := true;
ChnDate[i].Visible := true;
end;
except
on EConvertError do
begin
exit;
end
else
exit;
end;
end;
2012-12-04
天气预报源代码
function getWeatherbyCityName(const theCityName: WideString): ArrayOfString; stdcall;
function getWeatherbyCityNamePro(const theCityName: WideString; const theUserID: WideString): ArrayOfString; stdcall;
end;
function GetWeatherWebServiceSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): WeatherWebServiceSoap;
implementation
function GetWeatherWebServiceSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): WeatherWebServiceSoap;
const
defWSDL = 'http://www.webxml.com.cn/WebServices/WeatherWebService.asmx?wsdl';
defURL = 'http://www.webxml.com.cn/WebServices/WeatherWebService.asmx';
defSvc = 'WeatherWebService';
defPrt = 'WeatherWebServiceSoap';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as WeatherWebServiceSoap);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;
2012-12-04
windows服务程序c
/// 必需的设计器变量。
/// </summary>
private System.ComponentModel.Container components = null;
public CareEye()
{
// 该调用是 Windows.Forms 组件设计器所必需的。
InitializeComponent();
// TODO: 在 InitComponent 调用后添加任何初始化
MainThread = new Thread(new ThreadStart(ThreadFunc));
MainThread.Priority = ThreadPriority.Lowest;
}
// 进程的主入口点
static void Main()
2012-10-26
delphi2007 整合版 免注册 授权文件
CodeGear RAD Studio 2007 Architect Trial<br>License File
radstudio2007.slip
delphi2007 整合版 免注册 授权文件
dent.slip
2012-09-12
MemorySearch内存搜索工具
内存搜索工具
unit UnitMemorySearch;
interface
uses
tlhelp32,strutils,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Buttons, ExtCtrls;
type
TFrmMemory = class(TForm)
ListAdress: TListBox;
BtnFirst: TButton;
BtnNext: TButton;
Label1: TLabel;
Edvalue1: TEdit;
Label2: TLabel;
ComMod: TComboBox;
Label3: TLabel;
Edvalue2: TEdit;
Label4: TLabel;
Edname: TEdit;
Label5: TLabel;
ComTypes: TComboBox;
Label6: TLabel;
stList: TListBox;
Button1: TButton;
ProgressBar1: TProgressBar;
Edit1: TEdit;
Label7: TLabel;
BitBtn1: TBitBtn;
Labpro: TLabel;
Label8: TLabel;
Listgetadr: TListBox;
BtnAdd: TButton;
Label9: TLabel;
Edread: TEdit;
Label10: TLabel;
Edwrite: TEdit;
Label11: TLabel;
BtnWrite: TButton;
BtnRead: TButton;
Label12: TLabel;
LabTime: TLabel;
BtnSave: TButton;
ListVal: TListBox;
BtnAddVal1: TButton;
BtnAddval2: TButton;
BtnDelete: TButton;
BtnSaveVal: TButton;
BtnRAdd: TButton;
Timer1: TTimer;
CheckBox1: TCheckBox;
BtnProset: TButton;
labDebug: TLabel;
ListTask: TListBox;
BtnDelTask: TButton;
BtnAddTask: TButton;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
ComTask: TComboBox;
EdTaskAdr: TEdit;
EdTaskVal: TEdit;
Label17: TLabel;
BtnResume: TButton;
BtnRun: TButton;
BtnTaskSave: TButton;
Label18: TLabel;
procedure BtnFirstClick(Sender: TObject);
function GetmemoryValue(i,vsize:integer):integer;
function FindAdress(trvalue,olvalue:integer):boolean;
function FindAdress1(trvalue,olvalue:integer):boolean;
procedure BtnNextClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure ComModChange(Sender: TObject);
procedure ListAdressDblClick(Sender: TObject);
procedure BtnAddClick(Sender: TObject);
procedure BtnReadClick(Sender: TObject);
procedure BtnWriteClick(Sender: TObject);
procedure ListAdressClick(Sender: TObject);
procedure ListgetadrClick(Sender: TObject);
procedure BtnSaveClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BtnAddVal1Click(Sender: TObject);
procedure BtnDeleteClick(Sender: TObject);
procedure BtnSaveValClick(Sender: TObject);
procedure BtnAddval2Click(Sender: TObject);
procedure ListValClick(Sender: TObject);
procedure ListValDblClick(Sender: TObject);
procedure BtnRAddClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure BtnProsetClick(Sender: TObject);
procedure SetCase;
procedure BtnDelTaskClick(Sender: TObject);
procedure BtnAddTaskClick(Sender: TObject);
procedure BtnRunClick(Sender: TObject);
procedure BtnResumeClick(Sender: TObject);
procedure BtnTaskSaveClick(Sender: TObject);
private
{ Private declarations }
public
prohand,ProID:HWND;
SmodSize:integer;
minadr,maxadr:int64;
{ Public declarations }
end;
var
searchTime:integer=0;
mb,p:^char;
FrmMemory: TFrmMemory;
BaseAdr:int64=$00400000;
oldvalue,value,value2,Casei:integer;
2012-07-23
通讯协议.doc
1、 总则 ............................................................................................................................................................. 3
1.1. 系统说明： ......................................................................................................................................... 3
1.2. 数据包格式 ......................................................................................................................................... 3
1.3. 名词解释 ............................................................................................................................................. 3
2、 门禁类设备各命令详解 ............................................................................................................................. 5
2．1 读网络中转器的网络接口或读分控制器的地址编号.................................................................. 5
2．2 设置网络中转器的网络接口或修改分控制器的地址编号 .......................................................... 5
2．3 读设备软件版本.............................................................................................................................. 5
2．4 读系统时间 ..................................................................................................................................... 5
2．5 设置系统时间.................................................................................................................................. 6
2．6 修改设备串口通讯速率（这个命令网络时不要使用）.............................................................. 6
2．7 初始化设备 ..................................................................................................................................... 6
2．8 记录循环存储使能控制.................................................................................................................. 6
2．9 读记录循环控制字.......................................................................................................................... 6
2．10 读设备运行的状态.......................................................................................................................... 6
2．11 按编号设置或修改 1 张星期门禁时间段表.................................................................................. 7
2．12 按编号读一张星期门禁时间段表.................................................................................................. 7
2．13 设置或修改节假日.......................................................................................................................... 7
2．14 读节假日 ......................................................................................................................................... 7
2．15 为进出出入口的每个班组人员指定对应星期门禁时段表 .......................................................... 7
2．16 读进出出入口的每个班组对应的星期时段表的编号.................................................................. 8
2．17 为出入口的常开、首卡常开及常闭时段指定对应的星期门禁时段表 ...................................... 8
2．18 读出入口常开、首卡常开及常闭时段对应的星期时段表的编号.............................................. 8
2012-05-27
[VC知识库精华珍藏版].code.part3.rar
[VC知识库精华珍藏版].code.part3.rar
真彩位图转化成256彩色或黑白位图的代码
作者: 胡志国
一个效果非常好的24,16bit真彩位图转化成256彩色或黑白位图的演示程序代码，其中调用了一个动态连接库。
作者邮箱:[email protected]
免费的JPEG2000软件Jasper的C源代码
作者: Image Power
提供C源代码的JPEG2000图像工具Jasper的源代码。
2012-02-29
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人