Lazarus - linux - BeginThread – Pascal – Fórum – Programujte.com

Zdravím.

var
  Form1: TForm1;
  thh: THandle;

implementation

{$R *.lfm}

{ TForm1 }
Function OtevriThread(Param: Pointer): Longint;
begin
  beep;
  EndThread (thh);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  thid: Cardinal;
begin
  thh:=BeginThread(nil,0,@OtevriThread,nil,0,thid);
end;                                   

Pod win ok, pod linuxem mi to shodí celou apku.
Proč?

#1 Borisek
zkus

thh:=BeginThread(nil,0,TThreadFunc(@OtevriThread),nil,0,thid);

Po kliknut9 na button .projekt vyvolal vyjimku třidyRunError(232) na adrese 68

#3 Borisek
Treti odkaz na google pro hledani RunError(232):

232 Threads not supported
Thread management relies on a separate driver on some operating systems (notably, Unixes). The unit with this driver needs to be specified on the uses clause of the program, preferably as the first unit (cthreads on unix).

#4 KIIV
To jsem take našel a mělo by to vyřečít

uses
  {$ IFDEF Unix} cthreads, cmem , {$ ENDIF}
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; 

projekt vyvolal vyjimku třidy RunError 211

Když jsme u toho Googlení...

RunError 211 je volání abstraktní metody. Taky ho cthreads vyhodí explicitně pokud se inicializuje pozdě. A CloseThread se má volat až po skončení vlákna (i když na Windows a Linuxu se předčasným voláním asi nic nerozbije).

Jinak je na vlákna lepší použít TThread.

Tak jsem zkusil toto.a pod win v delphi i lazarusu ok

http://delphiexamples.com/application/appsynchthread.html

V linuxu do uses {$ IFDEF Unix} cthreads, cmem , {$ ENDIF}

vysledek RunError 211   

Tak celý problém s chýbovýmí hlaškami řeší toto.

http://forum.lazarus.freepascal.org/index.php?topic=18470.0

Program jde spustít bez chyby jak s tým BeginThread tak i s tým pruhým přikladem.

Problem však je, že se vlakno nespustí.

#8 Borisek
asi by bylo dobry sem hodit kody hlavně třídy vlákna a z formu alespoň řádky týkající se vlákna

#9 MilanL
Nejsou žadne kody.

Mam napsaný programek, který bych rad předělal, tak první zkouším a až nějake vlakno zprovozním, pak to teprve předělam.

Pokud pojede toto, budu max spokojen.
http://delphiexamples.com/…hthread.html

Vyřešeno, už fungujem