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 ......
select * from shuju.DB where 开盘价-收盘价<=0.02
开盘价 与收盘价 是数据库里的字段
select * from aTableName where ((开盘价-收盘价) <=0.02 )
开盘价比收盘价低两分以下的情况
Mark!!!!!!
se ......
不好意思,You are fooled!
哈哈,愚人节快乐!我要能全搞到,我就去国家安全局了!
呵,你还真像安全局的
b4
哈哈!
真好
b4
我倒
哈哈!
今天一定要敲倒一個火星的。
这里有很 ......
把这段代码翻译为c#是什么样的麻烦帮帮忙
Delphi(Pascal) code:
unit SMSHTTP;
interface
uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;
type
GetInMessa ......
各位好!!
假设我有两个text文件
一个名叫 1.text
内容:
I like PC....
另外一是2.text
内容:
function yk as string
endfunction
globals
endglobals
***********************分界线********** ......