博客园_微软专家

Delphi7 PAnsiChar String 结构指针

2012-01-27T12:06:00Z

procedure TForm1.Button1Click(Sender: TObject);
type
PPersonInfo = ^PersonInfo;
PersonInfo = record
    Age: Integer;
    C: Char;
    Name:String[12];
end;
var
MyList: TList;
person: PPersonInfo;
B: Byte;
Y: Word;
S:String;
begin
MyList := TList.Create();

New(person);
person^.Age := 100;
person^.C := 'Z';
person^.Name:='张三';
MyList.Add(person); //加入一个100的整数和Z字符

New(person);
person^.Age := 200;
person^.C := 'X';
person^.Name:='李四';

//ShowMessage(person^.Name);
//MessageBox(self.Handle,(PAnsiChar(IntToStr(person^.Age))),'test',0);
//S:=person^.Name;
//MessageBox(self.Handle,PAnsiChar(AnsiString(S)),'test',0);

ShowMessage(PPersonInfo(MyList.Items[0])^.Name); //先转为pPersons

MyList.Add(person); //加入一个200的整数和X字符

//ARecord := MyList.Items[0];

Y := 10;
for B := 0 to (MyList.Count - 1) do begin
    person := MyList.Items[B];
    Canvas.TextOut(10, Y, IntToStr(person^.Age)+person^.Name);
    Y := Y + 30;
    Canvas.TextOut(10, Y, person^.C);
    Y := Y + 30;
end;

for B := 0 to (MyList.Count - 1) do begin
person := MyList.Items[B];
Dispose(person);
end;
MyList.Free();

end;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

type
TRec = record {定义结构 TRec}
name: string[12];
age: Word;
end;
TPRec = ^TRec; {定义 TRec 结构的指针类型 TPRec}

var
Rec: TRec; {声明结构变量}
PRec1,PRec2: TPRec; {声明 TPRec 指针变量}
PRec3: ^TRec; {声明 TRec 结构的指针变量, 现在 PRec1 与 PRec3 是不同类型的变量}
P: Pointer; {声明无类型指针}

//通过结构指针访问结构
procedure TForm1.Button1Click(Sender: TObject);
begin
Rec.name := '张三';
Rec.age := 18;

PRec1 := @Rec; {把 Rec 的地址告诉 PRec1}

{本来应该这样访问}
ShowMessage(PRec1^.name); {张三}

{Delphi 允许这样简单使用结构指针}
ShowMessage(PRec1.name); {张三}

{如果我们通过指针修改了数据}
PRec1.name := '李四';

{那么}
ShowMessage(Rec.name); {李四}
{因为 PRec1 和 Rec 所指的是同一个数据}
end;

//如果是单独使用指针, 必须先给内存
procedure TForm1.Button2Click(Sender: TObject);
begin
GetMem(PRec2, SizeOf(TRec));
PRec2.name := '王五';
PRec2.age := 9;

ShowMessage(PRec2.name); {王五}

{手工给的内存, 必须手工释放}
FreeMem(PRec2);
end;

//虽是同一个结构的指针, 但还不是一个类型
procedure TForm1.Button3Click(Sender: TObject);
begin
Rec.name := '孙六';
Rec.age := 16;

{把 Rec 的地址给属于 ^Rec 类型的 PRec3 指针}
PRec3 := @Rec;
ShowMessage(PRec3.name); {孙六}

{如果要把 PRec3 知道的值告诉 PRec1, 需要类型转换}
PRec1 := TPRec(PRec3);
ShowMessage(PRec1.name); {孙六}

{反过来想, 如果要把 PRec1 知道的值告诉 PRec3 呢?}
Rec.name := '赵七';
Rec.age := 24;
PRec1 := @Rec;
ShowMessage(PRec1.name); {赵七}

{这样转换}
TPRec(PRec3) := PRec1;
ShowMessage(PRec3.name); {赵七}
end;

//用无类型指针读写 TRec 中的数据
procedure TForm1.Button4Click(Sender: TObject);
begin
Rec.name := '杜八';
Rec.age := 36;

P := @Rec;

{赋值}
TPRec(P).name := '侯九';

{取值}
ShowMessage(TPRec(P).name); {侯九}
end;

end.

本文链接

Oracle10g统计信息自动收集功能

2011-11-03T13:27:00Z

从Oracle Database 10g开始，Oracle在建库后就默认创建了一个名为GATHER_STATS_JOB的定时任务，用于自动收集CBO的统计信息。理论上一张表超过10%的数据变动就会被这个job收集一次统计信息

这个自动化功能已经影响了很多系统的正常运行，晚上10点对于大部分生产系统也并非空闲时段。
而自动分析可能导致极为严重的闩锁竞争，进而可能导致数据库Hang或者Crash。

所以建议最好关闭这个自动统计信息收集功能：
exec DBMS_SCHEDULER.DISABLE('GATHER_STATS_JOB');

1.查询job
SQL> select JOB_NAME,LAST_START_DATE from dba_scheduler_jobs;
JOB_NAME LAST_START_DATE
------------------------------ ------------------
AUTO_SPACE_ADVISOR_JOB 04-DEC-07 10.00.00.692269 PM +08:00
GATHER_STATS_JOB 04-DEC-07 10.00.00.701152 PM +08:00
FGR$AUTOPURGE_JOB
PURGE_LOG 05-DEC-07 03.00.00.169059 AM PRC

----------------------------------------------------------------------------

有两种方法，分别如下：
方法一：
SYSDBA登录
exec dbms_scheduler.disable('SYS.GATHER_STATS_JOB');
exec dbms_scheduler.enable('SYS.GATHER_STATS_JOB');
方法二：
alter system set "_optimizer_autostats_job"=false scope=spfile;
alter system set "_optimizer_autostats_job"=true scope=spfile;
Pfile可以直接修改初始化参数文件
然后重新启动数据库。

本文链接

ArcSDE “Unable to create logfile system tables. User perhaps lacks permission or resources to create tables” 问题解决方案

2011-04-19T14:34:00Z

SDE数据注册版本后（Regester as versioned）之后，Load或者编辑时出现“Unable to create logfile system tables. User perhaps lacks permission or resources to create tables”

需要修改sdeconfig

详细解决方案请点击下面链接：

http://forums.esri.com/Thread.asp?c=2&f=59&t=131017

查看config

2、修改Config

只字未改，转来备忘

sdeconfig -o alter -v ALLOWSESSIONLOGFILE=TRUE -i service -u sde -p sde_password
sdeconfig -o alter -v LOGFILEPOOLSIZE=20 -i service -u sde -p sde_password

本文链接

摄像头拍照activex代码，欢迎测试

2011-04-04T13:46:00Z

闲来无事，做了个摄像头拍照，activex，还是delphi方便啊

dll:

http://files.cnblogs.com/yansc/WillingWebcam.rar

demo:

http://files.cnblogs.com/yansc/demo1.rar

用前先cmd注册 regsvr32 WillingWebcam.dll。

COM图片转换备忘

class ImageConverter2 : System.Windows.Forms.AxHost

{

public ImageConverter2()

: base("59ee46ba-677d-4d20-bf10-8d8067cb8b33")

{ }

public static System.Drawing.Image IPictureToImage(stdole.StdPicture picture)

{

return ImageConverter2.GetPictureFromIPicture(picture);

}

本文链接

Oracle PL SQL 日期日间操作备忘

2010-12-21T08:23:00Z

select updatedate from trans_studycard t
where
to_date('2010-12-17 23:59:59','yyyy-mm-dd hh24:mi:ss') - updatedate >0
and to_date('2010-12-17 23:59:59','yyyy-mm-dd hh24:mi:ss') - updatedate < 3
order by updatedate

六种日期函数：
1.       add_months(日期，number)    指定日期推迟number个月
2.       last_day(日期)   指定日期当月的最后一天
3.       new_time(日期，时区简写)   调整时区
4.       next_day(日期，number)   number表示周几，星期日是1，指定number的日期（一周内或一周后）
5.       months_between(日期1，日期2)   日期1和日期2之间有几个月
6.       sysdate   系统当期那日期和时间

update trans_exchangeapplication set applicationformdata = replace(applicationformdata,',','#')
where id='1ca156d9-e931-4d70-91a5-c32c1ea724ee'

/*
sselect to_char(TRANSACTIONTIME,'yyyy-MM-dd') as StatisticDataTime,
sum(decode(TRANSACTIONTYPE,'1',TRANSACTIONMONYAMOUNT,0)) as DepositCount,
sum(decode(TRANSACTIONTYPE,'3',TRANSACTIONMONYAMOUNT,0)) as ConsumCount
from trans_transactionhistory t
where months_between(TRANSACTIONTIME,to_date('2010-12-1','yyyy-MM-dd'))<1
group by to_char(TRANSACTIONTIME,'yyyy-MM-dd')
order by StatisticDataTime desc
*/

/*按月，2010年的，按月
select to_char(TRANSACTIONTIME,'yyyy-MM') as StatisticDataTime,
sum(decode(TRANSACTIONTYPE,'1',TRANSACTIONMONYAMOUNT,0)) as DepositCount,
sum(decode(TRANSACTIONTYPE,'3',TRANSACTIONMONYAMOUNT,0)) as ConsumCount
from trans_transactionhistory t
where to_char(TRANSACTIONTIME,'yyyy')='2010'
group by to_char(TRANSACTIONTIME,'yyyy-MM')
order by StatisticDataTime desc
* */

/*季报
select case when to_char(TRANSACTIONTIME,'q')=1 then '第一季度'
when to_char(TRANSACTIONTIME,'q')=2 then '第二季度'
when to_char(TRANSACTIONTIME,'q')=3 then '第三季度'
when to_char(TRANSACTIONTIME,'q')=4 then '第四季度' end as StatisticDataTime,
sum(decode(TRANSACTIONTYPE,'1',TRANSACTIONMONYAMOUNT,0)) as DepositCount,
sum(decode(TRANSACTIONTYPE,'3',TRANSACTIONMONYAMOUNT,0)) as ConsumCount
from trans_transactionhistory t
where to_char(TRANSACTIONTIME,'yyyy')='2010'
group by to_char(TRANSACTIONTIME,'q')
order by StatisticDataTime
*/

/*年报
select to_char(TRANSACTIONTIME,'yyyy') as StatisticDataTime,
sum(decode(TRANSACTIONTYPE,'1',TRANSACTIONMONYAMOUNT,0)) as DepositCount,
sum(decode(TRANSACTIONTYPE,'3',TRANSACTIONMONYAMOUNT,0)) as ConsumCount
from trans_transactionhistory t
where to_number(to_char(TRANSACTIONTIME,'yyyy'))>= 2010 and to_number(to_char(TRANSACTIONTIME,'yyyy'))<=2011
group by to_char(TRANSACTIONTIME,'yyyy')
order by StatisticDataTime desc
*/

本文链接

在VS2008中新建一个VC++的ATL方法时IE加载项2052错

2010-12-18T11:32:00Z

Internet Explorer 脚本错误

当前页面的脚本发生错误

行： 4034
char：3
错误：缺少对象
代码：0
URL: file:///C:/Program%20Files/Microsoft%20Visual%20Studio%208/VC/VCWizards/SmartDeviceAppWiz/ATL/ATLProject/html/2052/default.htm

网上有一个相似的新建VC++的MFC应用的解决方法：
错误提示：
当前页面的脚本发生错误
行： 4034
char： 3
错误：缺少对象
代码：0
URL： file:///D:/program%20files/Microsoft%20Visual%20Studio%
208/VC/VCWizards/SmartDeviceAppWiz/MFC/Application/html
/1033/default.htm

MFC应用的解决方法是：在注册表的HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Ext\PreApproved
中增加一个新的项并命名为 {D245F352-3F45-4516-B1E6-04608DA126CC}

现在的这个2052错误有大侠知道如何解决吗？
我用的IE7，已经设置到最低安全属性了。

今天第一次在VS08上创建智能项目，想尝试一下windows mobile的开发，结果弄了半天竟然不能创建智能项目~！

郁闷至极，然后baidu一把，发现好像是由IE引起的，又找了N久，终于找到了正确的方法：（以下文字来源：博客园作者：温伟鹏）

“Vista系统，VS2005和VS2008开发环境，安装IE8以后，无法创建 VC++ Smart Device Project，解决方法如下：

　　1、打开Regedit

　　2、找到键值“HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\”

　　3、找到项“1000”，如果不存在，则创建

　　4、在“1000”项中新建DWORD值“1207”，Value=0

　　5、关闭Regedit，运行VS，新建Smart Device Project试试吧！

　　Enjoy!”

说明：1.作者说是在Vista下解决问题的，实际上我在xp下也解决了

2.上文中HKCU即HKEY_CURRENT_USER

本文链接

Image <=> byte[]

2009-03-04T03:30:00Z

private Byte[] Image2Bytes(string imagefilename) { System.IO.FileStream stream = new System.IO.FileStream(imagefilename, System.IO.FileMode.OpenOrCreate); byte[] bytes = new byte[stream.Length]; if (s...

批CMMI软件过程改进

2009-02-09T06:08:00Z

CMMI的4,5级高成熟度等级强调数据和量化项目管理，前提必须是过程本身已经稳定，而且组织已经有成熟易用的软件开发过程管理支持平台，日常的任务反馈，变更和缺陷记录等都应该融入到日常工作中。数据的采集要尽量自动化，而且数据的收集不能经常打断开发人员的工作，影响到他们的思考和效率。组织级在技术平台和开发模式不统一的情况下，在过程定义上一定要避免一刀切的标准软件开发过程。需要根据项目本身的特点和人员情况...

SVN对比VSS,不知这样够了没

2008-09-27T09:28:00Z

公司强制使用VSS，用SVN惯了，很不爽。整理了下面的对比，请指正 VSS与SVN的对比整理伪秀才Shicheng.yan@gamil.com2008-9-27 项目 VSS SVN 备注原子性提交 Atomic commit 不支持支持 SVN无论批量提交包含多少文件修改，只有当全部文件修改都成功入库，该提交才变得有效，才对其他用户可见；否则，无论任何原因造成中断，SVN都会自动“...

BBMC与ReptName，一年以后再看上去，哪个容易明白？

2008-09-26T02:40:00Z

英文,or,拼音首字母缩写？今天看我们行业的国家的某个数据库标准，哎，全是用拼音首字母的表名、字段名！有中文在旁边注释一下我还能清楚，你看：目标标识码 MBBSM 要素代码 YSDM 点状地物代码 DZDWDM 点状地物名称 DZDWMC 。。。无语了！个人是强烈反对使用拼音缩写！BBMC与ReptName，一年以后再看上去，哪个容易明白？例如：报表名称 ReptName; 如果用拼音的话：...