Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   Builder c++ 6 y los hilos (https://www.clubdelphi.com/foros/showthread.php?t=13646)

javikanin 25-08-2004 23:55:59

Builder c++ 6 y los hilos
 
Hola!
Tengo un programa q utiliza hilos de ejecución, y lo tngo hecho con el 5. Lo abro con el 6, y me da errores por todas partes. No se como activar la opción para hilos en el builder 6. Porq si creas un console wizard desde el principio(File/New...), t deja la opción, pero no se como cambiarlo, porq no me reconoce ni handle ni nada, por lo q no puedo probarlo. Tengo q instalar alguna libreía nueva?

Gracias

OSKR 26-11-2004 14:49:10

Una manera stándar de usar hilos es de la foma API de GUINDOWS
#include <vcl.h>
#pragma hdrstop
//#include "ThreadFormUnit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
HANDLE Thread;

DWORD WINAPI ThreadFunc(LPVOID Param)
{ int i=0;
while(true)
{ Form1->Label1->Caption=IntToStr(i);
Sleep(100);
i++;
}
}

__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
{ randomize();
DWORD Id;
Thread = CreateThread(0, 0, ThreadFunc,
Form1->Handle, CREATE_SUSPENDED, &Id);
if(!Thread)
{ ShowMessage("Error! Cannot create thread.");
Application->Terminate();
}
}

void __fastcall TForm1::StartClick(TObject *)
{
ResumeThread(Thread);
Start->Enabled = false;
Stop->Enabled = true;
}

void __fastcall TForm1::StopClick(TObject *)
{ SuspendThread(Thread);
Stop->Enabled = false;
Start->Enabled = true;
}
//---------------------------------------------------------------------------
O S K R


La franja horaria es GMT +2. Ahora son las 07:46:45.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi