delphi + java µÄ·Ö²¼Ê½Ó¦ÓÃ˼¿¼
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ÖÐеķֲ¼Ê½¼Ü¹¹ÖÐÒ²ÊDzÉÓõÄjsonµÄ×ÊÁÏ´«Êä¸ñʽ£¬
¡¡¡¡µ«Ä¿Ç°²»Ã»ÓÐÕÒµ½json-rpc for delphiµÄ¿Ø¼þ£¬²»Öªjson tookit ÊDz»·ñ¿ÉÒÔʵÏÖjson-rpc for delphi
»¹ÓоÍÊÇÈçºÎ°Ñ´«ÊäµÄÊý¾Ý·Åµ½clientdatasetÀï
Ïà¹ØÎĵµ£º
×î½üStephan SchmidtÔÚ²©¿ÍÖз¢±íÁËÌâΪ¡¶ÏÂÒ»´úJava±à³Ì·ç¸ñ¡·µÄÎÄÕ£¬²ûÊöÁËËûÑÛÖÐJava±à³Ì·ç¸ñµÄ¸Ä±ä£¬ÒÔ¼°Î´À´µÄ×ßÏò£ºÐí¶à¹«Ë¾ºÍ¿ª·¢ÈËÔ±ÕýÔÚ´ÓJavaתÏòÆäËû±à³ÌÓïÑÔ£ºRuby¡¢Python¡¢Groovy¡¢Erlang»òScalaµÈµÈ¡£²»¹ýÄã¿ÉÄÜ×ö²»µ½ÕâÒ» µã¡£¼´±ãÈç´Ë£¬ÄãÒ²¿ÉÒԸıäÄãµÄ±à³Ì·ç¸ñ£¬»ñÈ¡ÕâЩÐÂÓïÑÔµÄÓÅÊÆ¡£ÊÂʵÉÏ£¬ÔÚ¹ýÈ ......
1.ÌáǰдºÃ±¸·Ý.bat£¬·ÅÔÚij¸öÎļþ¼ÐÀ½«Â·¾¶ÉèÖÃÔÚ.propertiesÀïµÄ
@echo off
set txt=%date:~0,4%%date:~5,2%%date:~8,2%%time:~0,2%%time:~3,2%%time:~6,2%
echo %txt%
echo --------------------------------------------------
echo -------------ÕýÔÚÖ´ÐÐoracleÊý¾Ý¿â±¸·Ý--------------
echo ----- ......
TStringsÊÇÒ»¸ö³éÏóÀ࣬ÔÚʵ¼Ê¿ª·¢ÖУ¬ÊdzýÁË»ù±¾ÀàÐÍÍ⣬ӦÓõÃ×î¶àµÄ¡£
³£¹æµÄÓ÷¨´ó¼Ò¶¼ÖªµÀ£¬ÏÖÔÚÀ´ÌÖÂÛËüµÄһЩ¸ß¼¶µÄÓ÷¨¡£
ÏÈ°ÑÒªÌÖÂ۵ļ¸¸öÊôÐÔÁгöÀ´£º
1¡¢CommaText
2¡¢Delimiter & DelimitedText
3¡¢Names & Values & ValuefromIndex
ÏÈ¿´µÚÒ»¸ö£ºCommaText¡£ÔõôÓÃÄØ£¿ÓôúÂë˵»°£º
const
......
1¡¢Ê×ÏȽ«delphiÖÐControlsµ¥ÔªÌáÈ¡
2¡¢ÐÞ¸ÄControlsµ¥ÔªÖÐÈçϲ¿·Ö£º
procedure TWinControl.CreateParams(var Params: TCreateParams);
begin
FillChar(Params, SizeOf(Params), 0);
with Params do
begin
Caption := FText;
Style := WS_CHILD or WS_CLIPSIBLINGS;
&nbs ......
ÆÁÄ»µÄ·Ö±æÂÊÓÃÕâ¸ö
x=GetSystemMetrics(SM_CXSCREEN)
y=GetSystemMetrics(SM_CYSCREEN)
ͬÉÏ¡£
.¶øÇÒ»ñµÃÆÁÄ»ÉϵÄÏñËغÃÏñÓ¦¸ÃʹÓÃ
screen.pixelsperinchº¯Êý
int GetDeviceCaps(
  ......