Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как передать процедуре параметр 
V
    Опции темы
Andreyzpr
Дата 12.10.2007, 16:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 190
Регистрация: 4.2.2007
Где: Украина

Репутация: 1
Всего: 1
Цитата(Alexeis @ 12.10.2007,  16:48)
Andreyzpr, ты ж в потоке обращаешься к памяти которая используется одновременно и основным потоком тоже.

Тоесть ты говориш про переменную TempString?
PM MAIL WWW ICQ   Вверх
Rennigth
Дата 12.10.2007, 17:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76
Код

unit Unit17;

interface

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

const
  MSG_THREAD_INFO = WM_USER + 123;

type
  PThreadParam = ^TThreadParam;
  TThreadParam = record
    Data: string[255];
    OwnerHandle: DWord;
  end;

  TForm17 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    FThreads: TStringList;
    FThreadParams: TList;
    procedure ThreadInfoEvent(var VMessage: TMessage); message MSG_THREAD_INFO;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

var
  Form17: TForm17;

implementation

{$R *.dfm}

procedure ScanNetwork(Param: Pointer);  stdcall;
var
  lParam: TThreadParam;
  ltmp: string;
begin
  MoveMemory(@lParam, Param, SizeOf(TThreadParam));

  {* здесь делай все что хочешь, сканируй сеть и т.д. только VCL не используй *}
  Sleep(1000); // это всесто твоей подготовки к сканированию или что там у тебя
  ltmp := 'Сканируем адрес ' + lParam.Data;
  PostMessage(lParam.OwnerHandle, MSG_THREAD_INFO, Integer(PChar(ltmp)), 0);
  Sleep(10000); // это всесто основных твоих действий
end;

procedure TForm17.Button1Click(Sender: TObject);
var
  i: Integer;
  hThread: DWord;
  hTmpID: DWord;
  lpParam: PThreadParam;
begin
  for i := 0 to 5 do
  begin
    lpParam := GetMemory(SizeOf(PThreadParam));
    lpParam^.Data := 'Blablabla' + IntToStr(i);  //Сдесь собирается айпи адрес (конечный вид 10.0.0. + i);
    lpParam^.OwnerHandle := Handle;
    FThreadParams.Add(lpParam);
    hThread := CreateThread(nil, 128, @ScanNetwork, lpParam, 0, hTmpID);
    if hThread > 0 then
      FThreads.Add(IntToStr(hThread))
    else
      RaiseLastOSError;
  end;
end;

constructor TForm17.Create(AOwner: TComponent);
begin
  inherited;
  FThreads := TStringList.Create;
  FThreadParams := TList.Create;
end;

destructor TForm17.Destroy;
var
  i: Integer;
  lHandle: DWord;
begin
  for i := 0 to FThreads.Count - 1 do
  begin
    lHandle := StrToIntDef(FThreads.Strings[i], 0);
    if lHandle > 0 then
      CloseHandle(lHandle);
  end;

  for i := 0 to FThreadParams.Count - 1 do
    FreeMemory(FThreadParams.Items[i]);

  FThreadParams.Free;
  FThreads.Free;
  inherited;
end;

procedure TForm17.ThreadInfoEvent(var VMessage: TMessage);
begin
  Memo1.Lines.Add(PChar(Pointer(VMessage.wParam)));
end;

end.



вот например такой примерчик. Не покушаюсь на оптимальнось и оригинальность. Хендлы тож конечно поздно закрываются, но с евентами не хочется возится. Я поэтому и предлагал TThread использовать smile

Добавлено через 4 минуты и 12 секунд
Цитата(Andreyzpr @  12.10.2007,  16:54 Найти цитируемый пост)
Тоесть ты говориш про переменную TempString? 

нет я о том что нельзя из отдельного потока напрямую использовать VCL. 
Я вот об этом: 
Код

Memo1.Lines.Add(...

Это не потоко безопасно! 

В моем примере передача данных форме сделана через очередь сообщений, это один из самых простых способов. Иначе, надо ручками организовывать синхронизацию, что без определенного опыта(которого и у меня особо нету) проблематично.



--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Andreyzpr
Дата 12.10.2007, 17:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 190
Регистрация: 4.2.2007
Где: Украина

Репутация: 1
Всего: 1
ууууууууууу :( :( :( :( :(
А мой код в чувство никак привести нельзя? Вроде ж все работает, а по завершении цикла :( :( :( !!
PM MAIL WWW ICQ   Вверх
Rennigth
Дата 12.10.2007, 17:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76
Цитата(Andreyzpr @  12.10.2007,  17:27 Найти цитируемый пост)
ууууууууууу :( :( :( :( :(
А мой код в чувство никак привести нельзя? Вроде ж все работает, а по завершении цикла :( :( :( !! 

К сожалению нет smile

Добавлено через 4 минуты и 19 секунд
Andreyzpr, чтобы понять почему так почитай, хошая статья smile
http://forum.vingrad.ru/topic-60076.html

Добавлено через 8 минут и 40 секунд
Andreyzpr, ты попробуй мой пример, там ничего сверх естественного нету. Работать с сетью в отдельном потоке можно, ничего страшного не будет.


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Andreyzpr
Дата 12.10.2007, 17:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 190
Регистрация: 4.2.2007
Где: Украина

Репутация: 1
Всего: 1
Я уже ту статью читал :(
Я совершенно не могу понять твоего кода.. что и куда вставить!!,
КАк я могу не использовать VCL если мне результат выводить надо...
Незнаю что такое constructor;
И самое плохое то что я показал была упращеная версия, и если бы она заработала там бы намного больше циклов шло бы....
А из за чего неработоспособна моя версия? Что там создает ошибку?
PM MAIL WWW ICQ   Вверх
Rennigth
Дата 12.10.2007, 18:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76
Цитата(Andreyzpr @  12.10.2007,  17:52 Найти цитируемый пост)
Незнаю что такое constructor;

Constructor/Destructor это примерно тоже самое что и события OnFormCreate/OnFormDestroy, все можно было и туда вставить, просто я так привык smile

Цитата(Andreyzpr @  12.10.2007,  17:52 Найти цитируемый пост)
КАк я могу не использовать VCL если мне результат выводить надо...

В моем примере же выводиться. Обрати внимание на то, что я из процедуры трэда выполняю PostMessage, т.е. я посылаю сообщение главной форме с текстом "сканируем адрес и т.д.". А главная форма ловит это сообщение(метод ThreadInfoEvent) , и уже она добавляет этот текст в memo.

Цитата(Andreyzpr @  12.10.2007,  17:52 Найти цитируемый пост)
А из за чего неработоспособна моя версия? Что там создает ошибку? 


1. То что напрямую обращаешся к VCL.
2. Перед тем как ты передаешь указатель на параметр в процедуру трэда, ты для нее явно не выделяешь память, в итоге при выходе из области видимости, дельфи сама подчишает память, а ты в трэде пыташься ее использовать. Но это уже даже проблема не то что отдельный трэд, а так устроена дельфи, это просто всегда надо учитывать. Это сделано вприципе для облегчения жизни делфи-программиста, но есть случаи(как данный), когда это доставляет определенные трудности.


Это сообщение отредактировал(а) Rennigth - 12.10.2007, 18:10


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
MetalFan
Дата 12.10.2007, 18:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128
Цитата(Rennigth @  12.10.2007,  18:08 Найти цитируемый пост)
В моем примере же выводиться. 

я бы так не стал делать
Цитата(Rennigth @  12.10.2007,  17:18 Найти цитируемый пост)
procedure ScanNetwork(Param: Pointer);  stdcall;
var
  ltmp: string;
begin
...
  Sleep(1000); // это всесто твоей подготовки к сканированию или что там у тебя
  ltmp := 'Сканируем адрес ' + lParam.Data;
  PostMessage(lParam.OwnerHandle, MSG_THREAD_INFO, Integer(PChar(ltmp)), 0);
  Sleep(10000); // это всесто основных твоих действий
end;


никто не гарантирует, что сообщение будет обработано до того, как освободится память под ltmp после завершения потока


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Rennigth
Дата 14.10.2007, 11:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76
MetalFan, 
мб... А если подумать то еще надо посмотреть как устроен PostMessage. Ведь когда отправляешь сообщение другому процессу ты же не заботишься о сохранности памяти... тем более что она выделена в другом процессе... smile   



--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
dumb
Дата 14.10.2007, 15:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sceloglauxalbifacies
****


Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 3
Всего: 158
Цитата(Rennigth @  14.10.2007,  12:39 Найти цитируемый пост)
Ведь когда отправляешь сообщение другому процессу ты же не заботишься о сохранности памяти...
в другие адресные пространства указатели отправлять особого смысла нет(исключением может быть случай, когда в ответ на сообщение, удаленный процесс делает ReadProcessMemory, но это редкость).

Цитата(Rennigth @  14.10.2007,  12:39 Найти цитируемый пост)
тем более что она выделена в другом процессе...
а выделение памяти в контексте АП получателя - это работа для WM_COPYDATA, причем SendMessage. smile

если и посылать асинхронно в пределах одного АП, то тогда выделять перед посылкой и освобождать после приема. хотя в данном конкретном случае неявную помощь может оказать "вумный" стринг - но тут я ни разу не уверен. smile
PM MAIL   Вверх
MetalFan
Дата 14.10.2007, 20:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128
Цитата(Rennigth @  14.10.2007,  11:39 Найти цитируемый пост)
Ведь когда отправляешь сообщение другому процессу ты же не заботишься о сохранности памяти... тем более что она выделена в другом процессе... 

сорь, но не понял, о чем речь  smile 


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Andreyzpr
Дата 14.10.2007, 20:38 (ссылка) | (голосов:3) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 190
Регистрация: 4.2.2007
Где: Украина

Репутация: 1
Всего: 1
Думал, думал.. всетаки додумался как провернуть с переменными.. вроде работает, правда на 100% не уверен в работоспособности... Сделал таким способом:
Запуск?
Код

 begin
        index:=0;
        for i:=0 to 5 do
          begin
            TempString:=m1 + '.' + m2 + '.' + m3 + '.' + IntToStr(i);
            a[i]:=TempString;
          end;
        for i:=0 to 5 do
          begin
            CreateThread(nil, 128, @ScanNetwork, PChar('127.0.0.1'), 0, h);
          end;
      end;

где a это массив а index Integer;

Сама процедура:
Код

//начало
tmp:=a[index]; //Даем процедуре Адрес 
index:=index+1;  //Чтото типа счетчика
Form1.Memo1.Lines.Add('Сканируем адрес ' + tmp);
NetContainerToOpen.lpRemoteName:= PChar('\\' + tmp);
//и продолжение

Вообщм по такому принципу пустил... 
Впринципе, можно и ставить вопрос решенным,  т.к. по другому ничего придумать нельзя :( :( :(   
PM MAIL WWW ICQ   Вверх
MetalFan
Дата 14.10.2007, 20:53 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128
Цитата(Andreyzpr @  14.10.2007,  20:38 Найти цитируемый пост)
CreateThread(nil, 128, @ScanNetwork, PChar('127.0.0.1'), 0, h);

нехорошо

Цитата(Andreyzpr @  14.10.2007,  20:38 Найти цитируемый пост)
Form1.Memo1.Lines.Add('Сканируем адрес ' + tmp);

очень нехорошо


Цитата(Andreyzpr @  14.10.2007,  20:38 Найти цитируемый пост)
 т.к. по другому ничего придумать нельзя :( :( :(   

можно. плохо видимо придумывал


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
dumb
Дата 14.10.2007, 21:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sceloglauxalbifacies
****


Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 3
Всего: 158
Цитата(Andreyzpr @  14.10.2007,  21:38 Найти цитируемый пост)
Сама процедура
user posted image
слов нет. одни эпитеты. и те не для огласки.

Andreyzpr, если ты не хочешь понимать, что и как происходит, то не мучай ни себя, ни других, а просто задай вопрос в ЦП.

такое впечатление, что человек просто проигнорил все ответы от начала и до конца топа... smile
PM MAIL   Вверх
Andreyzpr
Дата 14.10.2007, 22:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 190
Регистрация: 4.2.2007
Где: Украина

Репутация: 1
Всего: 1
НУ я совершенно не понимаю ваших данный мне кодов! Это одно и тоже что я буду ехать на машине и не знать конструкции двигателя, и где то посередине дороги она сломается, и как мне ее дальше ремонтировать?
Ну скопирую я сейчас код, вставлю его, что от этого изменится? Захочу чтото подменить, добавить, или со временем усовершенствовать - а что там и как совершенно не понимаю и ничего не смогу сделать...!!!
Поэтому смысла тупо выделить тот код, нажать Ctrl+C, на форме Ctrl+V не вижу...

Добавлено через 1 минуту и 12 секунд
Ну вон вы говорили про PostMessage, а я не знаю что оно такое! Не пойму о чем спор там идет...
PM MAIL WWW ICQ   Вверх
Alexeis
Дата 15.10.2007, 00:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
Andreyzpr ты уже едешь на поломаной машине. Нужно подучить работу с потоками, а то будешь ломаться машина каждые 200м.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Страницы: (3) Все 1 [2] 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0630 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.