高手求救，线程同步问题

2007-11-29 04:46:49 119 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

WPF上位机卡死根因分析与Dispatcher线程调度优化在工业上位机开发中，界面卡死并非传统Bug，而是UI线程调度失衡的典型表现。其本质是WPF Dispatcher线程被同步阻塞、跨线程调用不当或资源竞争导致的响应停滞。理解Dispatcher调度原理、SynchronizationContext行为及.NET运行时线程模型，是定位问题的关键技术基础。该问题高频出现在Modbus TCP、CAN通信集成等实时性要求高的场景，直接影响产线稳定性。通过WinDbg分析clrstack与!threads、规避Dispatcher.Invoke三大陷阱，并转向Asy 阅读详情

俺一直搞的是java,初写dephi程序。但不知，dephi的线程同步怎么做。在java里用关键字synchronized就搞定的。dephi是否也有同类方法，还望高手赐教。

以下是我定义的一个对象。我希望TMsgList同步，一个线程在putMsg的时候，其它线程不能执行removeMsg,

TMsgList = class(TStringList)
//------------------消息队列函数-------------------------------------
procedure putMsg(sequence:LongInt;var bs:array of char;buffsize:integer);
procedure removeMsg(sequence:LongInt);
end;

...全文

性能优化的本质：从线程模型与数据流拆解系统瓶颈在分布式系统中，性能问题往往不是由框架本身导致，而是源于对数据流动本质和线程执行机制的误判。理解‘数据如何被抽取、处理、落库’这一基础链路，比熟记Storm参数或RocketMQ配置更为关键；掌握线程生命周期、连接池竞争、IO与CPU密集型任务的调度差异，则是定位阻塞、上下文切换、资源争用等真实瓶颈的核心能力。本文以真实生产案例切入，聚焦Java服务中线程模型重构、连接池解耦、异步缓冲设计等工程实践，揭示如何通过日志三维分析（事件-时间-线程）、物理动作拆解（抽水→过滤→存池）和可追踪线程命名等方法，将模糊阅读详情

seward

网络通信/分布式开发 1,594 成员 32,944 内容

+ 关注 + 加入社区

切换为时间正序

liangpei2008 2007-11-29

打赏
举报

用事件或临界区~
事件楼上大哥已说
TMsgList = class(TStringList)
//------------------消息队列函数-------------------------------------
procedure putMsg(sequence:LongInt;var bs:array of char;buffsize:integer);
procedure removeMsg(sequence:LongInt);
public
Constructor Create;
.......
end;
use
SyncObjs;

TEnhancedCriticalSection = class(TCriticalSection)
public
function TryEnter: boolean;
end;

var
Msg: TEnhancedCriticalSection;

begin
MsgList.Create
try
if ( Msg.TryEnter) then
finally
Msg.Release;
end;
end;
大概就是这个意思~

sdzeng 2007-11-29

打赏
举报

最简单的是从TThreadList继承你的TMsgList

oushengfen 2007-11-29

打赏
举报

很多方法，给你一个事件方法

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
EventHandle: THandle; {事件句柄}
ThreadHandle: THandle; {线程句柄}
implementation

{$R *.DFM}

function ThreadFunction(Info: Pointer): Integer; stdcall;
var
FormDC: HDC;
Counter: Integer;
CounterStr: string;
ObjRtn: Integer;
begin
ObjRtn := WaitForSingleObject(EventHandle, INFINITE);
FormDC := GetDC(Form1.Handle);
for Counter := 1 to 100000 do
begin
CounterStr := IntToStr(Counter);
TextOut(FormDC, 10, 10, PChar(CounterStr), Length(CounterStr));
Application.ProcessMessages;
ObjRtn := WaitForSingleObject(EventHandle, INFINITE);
end;
ReleaseDC(Form1.Handle, FormDC);
ExitThread(4);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ThreadID: Dword;
begin
ThreadHandle := CreateThread(nil, 0, @ThreadFunction, nil, 0, ThreadId);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SetEvent(EventHandle);
Label1.Caption := 'Event is signaled';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ResetEvent(EventHandle);
Label1.Caption := 'Event is non signaled';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
PulseEvent(EventHandle);
Label1.Caption := 'signaled/nonsignaled';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
EventHandle := CreateEvent(nil, True, False, 'MyEvent');
end;

end.

高手求救，线程同步问题

相关推荐