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

¹ØÓÚ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


Ïà¹ØÎÊ´ð£º

PythonÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ

ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô­³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......

Ç¿ÁÒ½¨ÒéDELPHI°æ¸ü»»´ó°æ - Delphi / ·Ç¼¼ÊõÇø

hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ­³£ÉÏÀ´×ª×ªµÄ

ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔ­Òò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......

DELPHI DLLʵ²Î´«´°Ìå

//DLL ·ÅÔÚEXEÖÐûÎÊÌâ
function SkinForm(var skfrm:TForm):Integer;stdcall;
var
  skf:TbsBusinessSkinForm;
  nskfrm:TForm;
begin
  frmUUMain:=skfrm;
  skf:=TbsBus ......

¹ØÓÚDelphi IXMLDOMNodeList ±£´æ

var
FXmlDoc:IXMLDomDocument;
begin
ʹÓÃFXmlDoc.save('Îļþ·¾¶')£»
½á¹û·¢ÏÖ±£´æºóµÄ¸ÃÎļþÖÐÎÄÈ«²¿ÎªÂÒÂ룬ÈçºÎ½â¾ö
end£»
²Î¿¼Õâ¸ö
http://blog.csdn.net/jiangnanandi/archive/2008/11/28/3399804.aspx ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ