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
Ïà¹ØÎÊ´ð£º
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET','http://www.google.com', False);
xml.Send;
xml.responseText;
ʹÓÃxml.responseText¿ÉÒÔ»ñÈ¡ÍøÒ³Ô´Âë,µ«ÊÇÔÙ´Î ......
//DLL ·ÅÔÚEXEÖÐûÎÊÌâ
function SkinForm(var skfrm:TForm):Integer;stdcall;
var
skf:TbsBusinessSkinForm;
nskfrm:TForm;
begin
frmUUMain:=skfrm;
skf:=TbsBus ......
ÎÒÊDZàдÁËÒ»¸öÊÖ»úµÄÄ£ÐÍ ÓÃÒÔʵÏÖÊÖ»úµÄÉÏÍø¹¦ÄÜ
ÔËÓõÄÖ÷ÒªÊÇsim508Ä£¿é ºÍATÖ¸Á
ÏÖÔÚ²»Ã÷°×µÄ¾ÍÊÇÓÃÊÖ»úÉÏÍøµÄÍøÒ³½çÃæÓÃDelphiÖеĿؼþ±íʾºÃ£¿£¿£¿ÇëÖ¸µã
ºÃµÄ £¬Î ......
ËÄܸøÎÒ¸ö¼òµ¥µÄÀý×Ó
delphi½ÓÊÜUDPÊý¾Ý°üµÄ Òª½ÓÊÕÊý×éµÄ
×îºÃÊÇÓà IdTCPserver1µÄ
×îºÃ»¹Óз¢Ë͵IJ¿·Ö
±¾È˲ËÄñ£¬Ð»Ð»¸÷λÁË£¡£¡
Â¥ÉϸøµÄÊÇTCPµÄ°É ÎÒÒªUDPµÄ
лл£¡£¡
ÒýÓÃ
×îº ......