FreePascal (FPC) a Lazarus > Obecné

Vlakno jako funkce

(1/2) > >>

Libor.Karko:
Dobrý den.Můj první pokus v lazaru.
Toto funkční v delphi.

--- Kód: ---Function OtevriThread(Param: Pointer): Longint;
begin
  beep;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
 thh: THandle;
 thid: Cardinal;
begin
 thh:=BeginThread(nil,0,@OtevriThread,nil,0,thid);
 if (thh<>0) then CloseHandle(thh);
end;

--- Konec kódu ---

Přes lazarus se mu nelibí CloseHandle"
unit1.pas(42,19) Error: Identifier not found "CloseHandle"

I když se mi to podaří rozjet pod win, půjde to i pod linuxem?

Ondřej Pokorný:
Klikni si na BeginThread pomocí Ctrl+levá myš a uvidíš, co všechno máš pro thready k dispozici v FPC. Mimo jiné i CloseThread, ten pod Windows volá právě CloseHandle.

Libor.Karko:
Zkoušel jsem a je tam  ;)
Proč mi to pak vyhazuje chybu?

Libor.Karko:
I tam je   function CloseThread (threadHandle : TThreadID) : dword;

Libor.Karko:
Tak stačilo zaměnít na CloseThread  ;)
Jsem to ale plantala  ;D

Navigace

[0] Seznam témat

[#] Další strana

Přejít na plnou verzi