Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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Àï


Ïà¹ØÎĵµ£º

JavaÎļþÏÂÔØµÄ¼¸ÖÖ·½Ê½

´ÓÍøÉÏ¿´µ½Ò»¸ö²»´íµÄjavaÎļþÏÂÔØµÄ¼¸ÖÖ·½Ê½ÎÄÕ£¬ÄùýÀ´¸ú´ó¼Ò·ÖÏíһϣº
JavaÎļþÏÂÔØµÄ¼¸ÖÖ·½Ê½
    public HttpServletResponse download(String path, HttpServletResponse response) {
        try {
 &n ......

delphi ¿ØÖÆ·Ö²¼Ê½Êý¾Ý¿âͨÐÅ·½Ê½

Ò»¡¢     ÍøÂç²¼¾Ö
   һ̨ÖÐÐÄSQL·þÎñÆ÷£¨¼ò³Æ£ºÖÐÐÄ·þÎñÆ÷£©£¬¶ą̀·Ö²¼ÔÚ²»Í¬µØÓòµÄSQL·þÎñÆ÷£¨¼ò³Æ£º±¾µØ·þÎñÆ÷£©£¬¸÷¸ö±¾µØ·þÎñÆ÷ºÍÖÐÐÄ·þÎñÆ÷¶¼ÄÜͨ¹ýinternetʵÏÖÍøÂ绥Á¬¡£
¶þ¡¢ËùÓÃÓïÑÔ¼°Êý¾Ý¿â£ºDelphi +Sql
¶þ¡¢     ͨÐÅÒªÇó
   ÿ̨±¾µØ·þÎñÆ ......

DelphiÓëXMLÎĵµ

ͬ²½³ÌÐò°¸Àý
procedure TGetOrderThread.PostDB(webnr:WideString);
var
  Err: String;
  SetWebnr:WideString;
  xmlDoc: IXMLDocument;
  root: IXMLNode;
  rowc: IXMLNode;//¼Ç¼Êý
  rows: IXMLNodeList;//Ö÷¼Ç¼Áбí
  row: IXMLNode;
  drows: IXMLNodeList;// ......

delphiÈçºÎ»ñÈ¡ÆÁÄ»µÄ·Ö±æÂÊ

ÆÁÄ»µÄ·Ö±æÂÊÓÃÕâ¸ö  
  x=GetSystemMetrics(SM_CXSCREEN)  
 
y=GetSystemMetrics(SM_CYSCREEN)  
  ͬÉÏ¡£
.¶øÇÒ»ñµÃÆÁÄ»ÉϵÄÏñËØºÃÏñÓ¦¸ÃʹÓÃ
screen.pixelsperinchº¯Êý
int   GetDeviceCaps(  
   
    ......

Delphi ÈÕÆÚº¯Êý

Day ¿ªÍ·µÄº¯Êý
¡ñ
Unit
DateUtils
function DateOf(const Avalue: TDateTime): TDateTime;
ÃèÊö
ʹÓà DateOf º¯ÊýÓÃÀ´°ÑÒ»¸ö TDateTime ÀàÐ͵ıäÁ¿×ª±ä³ÉÒ»¸ö
Ö»´øÓÐÈÕÆÚµÄ TDateTime ÀàÐͱäÁ¿¡£
ÀýÈ磺
showmessage(DateTimetostr(dateof(now())));
ÄãµÃµ½µÄÊÇ 2003/03/19
¶ø showmessage(DateTime ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ