屏幕的分辨率用这个
x=GetSystemMetrics(SM_CXSCREEN)
y=GetSystemMetrics(SM_CYSCREEN)
同上。
.而且获得屏幕上的像素好像应该使用
screen.pixelsperinch函数
int GetDeviceCaps(
HDC hdc, //
device-context handle
int nIndex // index
of capability to query
);
LOGPIXELSX
Number of pixels per logical inch along the screen
width.
LOGPIXELSY Number of pixels &nbs ......
Day 开头的函数
●
Unit
DateUtils
function DateOf(const Avalue: TDateTime): TDateTime;
描述
使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个
只带有日期的 TDateTime 类型变量。
例如：
showmessage(DateTimetostr(dateof(now())));
你得到的是 2003/03/19
而 showmessage(DateTimetostr((now())));
得到的是 2003/03/19 10:50:49
●function DateTimeToStr(DateTime: TDateTime): string;
描述
DateTimeToString 函数将 TDateTime 类型的参数 DateTime 转换成一个
字符串，使用给定的全局变量 ShortDateFormat 的格式，时间部分按照
给定的全局变量 LongTimeFormat 的格式。
其中 DateTime 为零的部分将不会显示出来。
例如：
ShortDateFormat:=’yyyy mm dd’;
showmessage(DateTimetostr((now())));
你将得到：2003 03 19 10:50:49
●procedure DateTimeToString(var Result: string; const Format: string; DateTime: TDateTime);
描述：
DateTimeToString 方法将TDateTime类型的参数DateTime 按照由参数Format提供的格式
转化成字符串，并保存在Result中。
对于Format的格式类型，请� ......
TDXDraw DirectDraw 和 Direct3D 组件
TDXDIB 容纳DIB（设备无关位图，Device Independent Bitmap）的组件
TDXImageList 图片列表组件
TDX3D Direct3D 组件 （和TDXDraw一起使用）
TDXSound DirectSound 组件
TDXWave 容纳 Wave（波形音频文件）的组件
TDXWaveList Wave文件列表组件
TDXInput 输入组件，包括键盘和手柄输入
TDXPlay 通讯组件，用于网络游戏开发
TDXSpriteEngine 精灵引擎，用于管理游戏中产生的精灵（Sprite）详见游戏开发过程
TDXTimer 高速定时器，比 TTimer 要更快，更准确
TDXPaintBox TpaintBox 的 DIB 版本
TDXForm 优化过的 TForm，专门用于游戏开发
动画原理
在介绍动画的原理之前，我们先来介绍几个DirectX的术语。
表面（Surfaces）
这里我们暂且称作表面吧。在 DirectX 中，显存中被用来存储各种位图和视频缓冲的部分均被称作表面。而当前被显示在屏幕上的表面被称作主表面（primary surface）。在实验动画的过程中，我 ......
名称 类型 说明
--------------------------------------------------------------------------
abort 函数 引起放弃的意外处理
abs 函数 绝对值函数
addexitproc 函数 将一过程添加到运行时库的结束过程表中
addr 函数 返回指定对象的地址
......
技术交流,DH讲解. 最近和肥鸟交流了下关于字符串方面的知识,而这篇文章是很久以前写的,现在发出来吧. 我们写两段代码来对比下:
第一个用Copy函数:
procedure TForm1.Button1Click(Sender: TObject);
var
a,c:Cardinal;
n:Integer;
D:Double;
i:Integer;
b:string;
begin
c:=0;
for n:=0 to 99 do
begin
a:=GetTickCount;
for i:=0 to 999999 do
begin
b:=Copy(s,1,20);
end;
a:=GetTickCount-a;
C:=C+A;
end;
D:=C/100;
Label1.Caption:=FloatToStr(D);
end;
第二个用MoveMemory函数:
procedure TForm1.Button2Click(Sender: TObject);
var
a,c:Cardinal;
n:Integer;
d:Double;
i:Integer;
b:string;
begin
c:=0;
for n:=0 to 99 do
begin
a:=GetTickCount;
for i:=0 to 999999 do
begin
SetLength(b,20);
MoveMemory(@b[1],@s[1],20);
end;
a:=GetTickCount-a;
C:=C+A;
end;
D:=C/100;
Label2.Caption:=FloatToStr(D);
end;
其中:
procedure ......
delphi + java 的分布式应用思考
用delphi做界面层 java业务逻辑层 这样看上去很美吧？
具体的实现
java 做业务逻辑层 应该有多种选择 企业级的有EJB3, 轻量级的有spring
目前在学习ejb3，感觉用来做业务逻辑层真的很不错。spring还没有了解
界面层用delphi，RAD应该是delphi的优势。
关键的问题的如果把前端的delphi跟中间的java连系起来。
目前我能想到的有以下几种方式
webserverice, xml-rpc, json-rpc,php-rpc
webservice
delphi里支持webservice ejb3也支持webservice
问题点
１、使用webservice的效率怎么样，一般的感觉是使用webservice的效率不是很好
２、ejb3中webservice是无状态的，如何使用交易
３、delphi 的webservice和ejb3中webservice的兼容问题
xml-rpc
delphi有开源的xml-rpc的项目，java实现xml-rpc应该也有比较好的方式
php-rpc
国内开发的，delphi有相应的php-rpc的客户端控件
json-rpc
个人认为这个比较好，在delphi 2009中新的分布式架构中也是采用的json的资料传输格式，
但目前不� ......
delphi + java 的分布式应用思考
用delphi做界面层 java业务逻辑层 这样看上去很美吧？
具体的实现
java 做业务逻辑层 应该有多种选择 企业级的有EJB3, 轻量级的有spring
目前在学习ejb3，感觉用来做业务逻辑层真的很不错。spring还没有了解
界面层用delphi，RAD应该是delphi的优势。
关键的问题的如果把前端的delphi跟中间的java连系起来。
目前我能想到的有以下几种方式
webserverice, xml-rpc, json-rpc,php-rpc
webservice
delphi里支持webservice ejb3也支持webservice
问题点
１、使用webservice的效率怎么样，一般的感觉是使用webservice的效率不是很好
２、ejb3中webservice是无状态的，如何使用交易
３、delphi 的webservice和ejb3中webservice的兼容问题
xml-rpc
delphi有开源的xml-rpc的项目，java实现xml-rpc应该也有比较好的方式
php-rpc
国内开发的，delphi有相应的php-rpc的客户端控件
json-rpc
个人认为这个比较好，在delphi 2009中新的分布式架构中也是采用的json的资料传输格式，
但目前不� ......
最新文章 : delphi