Форум: "Начинающим";
Текущий архив: 2008.11.16;
Скачать: [xml.tar.bz2];

Вниз

beginthread   Найти похожие ветки 

← →
Smel   (2008-10-04 11:03) [0]

Здравствуйте. Подскажите пожалуйста как правильно запускать поток при помощи beginthread с параметром.

Мой код:

function ThRead(url:Pointer):integer;
var
 page,tpage,turl:string;
 command:^string;
begin
   command:=url;
   turl:=command^;
   Dispose(url);
.......
end;
//Запускаю
var
 tmp:string;
 tmps:^string;
begin
   New(tmps);
   tmps^:=tmp;
   BeginThread(nil,0,Addr(Thread),tmps,0,id1);
end;


Заранее благодарен, за любой совет

---

← →
Сергей М. ©   (2008-10-04 14:43) [1]

>  как правильно


"Правильно" можно по-разному .. тебе все 400 "способов" перечислить ?

Изложи детально проблему при твоем "неправильном" запуске, тогда и рекомендации найдутся ..

---

← →
Smel   (2008-10-04 14:54) [2]

При запуске потоков, прога закрывается

---

← →
Сергей М. ©   (2008-10-04 14:56) [3]

А что говорит отладчик по этому печальному поводу ?

---

← →
Сергей М. ©   (2008-10-04 15:05) [4]

И чем, собссно, не угодил TThread ?

---

← →
Smel   (2008-10-04 15:07) [5]

Ничего отладчик не говорит)
TThread - VCL, мне больше нравится писать на чистом апи

---

← →
Сергей М. ©   (2008-10-04 15:15) [6]

> Ничего отладчик не говорит


Вот ведь он обнаглел, не правда ли ?)

Ты его спрашиваешь, а он молчит .. Ты его паяльником, а он в полную несознанку)..

Может врать -то не надо, а ?


>  мне больше нравится писать на чистом апи


В приведенном коде нет ни малейшего намека на "чисый апи", зато есть полное непонимание происходящего. А отладчик молчит. А непонимание полное. А ты и не чешешься, чтобы отладчик позволил тебе понять что происходит.

Как это понимать ?

---

← →
Smel   (2008-10-04 15:17) [7]

>
> Вот ведь он обнаглел, не правда ли ?)
>
> Ты его спрашиваешь, а он молчит .. Ты его паяльником, а
> он в полную несознанку)..
>
> Может врать -то не надо, а ?

Я не вру, у меня бывает даже сам борланд закрывается

---

← →
Сергей М. ©   (2008-10-04 15:19) [8]

> Smel   (04.10.08 15:17) [7]


Врешь, причем нагло)


> у меня бывает даже сам борланд закрывается


Что за зверь ?)

---

← →
Сергей М. ©   (2008-10-04 15:21) [9]

А если не врешь, то рассказывай подробно о своих отладочных действиях ..

---

← →
DVM ©   (2008-10-04 15:36) [10]

> Smel


unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure ThreadFunc(Url: PChar);
begin
 MessageBox(0, Url, "", 0);
 FreeMem(Url, 256);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 Url: PChar;
 ThreadID: THandle;
begin
 GetMem(Url, 256);
 StrCopy(Url, "www.delphimaster.ru");
 BeginThread(nil, 0, @ThreadFunc, Url, 0, ThreadID);
end;

end.


---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.11.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.006 c