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

Delphi Thread

Ö÷´°Ìå:
Delphi(Pascal) code:

procedure TfrmMain.btnResumeClick(Sender: TObject);
begin
myThread := TClientThread.Create(LeftPart(cbbServer.Text, ':'), StrToInt(RightPart(cbbServer.Text, ':')));
myThread.Resume;
mmoLog.Lines.Add('Ïß³ÌÒѼ¤»î');
end;

procedure TfrmMain.btnSuspendClick(Sender: TObject);
begin
if myThread = nil then
begin
ShowMessage('Ïß³Ìδ´´½¨!');
Exit;
end;
myThread.Suspend;
mmoLog.Lines.Add('Ïß³ÌÒÑ¹ÒÆð');
end;

procedure TfrmMain.btnStopClick(Sender: TObject);
begin
if myThread = nil then
begin
ShowMessage('Ïß³Ìδ´´½¨!');
Exit;
end;
myThread.Terminate;
myThread.WaitFor;
mmoLog.Lines.Add('Ïß³ÌÒÑÍ£Ö¹');
end;



Ï̵߳¥Ôª:
Delphi(Pascal) code:

unit uClientThread;

interface

uses
Windows, Classes, SysUtils, IdTCPClient, uString, Main, uCommon, Messages, Dialogs;

const
CM_DIAL = WM_USER + $100;
CM_HUNGUP = WM_USER + $101;

type
TClientThread = class(TThread)
private
FClient: TIdTCPClient;
FRequest: TStrings;
FResponse: TStrings;
FNotifyHandle: HWND;
// FPioneerCtrl: HWND;

procedure DoDial;
procedure DoDrop;
procedure DoUpload;
procedure DoSave;
protected
procedur


Ïà¹ØÎÊ´ð£º

delphiµÄdll×Ó´°ÌåÎÊÌâµÄ½â¾ö - Delphi / ·Ç¼¼ÊõÇø

Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾­³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌâ¡¢Æ½Ãæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......

¸¶·ÑÇódelphiÆ´Òô±à³Ì - Delphi / ·Ç¼¼ÊõÇø

¾ßÌåÒªÇóÓ뱨³êQQ729851670
771234717

¡°Æ´Òô±à³Ì¡±ÊÇʲôÒâ˼

ÒýÓÃ
¡°Æ´Òô±à³Ì¡±ÊÇʲôÒâ˼
1.¸øÒ»¸ö×Ö¿ÉÒÔÏÔʾƴÒô£¬¶àÒô×ֵϰÄÜÏÔʾ¶ÔÓ¦µÄ¶à¸öÆ´Òô
2.¶Ô°üº¬¶àÒô×ֵĴÊÓïÖÇÄÜʶ±ð¸ø³öÆ´Òô¡£
3.¶ÔÒ»¶Î ......

delphi¿ÉÒÔ·ÃÎÊvisual foxproµÄdbfÊý¾Ý¿âÂð

ÎÊ´ó¼Ò¸öÎÊÌ⣺
ÏÖÔÚÓÐÒ»¸öÏֳɵijÌÐò£¬ÊÇvisual foxpro×öµÄ£¬Êý¾Ý¿âÊÇdbfÎļþ£¬ÎÒûÓÐÓùýfoxpro£¬¿ªÊ¼¶¼Ã»ÕÒµ½Êý¾Ý¿â£¬ÖÕÓÚ¿´Ã÷°×Ô­À´dbf¾ÍÊÇÊý¾Ý¿â£¬£¨µ«Õâ¸ö³ÌÐòºÃ¶à¸ödbf°¡£¡»¹Ã»°²×°foxpro£¬Ã»´ò¿ªÕâЩÊý¾Ý¿â ......

Delphi°æÀúÈΰæÖ÷ÕÕÆ¬£¨¾øÃÜ£¬ÉêÇë¼Ó¾«£¡£©

²»ºÃÒâ˼£¬You are fooled£¡
¹þ¹þ£¬ÓÞÈ˽ڿìÀÖ£¡ÎÒÒªÄÜÈ«¸ãµ½£¬ÎÒ¾ÍÈ¥¹ú¼Ò°²È«¾ÖÁË£¡
ºÇ£¬Äã»¹ÕæÏñ°²È«¾ÖµÄ

b4

¹þ¹þ£¡

ÕæºÃ

b4

ÎÒµ¹

¹þ¹þ£¡


½ñÌìÒ»¶¨ÒªÇõ¹Ò»個»ðÐǵġ£

ÕâÀïÓÐºÜ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ