ÔÚdelphi 2010 Éϰ²×° RemObjects 6.0.39.777
×÷ΪdelphiµÄÌú¸Ë£¬ÔÚÕýʽDelphi2010ÍÆ³öºó£¬ÎÒµ±È»Ò²Òª³¢³¢ÐÂÏÊ£¬Óõç¿ÏÂÀ´ÒÔºó°²×°¡£ºÇºÇ¶þÊ®¶à·ÖÖӾ͸㶨ÁË£¬Æô¶¯Ò²Ìؿ죬¼òµ¥Ê¹ÓÃһϣ¬°ô°ô£¡£¡¿´À´Delphi£¨Ì«ÑôÉñ£©ÓÖ»ØÀ´ÁË£¬ÈçÊÇÎÒ¾ö¶¨Åׯúdelphi2007£¬ÓÃÕâ¸öмһÎÒËùÓõĵÚÈý·½×é¼þÖ÷ÒªÊÇRemObjectsºÍreportbuilder£¬reportbuilder»¹Ã»ÓÐÕÒµ½°²×°forD2009 Full source »òÕßforD2010 µÄ£¬Èç¹ûÄÇλ´ó¸çÓÐreportbuilder 11.03 full sourc »òÕßreportbuilder 11.06 Çë¸æËßÎÒŶ¡£ÕâÀïÏÈ̸̸ÎÒ°²×°RemObjectsµÄ¾Ñé¡£
1¡¢Èç¹ûÄã°²×°ÁËRemObjects5.025ÏÈÐ¶ÔØ¡£
2¡¢ÏÂÔØRemObjects 6.0.39.777 full source £¨ÔÚCSDNÀïÕÒ£© ºÍcracked
3¡¢°²×°SDK ,HY,DA,Íê³ÉºóÓÃcracked°üÀïµÄÎļþ¸²¸Ç°²×°Îļþ¼ÐÀïÏàÓ¦µÄÎļþ¡£
4¡¢´ò¿ªRemObjects SDK for Delphi\Source\eDefines.incÎļþ
Ð޸ģº
{ defines for Delphi 2009 }
{$IFDEF VER200}
Ϊ£º
{ defines for Delphi 2009 }
{$IFDEF VER210}
5¡¢¸´ÖÆEverwood\Source\*.*µ½RemObjects SDK for Delphi\Source\
4¡¢´ò¿ªDelphi2010 ´ò¿ª
RemObjects SDK for Delphi\Source\BuildPackages_D12.groupproj
´ò¿ªRemObjects_IDE_D12.bpk
REMOVE RemObjects_Everwood_D12.dcu
±àÒë²¢°²×°°ü¡£¿ÉÄÜÓÐЩ´íÎóÌáʾÖ÷ÒªÊÇROµÄ´íÎóÌáʾ×Ö·û£¬Ëæ±ãÐÞ¸Äһϼ´¿É¡£
5¡¢¸´ÖÆRemObjects_Core_D12.bplµ½ÏµÍ³Îļþ¼Ð¼´¿É
DA»¹Ã»Óа´ÉÏÈ¥£¬ÒªË¯¾õÁË¡£¡£
Ïà¹ØÎĵµ£º
DelphiÖÐʵÏÖÎļþ¿½±´µÄÈýÖÖ·½·¨
1£®µ÷ÓÃAPIº¯Êý
procedure CopyFile(fromFileName,ToFileName:string);
var
f1,f2:file;
Begin
AssignFile(f1,fromFileName); file://Ö¸¶¨Ô´ÎļþÃû
AssignFile(f2,ToFileName); file://Ö¸¶¨Ä¿±êÎļþÃû
Reset(f1);
Try
Rewrite(f2);
Try
If Lzcopy(TfileRec(f1).handle,TfileRe ......
Ò»¡¢Ê¹ÓÃÎļþÁ÷µÄ·½·¨½øÐп½±´£¬µ±È»¡£Í¬ÑùµÄµÀÀí£¬ÄãÒ²¿ÉÒÔʹÓÃÄÚ´æÁ÷µÈ·½·¨½øÐÐÎļþµÄ¿½±´£¬ÔÀíÊÇÒ»ÑùµÄ¡£
procedure copyfile(sourcefilename,targetfilename : String);
var f1, f2: tfilestream;
begin
f1 := tfilestream.Create(sourcefilename, fmopenread);
try
f2 := tfilestream ......
¶¯Ì¬Á´½Ó¿âÊÇÒ»¸öÄܹ»±»Ó¦ÓóÌÐòºÍÆäËüµÄDLLµ÷ÓõĹý³ÌºÍº¯ÊýµÄ¼¯ºÏÌå,ËüÀïÃæ°üº¬µÄÊǹ«¹²´úÂë»ò×ÊÔ´¡£ÓÉÓÚDLL´úÂëʹÓÃÁËÄÚ´æ¹²Ïí¼¼Êõ,ÔÚijЩµØ·½windowsÒ²¸øÁËDLLһЩ¸ü¸ßµÄȨÏÞ,Òò¶øDLLÖпÉÒÔʵÏÖһЩһ°ã³ÌÐòËù²»ÄÜʵÏֵŦÄÜ,ÈçʵÏÖwindowsµÄHOOK¡¢ISAPIµÈ¡£Í¬Ê±,DLL»¹Îª²»Í¬ÓïÑÔ¼ä´úÂë¹²ÏíÌṩÁËÒ»Ìõ·½±ãµÄ;¾¶¡£Òò¶øD ......
// ÅжÏÊÇ·ñÊÇÊýÖµÐÍ By yangxiao 2007.7.21
function isNumeric(strText: WideString): Boolean;
var
s: string;
i, l, p: Integer;
begin
Result := False;
l := Length(strText);
if l = 0 then Exit;
s := '';
for i:=1 to l do
......
Ò»ÌáÆð»ùÓÚWeb Services¼¼ÊõµÄÓ¦ÓóÌÐò¿ª·¢£¬Ò»°ãÈËÊ×ÏÈÏëµ½µÄ¿ª·¢¹¤¾ßÊÇVs.net£¬Æäʵ×÷Ϊ¿ìËÙÓ¦ÓóÌÐò¿ª·¢¹¤¾ß(RAD)µÄÀÏ´ó£¬Delphi´Ó6.0¾Í¿ªÊ¼Ö§³ÖWeb ServicesµÄ¿ª·¢ºÍÓ¦ÓÃÁË£¬±¾ÎÄͨ¹ýʹÓÃDelphi 7.0µ÷ÓÃÐÂÀË·¢ËͶÌÐŵÄWeb Service½øÐжÌÐÅÓ¦ÓóÌÐò¿ª·¢ÕâһʵÀýÏêϸµÄ½éÉÜÔÚDelphiÖÐÈçºÎ¿ª·¢»ùÓÚWeb ServicesµÄÓ¦ÓÃϵͳ¡ ......