| 導購 | 订阅 | 在线投稿
分享
 
 
當前位置: 王朝網路 >> delphi >> WIN32下DELPHI中的多線程【變量存儲】(三)
 

WIN32下DELPHI中的多線程【變量存儲】(三)

2006-12-12 19:18:08  編輯來源:互聯網  简体版  手機版  評論  字體: 小|中|大
 
 
　　線程中的變量

　　 由于每個線程都代表了一個不同的執行路徑，因此，最好有一種只限于一個線程內部使用的數據，

　　 要實現上述目的有以下幾種方式：

　　 1、局部變量（基于棧），很簡單，在你的線程函數中你定義的變量既是如此。由于每個線程都在各自的棧中，各個線程將都有一套局部變量的副本，這樣，就不會相互影響。對于那些只在過程或函數的生存期有意義的變量，應當把它們聲明爲局部變量。

　　 2、存儲在線程對象中。還記得CreateThread函數中的lpParameter參數嗎，它可以接受一個無類型的指針。結合本文第一章的內容，你應該還記得，它被存儲在線程內核對象的上下文結構中，你可以通過CONTEXT結構中的CONTEXT_INTEGER部分的ebx來讀取它的地址。

　　 下面是一段示例代碼，用來演示讀取CONTEXT結構，這段代碼一般用不到，但它可以說明CrateThread函數中的lpParameter被存儲的位置

WIN32下DELPHI中的多線程【變量存儲】(三)
WIN32下DELPHI中的多線程【變量存儲】(三)
...{

WIN32下DELPHI中的多線程【變量存儲】(三)
 作者：wudi_1982

WIN32下DELPHI中的多線程【變量存儲】(三)
 聯系方式:wudi_1982@hotmail.com

WIN32下DELPHI中的多線程【變量存儲】(三)
 轉載請著名出處，本代碼爲演示代碼，只貼出了一些關鍵部分

WIN32下DELPHI中的多線程【變量存儲】(三)
}

WIN32下DELPHI中的多線程【變量存儲】(三)


WIN32下DELPHI中的多線程【變量存儲】(三)
type

WIN32下DELPHI中的多線程【變量存儲】(三)
 //傳遞給線程函數的結構和指針的聲明

WIN32下DELPHI中的多線程【變量存儲】(三)
 Tinfo = record

WIN32下DELPHI中的多線程【變量存儲】(三)
 count : integer;

WIN32下DELPHI中的多線程【變量存儲】(三)
 x : integer;

WIN32下DELPHI中的多線程【變量存儲】(三)
 y : integer;

WIN32下DELPHI中的多線程【變量存儲】(三)
 end;

WIN32下DELPHI中的多線程【變量存儲】(三)
 Pinfo= ^Tinfo;

WIN32下DELPHI中的多線程【變量存儲】(三)


WIN32下DELPHI中的多線程【變量存儲】(三)
var

WIN32下DELPHI中的多線程【變量存儲】(三)
MyThreadHad : THandle;//一個全局變量，用來保存線程的句柄

WIN32下DELPHI中的多線程【變量存儲】(三)


WIN32下DELPHI中的多線程【變量存儲】(三)
//線程函數

WIN32下DELPHI中的多線程【變量存儲】(三)
function MyThread(info : Pointer):DWORD; stdcall;

WIN32下DELPHI中的多線程【變量存儲】(三)
var

WIN32下DELPHI中的多線程【變量存儲】(三)
 i : integer;

WIN32下DELPHI中的多線程【變量存儲】(三)
begin

WIN32下DELPHI中的多線程【變量存儲】(三)
 //根據傳遞來信息決定在窗口的那個位置輸出什麽信息

WIN32下DELPHI中的多線程【變量存儲】(三)
 for i := 0 to Pinfo(info)^.count-1 do

WIN32下DELPHI中的多線程【變量存儲】(三)
 Form1.Image1.Canvas.TextOut(Pinfo(info)^.x,Pinfo(info)^.y,inttostr(i));

WIN32下DELPHI中的多線程【變量存儲】(三)
 //FreeMem(info);

WIN32下DELPHI中的多線程【變量存儲】(三)
 Result := 0;

WIN32下DELPHI中的多線程【變量存儲】(三)
end;

WIN32下DELPHI中的多線程【變量存儲】(三)


WIN32下DELPHI中的多線程【變量存儲】(三)
//創建一個線程

WIN32下DELPHI中的多線程【變量存儲】(三)
procedure TForm1.Button4Click(Sender: TObject);

WIN32下DELPHI中的多線程【變量存儲】(三)
var

WIN32下DELPHI中的多線程【變量存儲】(三)
 ppi : Pinfo;

WIN32下DELPHI中的多線程【變量存儲】(三)
 MyThreadId : DWORD;

WIN32下DELPHI中的多線程【變量存儲】(三)
begin

WIN32下DELPHI中的多線程【變量存儲】(三)
 //分配空間並賦初值

WIN32下DELPHI中的多線程【變量存儲】(三)
 ppi :=AllocMem(sizeof(tinfo));

WIN32下DELPHI中的多線程【變量存儲】(三)
 ppi^.count := 1000000;

WIN32下DELPHI中的多線程【變量存儲】(三)
 ppi^.x := 10;

WIN32下DELPHI中的多線程【變量存儲】(三)
 ppi^.y := 10;

WIN32下DELPHI中的多線程【變量存儲】(三)
 //創建

WIN32下DELPHI中的多線程【變量存儲】(三)
 MyThreadHad := CreateThread(nil,0,@MyThread,ppi,CREATE_SUSPENDED,MyThreadId);

WIN32下DELPHI中的多線程【變量存儲】(三)
 //在窗體上顯示線程函數的地址和傳遞給它的參數的地址

WIN32下DELPHI中的多線程【變量存儲】(三)
 labThreadAddr.Caption := inttostr( integer(@MyThread));

WIN32下DELPHI中的多線程【變量存儲】(三)
 labThreadPvparam.Caption := inttostr(integer(ppi));

WIN32下DELPHI中的多線程【變量存儲】(三)
end;

WIN32下DELPHI中的多線程【變量存儲】(三)


WIN32下DELPHI中的多線程【變量存儲】(三)
//讀取CONTEXT結構，注意CONTEXT結構是和CPU有關的，我這裏測試時，工作在intel的CPU上

WIN32下DELPHI中的多線程【變量存儲】(三)
procedure TForm1.btnRContextClick(Sender: TObject);

WIN32下DELPHI中的多線程【變量存儲】(三)
var

WIN32下DELPHI中的多線程【變量存儲】(三)
 con : _CONTEXT;

WIN32下DELPHI中的多線程【變量存儲】(三)
begin

WIN32下DELPHI中的多線程【變量存儲】(三)
 //初始化結構

WIN32下DELPHI中的多線程【變量存儲】(三)
 con.ContextFlags := CONTEXT_FULL;

WIN32下DELPHI中的多線程【變量存儲】(三)
 //讀取

WIN32下DELPHI中的多線程【變量存儲】(三)
 GetThreadContext(MyThreadHad,con);

WIN32下DELPHI中的多線程【變量存儲】(三)
 //顯示在窗體的listbox上

WIN32下DELPHI中的多線程【變量存儲】(三)
 with lbxContextInfo.Items do

WIN32下DELPHI中的多線程【變量存儲】(三)
 begin

WIN32下DELPHI中的多線程【變量存儲】(三)
 // Clear;

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('------------CONTEXT--------------');

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('');

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('CONTEXT_DEBUG_REGISTERS-----');

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('dr0:'+#9+IntToStr(con.Dr0));

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('dr1:'+#9+IntToStr(con.Dr1));

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('dr2:'+#9+IntToStr(con.Dr2));

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('dr3:'+#9+IntToStr(con.Dr3));

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('dr6:'+#9+IntToStr(con.Dr6));

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('dr7:'+#9+IntToStr(con.Dr7));

WIN32下DELPHI中的多線程【變量存儲】(三)
 add('CONTEXT_SEGMENTS---------');

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('segGs:'+#9+inttostr(con.SegGs));

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('segFs:'+#9+inttostr(con.Segfs));

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('segEs:'+#9+inttostr(con.Seges));

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('segDs:'+#9+inttostr(con.Segds));

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('CONTEXT_INTEGER.---------');

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('edi: '+#9+IntToStr(con.Edi));

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('esi: '+#9+IntToStr(con.Esi));

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('ebx: '+#9+IntToStr(con.Ebx));

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('edx: '+#9+IntToStr(con.Edx));

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('ecx: '+#9+IntToStr(con.Ecx));

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('eax: '+#9+IntToStr(con.Eax));

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('CONTEXT_CONTROL----------');

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('Ebp: '+#9+IntToStr(con.Ebp));

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('Eip: '+#9+IntToStr(con.Eip));

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('segcs: '+#9+IntToStr(con.SegCs));

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('EFlags: '+#9+IntToStr(con.EFlags));

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('Esp: '+#9+IntToStr(con.Esp));

WIN32下DELPHI中的多線程【變量存儲】(三)
 Add('SegSs: '+#9+IntToStr(con.SegSs));

WIN32下DELPHI中的多線程【變量存儲】(三)
 end;

WIN32下DELPHI中的多線程【變量存儲】(三)


WIN32下DELPHI中的多線程【變量存儲】(三)
end;

WIN32下DELPHI中的多線程【變量存儲】(三)


WIN32下DELPHI中的多線程【變量存儲】(三)


　　 把上面代碼整理之後，添加到你的程序中，你可以發現（如果也是intel的CPU），那麽你可以從Eax寄存器讀取到線程函數的地址，從Ebx中讀取到傳遞給線程函數的參數地址。

　　 在DELPHI中的TThread對象的構造函數中，你可以看到這段代碼

　　FHandle := BeginThread(nil, 0, @ThreadProc, Pointer(Self), CREATE_SUSPENDED, FThreadID);

　　再觀察BeginThread的實現，你會發現TThread的調用CreateThread時，將Pointer(Self)，也就是TThread對象本身當作線程函數的參數傳遞過去，換言之，你在TThread的派生類中定義的變量，對于一個線程而言，將存儲在這個線程單獨的堆棧中，而它在堆棧的地址存儲在線程的上下文結構中。

　　 可以做一個簡單的試驗，將一個線程生成多次，你可以發現存儲在線程對象內部的變量將互不影響。

　　 說到這裏，必須談論一個問題，效率的問題，我在一本書上曾經看到過這樣一段話“由于訪問線程對象中的數據比訪問線程局部變量要快10倍，因此，你應當盡可能地把線程專用的信息保存在線程對象中。”對此，我一直沒有特別理解。如果一定要相信這句話，那我會這麽理解，就是存儲在線程對象中的變量因爲上下文結構記錄了它的地址等原因，所以它更快。盡信書不如無書，我還在思考，不過好在這種速度的影響對于通常的使用而言影響不大。

　　3、在DELPHI中，用Object Pascal的關鍵字threadvar來聲明變量，以利用操作系統級的線程局部存儲。

　　 在前面我們了解到：雖然對于局部變量，在每個線程中都一個副本，然而應用程序的全局變量是被所有線程所共享的。當多個線程對這個全局變量進行訪問時，將可能出現很多未知的問題，Win32提供了一種稱爲線程局部存儲的方式，它能使你在第一個運行的線程中創建一個全局變量的拷貝。Delphi利用關鍵字threadvar封裝此功能。在threadvar關鍵字下你可以聲明任何局部存儲的變量。

　　4、全局變量，多線程最讓人頭疼的地方就是全局變量了，好的同步方式將決定你高效、安全的訪問全局變量，雖然上述的threadvar是解決全局變量線程局部存儲的一個辦法，但在我實際的編碼工作中，幾乎很少用它，它的局限性太多。多線程訪問全局變量的方法將在下一文中詳細描述。

　　注：轉載請著名出處，謝謝！
 
 
 
上一篇《用Delphi檢測IE使用的代理服務器》
下一篇《WIN32下DELPHI中的多線程【線程的調度】(二)》
 
 
 
熱門點閱
 
 
 
日版寵物情人插曲《Winding Road》歌詞

日版寵物情人2017的插曲，很帶節奏感，日語的，女生唱的。 最後聽見是在第8集的時候女主手割傷了，然後男主用嘴幫她吸了一下，插曲就出來了。 歌手：Def...

兄弟共妻，我成了他們夜裏的美食

老鍾家的兩個兒子很特別，就是跟其他的人不太一樣，魔一般的執著。兄弟倆都到了要結婚的年齡了，不管自家老爹怎麽磨破嘴皮子，兄弟倆說不娶就不娶，老父母爲兄弟兩操碎了心...

如何磨出破洞牛仔褲？牛仔褲怎麽剪破洞？

把牛仔褲磨出有線的破洞 1、具體工具就是磨腳石，下面墊一個硬物，然後用磨腳石一直磨一直磨，到把那塊磨薄了，用手撕開就好了。出來的洞啊很自然的。需要貓須的話調幾...

我就是掃描下圖得到了敬業福和愛國福

先來看下敬業福和愛國福 今年春節，支付寶再次推出了“五福紅包”活動，表示要“把欠大家的敬業福都還給大家”。 今天該活動正式啓動，和去年一樣，需要收集“五福”...

冰箱異味産生的原因和臭味去除的方法

有時候我們打開冰箱就會聞到一股異味，冰箱裏的這種異味是因爲一些物質發出的氣味的混合體，聞起來讓人惡心。 産生這些異味的主要原因有以下幾點。 1、很多人有這種習...

《極品家丁》1-31集大結局分集劇情介紹

簡介 《極品家丁》講述了現代白領林晚榮無意回到古代金陵，並追隨蕭二小姐化名“林三”進入蕭府，不料卻陰差陽錯上演了一出低級家丁拼搏上位的“林三升職記”。...

李溪芮《極品家丁》片尾曲《你就是我最愛的寶寶》歌詞

你就是我最愛的寶寶 - 李溪芮 (電視劇《極品家丁》片尾曲) 作詞：常馨內 作曲：常馨內 你的眉 又鬼馬的挑 你的嘴 又壞壞的笑 上一秒吵鬧 下...

烏梅的功效與作用以及烏梅的食用禁忌有哪些？

烏梅，又稱春梅，中醫認爲，烏梅味酸，性溫，無毒，具有安心、除熱、下氣、祛痰、止渴調中、殺蟲的功效，治肢體痛、肺痨病。烏梅泡水喝能治傷寒煩熱、止吐瀉，與幹姜一起制...

什麽是脂肪粒？如何消除臉部脂肪粒？

什麽是脂肪粒 在我們的臉上總會長一個個像脂肪的小顆粒，弄也弄不掉，而且顔色還是白白的。它既不是粉刺也不是其他的任何痘痘，它就是脂肪粒。 脂肪粒雖然也是由油脂...

網絡安全治理：國家安全保障的主要方向是打擊犯罪，而不是處置和懲罰受害者

來源：中國青年報 新的攻擊方法不斷湧現，黑客幾乎永遠占據網絡攻擊的上風，我們不可能通過技術手段杜絕網絡攻擊。國家安全保障的主要方向是打擊犯罪，而不是處置和懲罰...

河南夫妻在溫嶺網絡直播“造人”內容涉黃被刑事拘留

夫妻網絡直播“造人”爆紅 　　1月9日，溫嶺城北派出所接到南京警方的協查通告，他們近期打掉了一個涉黃直播APP平台。而根據掌握的線索，其中有一對涉案的夫妻主播...

如何防止牆紙老化？牆紙變舊變黃怎麽辦？

如何防止牆紙老化？ （1）選擇透氣性好的牆紙 市場上牆紙的材質分無紡布的、木纖維的、PVC的、玻璃纖維基材的、布面的等，相對而言，PVC材質的牆紙最不透氣...

鮮肌之謎非日本生産VS鮮肌之謎假日貨是謠言

觀點一：破日本銷售量的“鮮肌之謎” 非日本生産 近一段時間，淘寶上架了一款名爲“鮮肌之謎的” 鲑魚卵巢美容液，號稱是最近日本的一款推出的全新護膚品，産品本身所...

中國最美古詩詞精選摘抄

系腰裙(北宋詞人 張先) 惜霜蟾照夜雲天，朦胧影、畫勾闌。人情縱似長情月，算一年年。又能得、幾番圓。 欲寄西江題葉字，流不到、五亭前。東池始有荷新綠，尚小如...

關于女人的經典語句

關于女人的經典語句1、【做一個獨立的女人】 思想獨立：有主見、有自己的人生觀、價值觀。有上進心,永遠不放棄自己的理想，做一份自己喜愛的事業，擁有快樂和成就...

未來我們可以和性愛機器人結婚嗎？

你想體驗機器人性愛嗎？你想和性愛機器人結婚嗎？如果你想，機器人有拒絕你的權利嗎？ 近日，第二屆“國際人類-機器人性愛研討會”大會在倫敦金史密斯大學落下帷幕。而...

全球最變態的十個地方

10.土耳其地下洞穴城市 變態指數：★★☆☆☆ 這是土耳其卡帕多西亞的一個著名景點，傳說是當年基督教徒們爲了躲避戰爭而在此修建。裏面曾住著20000人，...

科學家稱，人類死亡後意識將在另外一個宇宙中繼續存活

據英國《每日快報》報道，一位科學家兼理論家Robert Lanza博士宣稱，世界上並不存在人類死亡，死亡的只是身體。他認爲我們的意識借助我們體內的能量生存，而且...

《屏裏狐》片頭曲《我愛狐狸精》歌詞是什麽？

《我愛狐狸精》 - 劉馨棋 　　(電視劇《屏裏狐》主題曲) 　　作詞：金十三&李旦 　　作曲：劉嘉 　　狐狸精 狐狸仙 　　千年修...

 
 
 
線程中的變量 由于每個線程都代表了一個不同的執行路徑，因此，最好有一種只限于一個線程內部使用的數據， 要實現上述目的有以下幾種方式： 1、局部變量（基于棧），很簡單，在你的線程函數中你定義的變量既是如此。由于每個線程都在各自的棧中，各個線程將都有一套局部變量的副本，這樣，就不會相互影響。對于那些只在過程或函數的生存期有意義的變量，應當把它們聲明爲局部變量。 2、存儲在線程對象中。還記得CreateThread函數中的lpParameter參數嗎，它可以接受一個無類型的指針。結合本文第一章的內容，你應該還記得，它被存儲在線程內核對象的上下文結構中，你可以通過CONTEXT結構中的CONTEXT_INTEGER部分的ebx來讀取它的地址。 下面是一段示例代碼，用來演示讀取CONTEXT結構，這段代碼一般用不到，但它可以說明CrateThread函數中的lpParameter被存儲的位置 [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedBlockStart.gif[/img][/url][url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ContractedBlock.gif[/img][/url]...{ [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gif[/img][/url] 作者：wudi_1982 [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gif[/img][/url] 聯系方式:wudi_1982@hotmail.com [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gif[/img][/url] 轉載請著名出處，本代碼爲演示代碼，只貼出了一些關鍵部分 [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedBlockEnd.gif[/img][/url]} [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]type [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //傳遞給線程函數的結構和指針的聲明 [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Tinfo = record [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] count : integer; [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] x : integer; [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] y : integer; [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] end; [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Pinfo= ^Tinfo; [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]var [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]MyThreadHad : THandle;//一個全局變量，用來保存線程的句柄 [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]//線程函數 [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]function MyThread(info : Pointer):DWORD; stdcall; [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]var [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] i : integer; [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]begin [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //根據傳遞來信息決定在窗口的那個位置輸出什麽信息 [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] for i := 0 to Pinfo(info)^.count-1 do [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Form1.Image1.Canvas.TextOut(Pinfo(info)^.x,Pinfo(info)^.y,inttostr(i)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //FreeMem(info); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Result := 0; [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end; [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]//創建一個線程 [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]procedure TForm1.Button4Click(Sender: TObject); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]var [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] ppi : Pinfo; [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] MyThreadId : DWORD; [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]begin [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //分配空間並賦初值 [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] ppi :=AllocMem(sizeof(tinfo)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] ppi^.count := 1000000; [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] ppi^.x := 10; [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] ppi^.y := 10; [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //創建 [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] MyThreadHad := CreateThread(nil,0,@MyThread,ppi,CREATE_SUSPENDED,MyThreadId); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //在窗體上顯示線程函數的地址和傳遞給它的參數的地址 [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] labThreadAddr.Caption := inttostr( integer(@MyThread)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] labThreadPvparam.Caption := inttostr(integer(ppi)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end; [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]//讀取CONTEXT結構，注意CONTEXT結構是和CPU有關的，我這裏測試時，工作在intel的CPU上 [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]procedure TForm1.btnRContextClick(Sender: TObject); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]var [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] con : _CONTEXT; [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]begin [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //初始化結構 [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] con.ContextFlags := CONTEXT_FULL; [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //讀取 [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] GetThreadContext(MyThreadHad,con); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //顯示在窗體的listbox上 [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] with lbxContextInfo.Items do [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] begin [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] // Clear; [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('------------CONTEXT--------------'); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add(''); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('CONTEXT_DEBUG_REGISTERS-----'); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('dr0:'+#9+IntToStr(con.Dr0)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('dr1:'+#9+IntToStr(con.Dr1)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('dr2:'+#9+IntToStr(con.Dr2)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('dr3:'+#9+IntToStr(con.Dr3)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('dr6:'+#9+IntToStr(con.Dr6)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('dr7:'+#9+IntToStr(con.Dr7)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] add('CONTEXT_SEGMENTS---------'); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('segGs:'+#9+inttostr(con.SegGs)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('segFs:'+#9+inttostr(con.Segfs)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('segEs:'+#9+inttostr(con.Seges)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('segDs:'+#9+inttostr(con.Segds)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('CONTEXT_INTEGER.---------'); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('edi: '+#9+IntToStr(con.Edi)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('esi: '+#9+IntToStr(con.Esi)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('ebx: '+#9+IntToStr(con.Ebx)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('edx: '+#9+IntToStr(con.Edx)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('ecx: '+#9+IntToStr(con.Ecx)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('eax: '+#9+IntToStr(con.Eax)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('CONTEXT_CONTROL----------'); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('Ebp: '+#9+IntToStr(con.Ebp)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('Eip: '+#9+IntToStr(con.Eip)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('segcs: '+#9+IntToStr(con.SegCs)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('EFlags: '+#9+IntToStr(con.EFlags)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('Esp: '+#9+IntToStr(con.Esp)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Add('SegSs: '+#9+IntToStr(con.SegSs)); [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] end; [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end; [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=/bbs/detail_566836.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] 把上面代碼整理之後，添加到你的程序中，你可以發現（如果也是intel的CPU），那麽你可以從Eax寄存器讀取到線程函數的地址，從Ebx中讀取到傳遞給線程函數的參數地址。 在DELPHI中的TThread對象的構造函數中，你可以看到這段代碼 FHandle := BeginThread(nil, 0, @ThreadProc, Pointer(Self), CREATE_SUSPENDED, FThreadID); 再觀察BeginThread的實現，你會發現TThread的調用CreateThread時，將Pointer(Self)，也就是TThread對象本身當作線程函數的參數傳遞過去，換言之，你在TThread的派生類中定義的變量，對于一個線程而言，將存儲在這個線程單獨的堆棧中，而它在堆棧的地址存儲在線程的上下文結構中。 可以做一個簡單的試驗，將一個線程生成多次，你可以發現存儲在線程對象內部的變量將互不影響。 說到這裏，必須談論一個問題，效率的問題，我在一本書上曾經看到過這樣一段話“由于訪問線程對象中的數據比訪問線程局部變量要快10倍，因此，你應當盡可能地把線程專用的信息保存在線程對象中。”對此，我一直沒有特別理解。如果一定要相信這句話，那我會這麽理解，就是存儲在線程對象中的變量因爲上下文結構記錄了它的地址等原因，所以它更快。盡信書不如無書，我還在思考，不過好在這種速度的影響對于通常的使用而言影響不大。 3、在DELPHI中，用Object Pascal的關鍵字threadvar來聲明變量，以利用操作系統級的線程局部存儲。 在前面我們了解到：雖然對于局部變量，在每個線程中都一個副本，然而應用程序的全局變量是被所有線程所共享的。當多個線程對這個全局變量進行訪問時，將可能出現很多未知的問題，Win32提供了一種稱爲線程局部存儲的方式，它能使你在第一個運行的線程中創建一個全局變量的拷貝。Delphi利用關鍵字threadvar封裝此功能。在threadvar關鍵字下你可以聲明任何局部存儲的變量。 4、全局變量，多線程最讓人頭疼的地方就是全局變量了，好的同步方式將決定你高效、安全的訪問全局變量，雖然上述的threadvar是解決全局變量線程局部存儲的一個辦法，但在我實際的編碼工作中，幾乎很少用它，它的局限性太多。多線程訪問全局變量的方法將在下一文中詳細描述。 注：轉載請著名出處，謝謝！
󰈣󰈤
 
 
 
　　免責聲明：本文僅代表作者個人觀點，與王朝網路無關。王朝網路登載此文出於傳遞更多信息之目的，並不意味著贊同其觀點或證實其描述，其原創性以及文中陳述文字和內容未經本站證實，對本文以及其中全部或者部分內容、文字的真實性、完整性、及時性本站不作任何保證或承諾，請讀者僅作參考，並請自行核實相關內容。
 
 
陽光靓麗的模特兒(8)
陽光靓麗的模特兒(7)
陽光靓麗的模特兒(6)
陽光靓麗的模特兒(5)
秋-印象
德慶盤龍峽 一
松江印象之三
雲之南（寬幅）
 
>>返回首頁<<
 
 
 
 熱帖排行
 
 
 
 
© 2005- 王朝網路 版權所有