DelphiµÄ·¢Õ¹·½Ïò
¶Á“Delphi2010,DELPHIµÄÏ£Íû?”ÓиÐ
ÔÎÄ£ºhttp://www.gowjq.com/forum-29-1.html
1£© Ê¢´óµÄÖ÷Òª¿ª·¢¹¤¾ßÊÇDelphi, Ïê¼û£º http://act.sdo.com/Delphi/£¬ ÓÎÏ·ÊÇÒ»ÖÖ¸´ÔÓ½»»¥½çÃæµÄ¿ª·¢£¬Delphi¿ÉÒÔʤÈΡ£Í¬Ñù×÷ΪÆóÒµÓ¦ÓõÄǰ¶Ë£¬ÓÃDELPHI¿ª·¢Ò²ÊǺܺõÄÑ¡Ôñ¡£
2£© ÒÔÏÂÊǹØÓÚDelphi·¢Õ¹·½ÏòÎÄÕ£¬¿ÉÒÔ¿´µ½DelphiÓëJavaDotNetÊÇÁ½¸ö²»Í¬µÄ·½Ïò¡£DelphiÊÇͨ¹ý“Êý¾Ý·â×°”ʵÏÖÆóÒµ¼¶Ó¦Óúó¶Ë¿ª·¢(DBX£¬ DataSnap)£¬¶øJavaÓëDotNetÊÇͨ¹ýÐòÁл¯¶ÔÏó·½·¨ÊµÏÖÆóÒµ¼¶ºó¶Ë¿ª·¢¡£“Êý¾Ý·â×°”ËäÈ»¸ßЧ£¬µ«²»ÊǺó¶Ë¿ª·¢µÄÖ÷Á÷¡£David IµÄ·½ÏòÓÐÎÊÌâ¡£
3£© ÎÒÈÏΪDelphiµÄ·½ÏòÓ¦ÊÇ£º
1£©ÆóÒµ¼¶Ó¦ÓõÄǰ¶Ë¿ª·¢µÄÀûÆ÷¡£Òƶ¯¿ª·¢ÊÇÆóÒµ¼¶Ó¦ÓõÄǰ¶Ë£¬DelphiÓ¦Ö§³Ö¡£
2£©Îª·ÃÎÊÆóÒµ¼¶ºó¶ËÓ¦ÓÃÌṩ·á¸»½Ó¿Ú¡£²»Ó¦¼¯ÖÐÔÚdBx»òdatasnapÉÏ£¬Ó¦¶àÖ§³Ösdo, json, soapµÈ¡£
Ïà¹ØÎĵµ£º
Delphi²Ù×÷XMLÊǺܷ½±ãµÄ£¬Ö÷ÒªÓÐÁ½ÖÖ·½·¨£»
1.ÓÃTClientDataSet²Ù×÷XML£»TClientDataSetÊǸöºÃ¶«Î÷£¬ÓÃËü²Ù×÷XMLÊǺܼòµ¥µÄÊ£¬²»¹ýȱµãÊÇÖ»ÄܲÙ×÷¹Ì¶¨¸ñʽµÄ XML£¬ËüÊʺϲÙ×÷±í½á¹¹µÄÊý¾Ý£¬Èç¹ûÄãÐèÒª°ÑÊý¾Ý±íµ¼³ö³ÉXMLÄÇÓÃTClientDataSetÊǸöºÃÖ÷Ò⣬±ÈÈçÏÂÃæÊÇÒ»¸öÊý¾Ý¼¯µ¼³ö³ÉXMLµÄ· ......
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Bu ......
ÀûÓÃÄÚ´æÁ÷À´ÅжÏÎļþµÄ¸ñʽ£¬ÆäʵÅжÏÎļþµÄǰ¼¸¸ö×ֽھͿÉÒÔ¼òµ¥µÄÅжÏÕâ¸öÎļþÊÇʲôÀàÐ͵ÄÎļþ¡£
procedure TFrm.CheckImgType(Sender: TObject);
var //ÉùÃ÷±äÁ¿
MyImage:TMemoryStream; //ÄÚ´æÁ÷¶ÔÏó
Buffer:Word;
i:integer;
beg ......
uses Tlhelp32;
function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOLean;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(T ......