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 |
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