¹ØÓÚDelphiÖÐTcpServerºÍTcpClientµÄһЩÎÊÌâ
ÎÒдÁËÒ»¸ö·þÎñÆ÷ºÍ¿Í»§¶ËÓ¦ÓóÌÐò£¨TcpServerºÍTcpClient£©£¬ÏÂÃæÊÇTcpServer.OnAcceptº¯Êý£¬ÎÒÖ÷ÒªÏë°Ñ²ÎÊýClientSocket´«µÝ¸ø×Ô¼º´´½¨µÄÏß³ÌÀàÖеijÉÔ±±äÁ¿socket£¬ÔÚÏß³ÌÖиú¿Í»§¶Ë½øÐÐͨÐÅ£¬¿ÉÊÇÊÇÔÚÖ´ÐÐTMyThreadÀàµÄExecute½øÐÐÊý¾Ý¶Áȡʱ³öÏÖÁË´íÎó
procedure TForm1.TcpServerAccept(Sender: TObject;
ClientSocket: TCustomIpClient);
var
dataThread:TMyThread;
begin
dataThread:=TMyThread.Create(false);
end;
ÏÂÃæÊÇÎÒ¶¨ÒåµÄTMyThreadÀà
unit MyThread;
interface
uses
Classes,Sockets,Dialogs;
type
TMyThread = class(TThread)
public
Socket:TCustomIpClient;
command:String;
constructor Create(ClientSocket:TCustomIpClient;SuspendedOnCreate:boolean); overload;
destructor Destroy;override;
private
{ Private declarations }
protected
procedure Execute; override;
end;
implementation
constructor TMyThread.Create(ClientSocket:TCustomIpClient;SuspendedOnCreate:boolean);
begin
Inherited Create(SuspendedOnCreate);
FreeOnTerminate:=true;
Priority:=tpNormal;
Socket:=TCustomIpClient.Create(nil);
socket:=ClientSocket;
end;
destructor TMyThre
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡¡);
Îļþ£ºUShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......
Çë½ÌÒ»¸öÎÊÌ⣬ÏÖÔÚÓÐÒ»ÏîÄ¿ÐèÒª»æÖÆÇúÏßͼ£¬
ÒªÇ󣺣¨¿ÉÒÔÈÎÒâÑ¡Ôñºá×ø±ê£¨Ê±¼ä£©·¶Î§»³ö¶ÔÓ¦µÄÊý¾ÝÇúÏߣ¬×Ý×ø±ê×Ô¶¯ÓÅ»¯ÉèÖÃ(Ò²¿ÉÊÖ¹¤Ñ¡Ôñ)£¬¿ÉÒÔÔÚÈÎÒâʱ¼ä¶ÎÄÚ·Å´ó¡¢ËõСͼÐΣ¬Ä³¾ßÌåÊý¾ÝµãµÄ¶¨Î»¼°´ËÊý¾ÝµãµÄ ......
ÇëÎÊdelphiÖеϲ¼ÄÜ»æ×ø±êͼÂð£¬ÄÇλ´óʦÓÐÕâ·½ÃæµÄÀý×Ó£¬°ïæ·¢Ò»¸ö£¬Ð»Ð»ÁË£¡ÎÒµÄÓÊÏäÊÇspringbird2006@126.com
tChart¿Ø¼þ¾Í¿ÉÒÔ£¬»¹ÓÐһЩµÚÈý¿Ø¼þ¡£ÏÂÔØÆµµÀÀï¾ÍÓв»ÉÙ¡£
¿É²»¿ÉÒÔ˵¾ßÌåµãÄØ£¬ÎÒ¸Õѧdelp ......