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

¹ØÓÚ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ÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

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

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

¹ØÓÚ±ÜÃâdelphi°æÈ¨»òÕßÊÕÂÉʦº¯µÄ·½°¸¡£

×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......

ÇóÒ»¶Îdelphi´úÂëתC#´úÂ룬¼±Ó㬿ÉÈËÃñ±ÒÖ§¸¶£¬Ð»Ð»

¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡­¡­);
Îļþ£ºUShare.pas
Delphi(Pascal) code:

unit UShare;
interface
uses Windows, Me ......

delphi»æÍ¼

Çë½ÌÒ»¸öÎÊÌ⣬ÏÖÔÚÓÐÒ»ÏîÄ¿ÐèÒª»æÖÆÇúÏßͼ£¬
ÒªÇ󣺣¨¿ÉÒÔÈÎÒâÑ¡Ôñºá×ø±ê£¨Ê±¼ä£©·¶Î§»­³ö¶ÔÓ¦µÄÊý¾ÝÇúÏߣ¬×Ý×ø±ê×Ô¶¯ÓÅ»¯ÉèÖÃ(Ò²¿ÉÊÖ¹¤Ñ¡Ôñ)£¬¿ÉÒÔÔÚÈÎÒâʱ¼ä¶ÎÄÚ·Å´ó¡¢ËõСͼÐΣ¬Ä³¾ßÌåÊý¾ÝµãµÄ¶¨Î»¼°´ËÊý¾ÝµãµÄ ......

delphi»­²¼»æ×ø±êͼ

ÇëÎÊdelphiÖеĻ­²¼ÄÜ»æ×ø±êͼÂð£¬ÄÇλ´óʦÓÐÕâ·½ÃæµÄÀý×Ó£¬°ïæ·¢Ò»¸ö£¬Ð»Ð»ÁË£¡ÎÒµÄÓÊÏäÊÇspringbird2006@126.com
tChart¿Ø¼þ¾Í¿ÉÒÔ£¬»¹ÓÐһЩµÚÈý¿Ø¼þ¡£ÏÂÔØÆµµÀÀï¾ÍÓв»ÉÙ¡£

¿É²»¿ÉÒÔ˵¾ßÌåµãÄØ£¬ÎÒ¸Õѧdelp ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ