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

delphi ʹÓÃado ¶Áд vfp»òÕßdbase4µÄÊý¾Ý¿â


tableDB.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ExtractFilePath(dir) +';Extended Properties=dBase 5.0;Persist Security Info=False;';
       tableDB.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(dir)+';Extended Properties=dBASE IV;User ID=Admin;Password=;';
ʹÓÃado¶ÁÈ¡dbfµÄʱºò£¬³öÁËһЩÎÊÌ⣬ʹÓÃÉÏÃæµÄÁ¬½Ó´®£¬ÔÚдdbfÎļþµÄʱºò£¬ÖÐÎĵÄÊý¾ÝÔÚ±£´æµÄʱºò¾Í³ÉÁËÂÒÂ룬µ«ÊÇÔÚ±í¸ñÏÔʾµÄʱºòÈ´ÊÇÕý³£µÄ£¬Êý×Ö»òÕß×ÖĸûÓÐÎÊÌâ¡£
ÓÃÏÂÃæµÄÁ¬½Ó´®ÔÚдÖÐÎÄÊý¾ÝµÄʱºòûÓÐÎÊÌ⣬²»¹ýÐèҪעÒâÓÐЩ¿Í»§µçÄÔûÓÐ×°vfpodbcÇý¶¯£¬ÔÚ´ò°ü°²×°³ÌÐòµÄʱºò£¬×îºÃÒ»¿é´ò°ü°²×°¡£
       tableDB.ConnectionString:='Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB='+ExtractFilePath(dir)+';SourceType=DBF;';


Ïà¹ØÎĵµ£º

VCÖе÷ÓÃDelphiµÄDLLÖеĻص÷º¯ÊýÀý×Ó

//Delphi²¿·Ö  
 //»Øµ÷º¯Êý¶¨Òå
type TOnMyCallBack = procedure(data:pchar; id:Integer);stdcall;  
 //DLLÖеĵ¼³öº¯ÊýÉùÃ÷
procedure StartCall(param:   TOnMyCallBack(data:pchar; id:Integer);stdcall;  
begin
  ...  
  ...  
end;  
&n ......

DelphiÀàÐÍת»»

Chr ½«Ò»¸öÓÐÐòÊý¾Ýת»»ÎªÒ»¸öANSI×Ö·û  
Ord ½«Ò»¸öÓÐÐòÀàÐÍֵת»»ÎªËüµÄÐòºÅ  
Round ×ª»»Ò»¸öʵÐÍֵΪËÄÉáÎåÈëºóµÄÕûÐÍÖµ  
Trunc ×ª»»Ò»¸öʵÐÍֵΪСÊý½Ø¶ÏºóµÄÕûÐÍÖµ  
Int ·µ»Ø¸¡µãÊýµÄÕûÊý²¿·Ö  
IntToStr ½«Êýֵת»»Îª×Ö·û´ ......

java µ÷Óà delphi±àдµÄdll


ÓÐЩʱºò,ҪдһЩ³ÌÐò,ÔÚ JAVA ÀïÃæºÃÄÑʵÏÖ, µ«Èç¹ûʹÓÃÆäËü±à³ÌÓïÑÔÈ´ÓֱȽÏÈÝÒ×ʱ,ÎÒÃDz»·Áͨ¹ý JNI À´Èò»Í¬ÓïÑԵijÌÐò¹²Í¬Íê³É.
JNI µÄ½Ì³Ì, ÍøÉÏ C µÄ±È½Ï¶à,Java Ò²ÌṩÁË javah.exe Ϊ C ÓïÑ﵀ JNI ³ÌÐòÉú³ÉÍ·Îļþ, Èç¹ûÄãÊÇÒ»¸ö Delphi ±à³ÌÔ±, ÄÜ·ñÈà JAVA Óë Delphi ³ÌÐò½»»¥ÄØ? ´ð°¸Êǿ϶¨µÄ,½ñÌìÎÒÃǾÍÀ´ ......

Delphi Ìõ¼þÅжÏÄÇЩÊÂ

¼¼Êõ½»Á÷,DH½²½â. ֮ǰÕÕ×ÅÌìÊéÒ¹¶Á,ÓÃDelphiÀ´ÅªÁËÏÂÑ­»·Ìå,ÏÖÔÚ¾ÍÀ´ÅªÒ»ÏÂÌõ¼þÅжϰÉ.
Ê×Ïȿ϶¨ÊÇÎÒÃǾ­³£¿´¼ûµÄIFÓï¾ä¿©. Var
I: Integer;
Begin
I:= 99;
If (I> 0)And (I< 0) Then
Writeln('I>0')
Else
If (I> 10)And (I< 100) Then
Writeln('I>10 and I100');
End.
·´»ã±à³öÀ´»áÊÇ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ