Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ʵ²Î´«´°Ìå

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

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

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

b4

¹þ¹þ£¡

ÕæºÃ

b4

ÎÒµ¹

¹þ¹þ£¡


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

ÕâÀïÓÐºÜ ......

delphi¾ÍÊDZ»ÄÇЩÕý°æ´úÀíÉ̸ãÀõÄ

¾­³£´òµç»°µ½¹«Ë¾,˵ÓõÁ°ædelphi,ÒªÆðËß¹«Ë¾
ËùÒÔÏÖÔÚ¹«Ë¾ ¶¼²»¸Ò·¢²¼ÕÐÆ¸delphi³ÌÐòÔ±....
ÄDz»ÊÇÎÊÌâ¡£
ÎÊÌâÔÚÓÚÔõô´¦ÀíËûÃǵĵ绰¡£
ÎҵĽ¨ÒéÊÇ£¬Èç¹ûÅöµ½ÕâÖֵ绰£¬Äã¾Í˵¡±µÈÏ£¬´¦ÀíÕâ¼þÊÂÇéµÄÈ˲»ÊÇÎÒ£ ......

»ádelphiÓÖ»ác#µÄ½øÀ´°ï¸öæ¡£¡£¡£¡£¡£

°ÑÕâ¶Î´úÂë·­ÒëΪc#ÊÇʲôÑùµÄÂé·³°ï°ïæ
Delphi(Pascal) code:

unit SMSHTTP;
interface
uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;
type
GetInMessa ......

delphi½ÓÊÜUDPÊý¾Ý°ü

Ë­ÄܸøÎÒ¸ö¼òµ¥µÄÀý×Ó  
delphi½ÓÊÜUDPÊý¾Ý°üµÄ Òª½ÓÊÕÊý×éµÄ
×îºÃÊÇÓà IdTCPserver1µÄ
×îºÃ»¹Óз¢Ë͵IJ¿·Ö
±¾È˲ËÄñ£¬Ð»Ð»¸÷λÁË£¡£¡

Â¥ÉϸøµÄÊÇTCPµÄ°É ÎÒÒªUDPµÄ  
лл£¡£¡

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