Я сдела так

Код

procedure MyProcedure; var Label2: TLabel2; begin try  ..... except ............. finally Form1.label2.caption:= 'Complite'; end;

компилируется но не работает (((((((((((((((((((((((
тоычнее начинает работать ... а потом вылетает ошибка ((((

мой пост предыдущий читай=)

Цитата(FRAGNATIC @ 15.1.2006, 19:20 )

мой пост предыдущий читай=)

Цитата(FRAGNATIC @ 15.1.2006, 19:15 )

nil те надо var Label6: TLabel; ... begin label6:=TLabel.Create(nil);

ты имеешь ввиду все что я вписал в раздел var необходимо создать и в разделе begin?

Код

procedure MyProcedure; begin label6:=TLabel.Create(nil);  opendialog1:=TOpenDialog.Create(nil); Memo1:=TMemo.Create(nil);     try  ..... except ............. finally Form1.label2.caption:= 'Complite'; end;

что типа того?

Цитата(Barovskiy @ 15.1.2006, 19:39 )

ты имеешь ввиду все что я вписал в раздел var необходимо создать и в разделе begin?

если ты не кидал на форму не опендиалога не мемо а тока обхявил в вар
то их надо СОЗДАТь перед тем как к ним оброщатся=)
если ты кинул их на форму то их и объявлять в вар не надо=)
Добавлено @ 19:53
а в finally
надо освободить память типа
label6.Free

Цитата(FRAGNATIC @ 15.1.2006, 19:52 )

если ты не кидал на форму не опендиалога не мемо а тока обхявил в вар то их надо СОЗДАТь перед тем как к ним оброщатся=) если ты кинул их на форму то их и объявлять в вар не надо=) Добавлено @ 19:53

у меня все на форме лежит и опендиалог и мемо .... делаю так - компилирует, но когда нажимаю на кнопку запуска потока, то он вообще не реагирует, как будто у меня в кнопке ничего не прописано (((((
сама процедура выглядит типа так

Код

procedure MyProcedure; begin label6:=TLabel.Create(nil);  opendialog1:=TOpenDialog.Create(nil); Memo1:=TMemo.Create(nil);     Button1.enabled:=false;     try  ..... except ............. finally Form1.label2.caption:= 'Complite'; Button1.enabled:=true end;

а код вызов процедуры так

Код

var   h:cardinal;   begin CreateThread(nil,128,@MyProcedure,self,0,h);

никакой реакции
у меня даже кнопока остается активной, хотя в процедуре прописано Button1.enabled:=false;
(((((
Добавлено @ 20:15

Цитата(FRAGNATIC @ 15.1.2006, 19:52 )

Добавлено @ 19:53 а в finally надо освободить память типа label6.Free

Память в конце обязательно освобождаю, с самого начала ))))

Цитата(Barovskiy @ 15.1.2006, 20:09 )

у меня все на форме лежит и опендиалог и мемо

зачем тогда их в вар объявять? они и так уже объявлены и создаются в том случаии если создана форма =)

Цитата(FRAGNATIC @ 15.1.2006, 20:16 )

зачем тогда их в вар объявять? они и так уже объявлены и создаются в том случаии если создана форма =)

всеравно не работает ((((( уже пробовал

все компилируется а работать не хочет .....
есть ли какойнибудь пример на эту тему, рабочий пример ???...
или всетаки попробовать через TThreads сделать?

Цитата(Barovskiy @ 15.1.2006, 21:10 )

все компилируется а работать не хочет ..... есть ли какойнибудь пример на эту тему, рабочий пример ???... или всетаки попробовать через TThreads сделать?

мы тут не телепаты... код покажи...

Цитата(Barovskiy @ 15.1.2006, 20:09 )

Память в конце обязательно освобождаю, с самого начала ))))

какого начала?
финали это уже конец =)
не нравится так освобожда в другом месте тока ОДНО НО
любые переменые объявленые в ВАР любой из функций, процедуры
являются локальными и
уничтожаются в конце выполнения этой процедуры
тоесть

Цитата(Barovskiy @ 15.1.2006, 20:09 )

procedure MyProcedure; begin label6:=TLabel.Create(nil);  opendialog1:=TOpenDialog.Create(nil); Memo1:=TMemo.Create(nil);     Button1.enabled:=false;     try  ..... except ............. finally Form1.label2.caption:= 'Complite'; Button1.enabled:=true end;

после твоего end; Memo1 и так уже существовать не будет=)
так что если хош с ними работать и дальше где-то то надо их сделать глобальными перемеными а не локальными чисто для данной процедуры
Добавлено @ 22:17
гы в том коде что я ща процетировал у тя ваще переменых нету
выще они были в этойже ф-е)

Цитата(FRAGNATIC @ 15.1.2006, 22:15 )

какого начала? финали это уже конец =)

Я имел ввиду ссамого начала создания самого проекта , гы .... ))))))))

Цитата(Albinos_x @ 15.1.2006, 22:07 )

мы тут не телепаты... код покажи...

Щас попробую обяснить что я хочу сделать и че получается:-))))

У меня была фрома, на ней компонены, мемо , опендиалог, лейблы ... логмемо, кнопки старт стоп в общем все компоненты которые нужны

я выбираю в опен диалог текстовый файл в котором у меня ip адреса и мне надо получить их имена, у нас в сетке больше 120 компов, и мне нада составить список какой ip кому принадлежит ....

при нажатии на кнопку у меня запускается цикл ... и пока не конец файла он проверяет все ip, т.е. читает строку в файле пингует его возвращает ответ в log
так вся эта бадяга виснет ... и очень долго идет проверка, поэтому я хочу вогнать этот кусок проверки в поток .....

вот кусок того что было

Код

var   s: TStrings;   d, i: integer; //  stop: boolean; // объявлена глобальной вверху поэтому отсюда убрал ее begin if filepath.Text<>'' then begin  // filepath - это обычный эдит   s := TStringList.Create;   Label1.Caption:='0'; Label4.Caption:='0'; Label6.Caption:='0'; Label8.Caption:='0'; Label11.Caption:='0'; Button1.Enabled:=false;  stop:= false;     try     s.LoadFromFile (OpenDialog1.FileName);       for d := 0 to s.Count -1 do begin       label1.Caption:= floattostr(strtofloat(label1.Caption)+1); // пересчитываю сколько всего есть ip адресов       end;    for i := 0 to s.Count - 1 do begin  //  проверка для того чтоб запустить цикл    if Stop=true then Break;    application.ProcessMessages;   edit1.Text := Copy (s[i],1, pos( '', s[i]) -1 );          Label4.Caption:=floattostr(strtofloat(Label4.Caption)+1);       application.ProcessMessages;       label9.Caption:='Идет проверка IP'+edit1.Text ;       memo1.Lines.Add('Проверка  '+Edit1.Tex);        try   // запускаю сам цикл         begin   ..........  // тут проверяю ip и записываю имя ip   except         memo1.Lines.Add('Воткни кабель в сетевуху ...');  //  АшЫпКа .......... finally     s.Free;     label9.Caption:='Complite';     Label4.Caption:='0';     Button1.Enabled:=true;     memo1.Lines.SaveToFile('Log.txt');   end;

потом как мне отпостили выше я переделал в такой вариант

Код

procedure ChecIP; var   s: TStrings;   d, i: integer; begin // тут пошел список создания ... хотя все это есть на морде ...  form1.filepath:= TPDJXPEdit.Create(nil);     form1.SpeedButton1:= TSpeedButton.Create(nil);     form1.RxLabel1:= TRxLabel.Create(nil);     form1.Edit1:= TEdit.Create(nil);     form1.Edit2:= TEdit.Create(nil);     form1.Edit3:= TEdit.Create(nil);   // кароче все что можно было я сюда впихнул  // НИЖЕ ВСЕ что было  if filepath.Text<>'' then begin  // filepath - это обычный эдит   s := TStringList.Create;   Label1.Caption:='0'; Label4.Caption:='0'; Label6.Caption:='0'; Label8.Caption:='0'; Label11.Caption:='0'; Button1.Enabled:=false;  stop:= false;     try     s.LoadFromFile (OpenDialog1.FileName);       for d := 0 to s.Count -1 do begin       label1.Caption:= floattostr(strtofloat(label1.Caption)+1); // пересчитываю сколько всего есть ip //адресов       end;    for i := 0 to s.Count - 1 do begin  //  проверка для того чтоб запустить цикл    if Stop=true then Break; //     application.ProcessMessages;   edit1.Text := Copy (s[i],1, pos( '', s[i]) -1 );          Label4.Caption:=floattostr(strtofloat(Label4.Caption)+1);       application.ProcessMessages;       label9.Caption:='Идет проверка IP'+edit1.Text ;       memo1.Lines.Add('Проверка  '+Edit1.Tex);        try   // запускаю сам цикл         begin   ..........  // тут проверяю ip и записываю имя ip   except         memo1.Lines.Add('Воткни кабель в сетевуху ...');  //  АшЫпКа .......... finally     s.Free;     label9.Caption:='Complite';     Label4.Caption:='0';     Button1.Enabled:=true;     memo1.Lines.SaveToFile('Log.txt');   end;

ну самf кнопка, которая вызывает поток

Код

procedure TForm1.Button1Click(Sender: TObject); var   h:cardinal;   begin CreateThread(nil,128,@ChekIP,self,0,h); end;

так в этом варианте все компилится и даже запускается сама программа, нажимаю на пуск - ноль эмоций.... хотя после создания все компонентов идет

Код

Button1.Enabled:=false;  stop:= false;

кнопка так и остается доступной....
а если вырубить прогу... то такое начинается...
Добавлено @ 23:33

Цитата(FRAGNATIC @ 15.1.2006, 22:15 )

гы в том коде что я ща процетировал у тя ваще переменых нету выще они были в этойже ф-е)

Я их убрал из вара

Цитата(Barovskiy @ 15.1.2006, 23:26 )

кнопка так и остается доступной.... а если вырубить прогу... то такое начинается..

это скорее всего из-за:

Цитата(Barovskiy @ 15.1.2006, 23:26 )

// тут пошел список создания ... хотя все это есть на морде ...  form1.filepath:= TPDJXPEdit.Create(nil);     form1.SpeedButton1:= TSpeedButton.Create(nil);     form1.RxLabel1:= TRxLabel.Create(nil);     form1.Edit1:= TEdit.Create(nil);     form1.Edit2:= TEdit.Create(nil);     form1.Edit3:= TEdit.Create(nil);

компаненты уже существуют, поэтому генерируется ошибка, код завершается без обработки:

Цитата

finally     s.Free;     label9.Caption:='Complite';     Label4.Caption:='0';     Button1.Enabled:=true;     memo1.Lines.SaveToFile('Log.txt');   end;

т.к. блок try идёт после...

Цитата

application.ProcessMessages;

выкинь нафиг эту строку наконец... в потоке будет генерироваться ошибка...

Цитата(Albinos_x @ 15.1.2006, 23:42 )

выкинь нафиг эту строку наконец... в потоке будет генерироваться ошибка...

эту фигню я уже выкинул ....

просто код скопировал со старой версии .. .
а в потоке ее нету уже.....
Добавлено @ 00:36

Цитата(Albinos_x @ 15.1.2006, 23:42 )

компаненты уже существуют, поэтому генерируется ошибка, код завершается без обработки:

я убрал все.............. и при нажатии на кпопку вылетает ошибка после чего прога закрывается.....

вот тебе простенький пример(который у меня работает):

Код

Procedure Pack; var i,j:word; begin form1.ListBox1.Clear; form1.SpeedButton1.Enabled:=true; SetLength(TypFile,0); // поиск файлов в папке и запись адресов в массив типа запись // функция моя так что её не ищи в делфи RecTabAddFull(form1.DirectoryListBox1.Directory,TypFile); i:=Length(TypFile); for j:=0 to i-1 do    begin    form1.ListBox1.Items.Add(TypFile[j].rtFileName)    end; form1.edit1.text:=''; // запись файлов в другую папку // тоже функция моя if not RecordFileC(form1.DirectoryListBox2.Directory+'\Test.chid', TypFile) then    begin    form1.ListBox2.Items.Add('Error/');    MessageBox(0, 'произошла ошибка. Файл не создан.', 'Test', MB_OK or MB_ICONERROR)    end    else    begin    form1.ListBox2.Items.Add('Complit/');    MessageBox(0, 'Файл создан.', 'Test', MB_OK or MB_ICONINFORMATION);   end; end;

запуск:

Код

procedure TForm1.SpeedButton1Click(Sender: TObject); var  hh:Dword; begin CreateThread(nil,0,@Pack,nil,0,hh); end;

т.к. это пример поэтому расписывать написанные и используемые мной функции не стал

Это сообщение отредактировал(а) Albinos_x - 16.1.2006, 00:45

Цитата(Albinos_x @ 15.1.2006, 23:42 )

это скорее всего из-за:

вот так везде поставил

Код

....  try      s.LoadFromFile (Form1.OpenDialog1.FileName);       for d := 0 to s.Count -1 do begin       Form1.label1.Caption:= floattostr(strtofloat(Form1.label1.Caption)+1);       end;    for i := 0 to s.Count - 1 do begin    if Stop=true then Break; .....

указал пренадлежность каждого компонента....
убрал из вара и все вот это

Цитата(Albinos_x @ 15.1.2006, 23:42 )

Цитата(Barovskiy @ 15.1.2006, 23:26 ) // тут пошел список создания ... хотя все это есть на морде ...  form1.filepath:= TPDJXPEdit.Create(nil);     form1.SpeedButton1:= TSpeedButton.Create(nil);     form1.RxLabel1:= TRxLabel.Create(nil);     form1.Edit1:= TEdit.Create(nil);     form1.Edit2:= TEdit.Create(nil);     form1.Edit3:= TEdit.Create(nil);

вывалшивает ошибку ((((((( не хочет запускать поток (((((((((

Цитата(Barovskiy @ 16.1.2006, 00:26 )

я убрал все.............. и при нажатии на кпопку вылетает ошибка после чего прога закрывается.....

что говорит пошаговая отладка? на какой строчке ошибка?