多线程求助。

2010-08-13 01:54:28 194 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

麒麟系统下的多媒体革命：VLC在kylinV10上的性能优化与调试技巧本文详细介绍了在麒麟kylinV10系统上优化VLC多媒体播放性能的实战技巧，特别针对飞腾FT-2000/4硬件平台。从源码编译调优到硬件加速配置，提供全面的性能提升方案，帮助开发者在国产操作系统上构建高效媒体播放环境。阅读详情

function vfun(ir: Pointer): integer; stdcall;
var
k, t, m, i,lk: integer;
ss: string;
lpwd, luserid, pass: pchar;

begin

for m := 1 to 100 do
begin

ss := inttostr(m);// 程序发生异常，注释此句就正常，什么原因啊。

end;

end;

function MyThreadFun(p: Pointer): Integer; stdcall;

begin
vfun(p);
Result := 0;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
ID: DWORD;
st: array[0..9] of integer;
ii: integer;
begin

for ii := 0 to 9 do
begin
st[ii] := ii;
hThread[ii] := CreateThread(nil, 0, @MyThreadFun, @st[ii], 0, ID);
end;
// Button1.Enabled := False;
end;

...全文

【抖音滑动验证码风控分析】文章摘要：通过对比正常响应与验证码风控响应的头部信息，发现两者存在显著差异。正常响应返回JSON格式数据（Content-Type: application/json）并采用分块传输（Transfer-Encoding: chunked），而风控响应仅返回空文本（Content-Type: text/plain，Content-Length: 0），并通过X-Vc-Bdturing-Parameters等特殊头字段传递风控信息。这些差异主要体现在内容类型、数据传输方式和风控标识参数上，为风控识别提供了关键特阅读详情

zjxsw

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

zjxsw 2010-08-13

打赏
举报

又不行了，线程里调用某dll里的一个函数。程序只能启动一个线程了。郁闷了。

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

 var

 CS:TRTLCriticalSection;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 //定义线程类

type

  tyThread = class(TThread)

  private

    Str: string;

    i1,i2:integer;

  protected



    procedure showLabel;

    procedure Execute; override;

  public

    LLabel: TLabel;

  end;



var

  Form1: TForm1;

  SArrayLabel: Array [0..1] of TLabel;



implementation



{$R *.dfm}

   //线程类实现部分



procedure tyThread.Execute;

 var

 m: integer;



begin

//EnterCriticalSection(Cs); //进入临界段



  for m := i1 to i2 do

  begin

  sleep(5);

  str := inttostr(m);

    synchronize(showLabel); //同步访问VCL可视组件

    

    此处调用dll函数，程序只能启动了一个线程了。

  end;

//LeaveCriticalSection(Cs); //退出临界段





end;



procedure TyThread.showLabel;

begin

LLabel.caption:=str;

//Application.ProcessMessages;



end;



procedure TForm1.Button1Click(Sender: TObject);

var

  th:array[0..1] of  TyThread;

  ii:integer;

begin

//Listbox1.Clear;

//Listbox2.Clear;

for ii:= 0 to 1 do

begin

  th[ii] := tyThread.Create(true); //创建线程1

  th[ii].LLabel := SArrayLabel[ii];

  th[ii].i1:=ii*1000;

  th[ii].i2:=ii*1000+1000;

  th[ii].Resume; //开始执行



  end;

end;





procedure TForm1.FormCreate(Sender: TObject);

begin

  InitializeCriticalSection(Cs);

  SArrayLabel[0] := Label1;

  SArrayLabel[1] := Label2;



end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

   DeleteCriticalSection(Cs) ;



end;



end.

zjxsw 2010-08-13

打赏
举报

终于模仿出来了，还真麻烦。

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

 var

 CS:TRTLCriticalSection;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 //定义线程类

type

  tyThread = class(TThread)

  private

    Str: string;

    i1,i2:integer;

  protected



    procedure showLabel;

    procedure Execute; override;

  public

    LLabel: TLabel;

  end;



var

  Form1: TForm1;

  SArrayLabel: Array [0..1] of TLabel;



implementation



{$R *.dfm}

   //线程类实现部分



procedure tyThread.Execute;

 var

 m: integer;



begin

//EnterCriticalSection(Cs); //进入临界段



  for m := i1 to i2 do

  begin

  sleep(5);

  str := inttostr(m);

    synchronize(showLabel); //同步访问VCL可视组件

  end;

//LeaveCriticalSection(Cs); //退出临界段





end;



procedure TyThread.showLabel;

begin

LLabel.caption:=str;

//Application.ProcessMessages;



end;



procedure TForm1.Button1Click(Sender: TObject);

var

  th:array[0..1] of  TyThread;

  ii:integer;

begin

//Listbox1.Clear;

//Listbox2.Clear;

for ii:= 0 to 1 do

begin

  th[ii] := tyThread.Create(true); //创建线程1

  th[ii].LLabel := SArrayLabel[ii];

  th[ii].i1:=ii*1000;

  th[ii].i2:=ii*1000+1000;

  th[ii].Resume; //开始执行



  end;

end;





procedure TForm1.FormCreate(Sender: TObject);

begin

  InitializeCriticalSection(Cs);

  SArrayLabel[0] := Label1;

  SArrayLabel[1] := Label2;



end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

   DeleteCriticalSection(Cs) ;



end;



end.

zjxsw 2010-08-13

打赏
举报

哪位好心人帮我写个示例代码吧。
功能如下，一个按钮，两个label。使用多线程，使一个label显示1 to 1000，同时使另一个label显示1000 to 2000

头疼死了，高手帮帮忙啊。

pathletboy 2010-08-13

打赏
举报

工程文件里加
IsMultiThread := True;

像这样：
program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
IsMultiThread := True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

zjxsw 2010-08-13

打赏
举报

谢LSD，还是老样子啊，郁闷。

Blessed_Chuan 2010-08-13

打赏
举报



unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure FormDestroy(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;

  hMutex:THandle;

implementation



{$R *.dfm}

function vfun(ir: Pointer): integer; stdcall;

var

  k, t, m, i,lk: integer;

  ss: string;

  lpwd, luserid, pass: pchar;   

begin

  for m := 1 to 100 do

  begin

  ss := inttostr(m);// 程序发生异常，注释此句就正常，什么原因啊。

  end;

end;



function MyThreadFun(p: Pointer): Integer; stdcall;

begin

  vfun(p);

  Result := 0;

end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

 CloseHandle(hMutex);

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

 hMutex:=CreateMutex(nil,false,nil);

end;



procedure TForm1.Button1Click(Sender: TObject);

var

  ID: DWORD;

  st: array[0..9] of integer;

  hThread: array[0..9] of integer;

  ii: integer;

begin

  for ii := 0 to 9 do

  begin

    WaitForSingleObject(hMutex,INFINITE) ;

    st[ii] := ii;

    hThread[ii] := CreateThread(nil, 0, @MyThreadFun, @st[ii], 0, ID);

    ReleaseMutex(hMutex);

  end;

 // Button1.Enabled := False;

end;





end.

zjxsw 2010-08-13

打赏
举报

[Quote=引用 5 楼 lqfcu2 的回复:]
看看线程同步的相关知识吧。。
[/Quote]

能不能帮改改代码啊，没有头绪啊。谢谢。

lqfcu2 2010-08-13

打赏
举报

看看线程同步的相关知识吧。。

zjxsw 2010-08-13

打赏
举报

怎么没人来啊。
我增加了10个相同的函数代码，程序没出错。

求救啊。。。

zjxsw 2010-08-13

打赏
举报

程序用意：
开10个线程，每个线程调用同一个函数。函数功能，比方从1加到100 （第一个线程从1加到100、第二个线程100加到200。。。。。）

zjxsw 2010-08-13

打赏
举报

[Quote=引用 1 楼 bdmh 的回复:]
要建立互斥
[/Quote]
怎么弄啊，请详解，我是新手。

bdmh 2010-08-13

打赏
举报

要建立互斥

多线程求助。

相关推荐