¹ØÓÚDELPHI¶àÏß³Ìͬ²½µÄÎÊÌâ - Delphi / ·Ç¼¼ÊõÇø
¸÷λÅóÓÑ´ó¼ÒºÃ£¬±¾È˸տªÊ¼Ñо¿¶àỊ̈߳¬»¹Óкܶ಻Ã÷°×µÄµØ·½£¬Íû´ó¼ÒÖ¸½Ì£¬Ð»Ð»£¡
ÎÊÌâÊÇÕâÑùµÄ£º
¶¨ÒåÁ½¸öỊ̈߳¬µ±°´Å¥Á¬½ÓʱִÐÐÁ¬½Ó´´½¨Ò»¸öÏß³ÌÐò£¬Á¬½Ó³É¹¦ºóÖ´Ðвéѯ°´Å¤ÔÙ´´½¨Ò»¸öỊ̈߳¬ÏÖÔÚÎÊÌâÊDzéѯÏß³Ì
ÖÐÎÞ·¨ÀûÓá¡Á¬½ÓÏ̵߳ÄSocketConnection1£¬ÈçºÎͬ²½ÄØ£¿
²¿·Ö´úÂëÈçÏ£º
¶¨Ò壺
type
Tthread1 = class(Tthread)
protected
procedure Execute;override;
procedure getSocketConn;
end;
type
Tthread2 = class(Tthread)
protected
procedure Execute;override;
procedure getClientDataSet;
end;
procedure Tthread1.Execute;
begin
Try
FreeOnTerminate:=true;
ConToolsFrm.SocketConnection1.ServerGUID:='{2C8E3F43-ABE4-11D4-B352-00E04C67568C}';
ConToolsFrm.SocketConnection1.ServerName:='apply_tier.Apply_data';
ConToolsFrm.SocketConnection1.Connected:=False;
ConToolsFrm.SocketConnection1.Host:= ConToolsFrm.edtHost.Text;
ConToolsFrm.SocketConnection1.Connected:=True;
ShowMessage('Á¬½Ó³É¹¦£¡');
Except
ShowMessage('Á¬½Óʧ°Ü£¬Çë¶Ï¿ªºóÔÙÊÔ£¡');
ConToolsFrm.SocketConnection1.Connected:=False;
end;
end;
procedure Tthread2.Execute;
var
sqlStr:string;
begin
ConToolsFrm.ClientDataSet1.Close;
&nb
Ïà¹ØÎÊ´ð£º
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿
sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£
È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾
ѧϰѧϰ¡£
ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......
1¡¢ÎÒÄÜ·ñÔÚdelphiÀïµ÷ÓÃÁíÍâÒ»¸öºǫ́³ÌÐò£¬µ«ÊÇÎÒ²»ÐèÒªµÈ´ýÕâ¸öºǫ́³ÌÐòÖ´ÐÐÍê³É£¬»¹¿ÉÒÔ¼ÌÐøÖ´ÐбðµÄ³ÌÐò¡£ÇëÎʾßÌåÔõôÑù²ÅÄÜʵÏÖ¡£
2¡¢ÎÒÄÜ·ñÔÚdelphiÉÏÖ´ÐÐÒ»¸ö¿ì½Ý¼ü£¬Ê¹delphi´°¿Ú³ÌÐòÄܹ»Ë¢ÐÂһϡ£[/size ......
Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
ÀÏʦ²¼ÖÃÁËÒ»¸ö¿ÎÌ⣬ÐèÒªÓÃDelphi×öÒ»¸öÓ°ÔºÊÛÆ±¹ÜÀíϵͳ£¬µ«ÊÇÎÒÃÇ»¹Ã»ÓÐѧ¹ýDelphi£¬¸÷λ¸ßÊÖÄÜ·ñÖ¸µãһϣ¬ÈçºÎ½øÐÐϵͳÉè¼Æ£¬Ê±¼ä±È½Ï½ô¼±£¬Ð»Ð»°¡
ÎÒÒ²²»¶®£¬Ò²Ïëѧ£¡
ÎÒÒ²Êǰ¡£¬¸Ð¾õDelphiͦºÃµÄ£¬ÏÖ ......