Aspose.Words和Aspose.Pdf的dll文件.rar
pdf转换工具,dll文件,可以转换word,excel等,c#源码csdn有相关方法,直接引用dll文件即可使用,这里是双份dll,版本不明确,我已经在用了,分享给大家
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()
delphi2007 整合版 免注册 授权文件
CodeGear RAD Studio 2007 Architect Trial<br>License File
radstudio2007.slip
delphi2007 整合版 免注册 授权文件
dent.slip
基于Delphi.Web应用开发.pdf
基于Delphi.Web应用开发.pdf
端口转发 源码 delphi
端口转发 源码 delphi
端口转发 源码 delphi
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;
美河提供.SQL编程实用大全精华版.part2.rar
美河提供.SQL编程实用大全精华版.part2.rar
美河提供.SQL编程实用大全精华版.part1.exe
美河提供.SQL编程实用大全精华版.part1.exe
[VC知识库精华珍藏版].code.part3.rar
[VC知识库精华珍藏版].code.part3.rar
真彩位图转化成256彩色或黑白位图的代码
作者: 胡志国
一个效果非常好的24,16bit真彩位图转化成256彩色或黑白位图的演示程序代码,其中调用了一个动态连接库。
作者邮箱:akiy@eyou.com
免费的JPEG2000软件Jasper的C源代码
作者: Image Power
提供C源代码的JPEG2000图像工具Jasper的源代码。
[VC知识库精华珍藏版].code.part2.rar
[VC知识库精华珍藏版].code.part2.rar
[VC知识库精华珍藏版].code.part1.exe
[VC知识库精华珍藏版].code.part1.exe
[VC知识库精华珍藏版].bbsprime.chm
[VC知识库精华珍藏版].bbsprime.chm
VMProtect.Professional.v.2.01.2(破解版).rar
VMProtect.Professional.v.2.01.2(破解版).rar
最给力的Delphi多层分布式架构资料.chm
最给力的Delphi多层分布式架构资料.chm
GinaHook.rar
GinaHook.rar
GinaHook rar文件下载
深入核心——VCL架构剖析
深入核心——VCL架构剖析.part3.rar
深入核心——VCL架构剖析.part2.rar
深入核心——VCL架构剖析.part2.rar
深入核心——VCL架构剖析.part1.rar
深入核心——VCL架构剖析.part1.rar
深入核心——VCL架构剖析.part2.rar
深入核心——VCL架构剖析.part3.rar
AlphaControls+Registered 2010 v7.34.7z
AlphaControls+Registered DELPHI-DX-2007-2010==
万一_-_博客园.2.rar
万一_-_博客园.2.rar
ExtJS Web 应用程序开发指南(第2版)
ExtJS Web 应用程序开发指南(第2版).
ASP.NET入门经典第四版(图书)
ASP.NET入门经典第四版(图书)
程序员的SQL金典
程序员的SQL金典 from friend
用了10积分
BlogEngine博客系统(源码)
BlogEngine博客系统(源码)
37个超炫网站后台框架(源码)
37个超炫网站后台框架(源码)
ASP.NET导出Excel表格(源码)
ASP.NET导出Excel表格(源码)
C#开源资源大汇总(源码)
C#开源资源 C#开源资源大汇总(源码).pdf
c#文件分片重组源码
FileCut.csproj
Form1.Designer.cs
sqlite .net驱动程序for VS2005-2013
sqlite .net驱动程序for VS2005-2013
delphi百度地图源码
无需任何插件,已调试通过,全球地图,百度API,delphi源码,绝对值得一看,无任何插件,可运行,肯定对你有用
delphi 百度api地图
delphi百度api地图仅供参考,别人你来下载的
希望对你们有用
收发短信手机开发.rar
收发短信手机开发
适用于手机开发者初学者
X86汇编语言指令集.doc
X86汇编语言指令集.doc
仅供参考
希望对你有用
Md5.pas delphi开发
Md5.pas 开发需要的文件
万年历.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;
天气预报源代码
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;
p2pover.zip
p2p终结者 完全可控 p2pover.zip
添加系统右键菜单运行指定程序
添加系统右键菜单运行指定程序 下载的,文件不全,不要积分,仅供参考