Процедура в потоке

[HTTqp]

Появилась проблема с подвисание программы при выполнении действия, почитал как исправить, посоветовали вывести в отдельный поток данную процедуру, стал копать в этом направлении но ничего не понял толком

Нашел такой код, но не знаю верен ли он

var
  Form1: TForm1;
  tr,id: longword;

implementation

{$R *.dfm}

procedure TForm1.writting;
begin
    //здесь твой код для записи
    CloseHandle(tr);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   tr:=beginthread(nil,0,addr(TForm1.writting),nil,0,id);
end;

end.

Кто объяснит напримере процедуры, например

procedure showmsg;
begin
ShowMessage('Hello world');
end;

[Розетко]

unit Unit2; 

interface

...

type //MyThread - заданное нами имя потока.
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation

{ MyThread }

procedure MyThread.Execute;
begin
  { Здесь код который будет выполняться в потоке }
end;

// Запуск потока
procedure TForm1.Button1Click(Sender: TObject);
begin
   MyThread:=TMyThread.Create(False);
   MyThread.FreeOnTerminate:=true;
   MyThread.Priority:=tpLower;
   MyThread.Resume;

end;

Почитай ссылка #1 ссылка #2

[HTTqp]

А как быть если процедура которую надо выполнить находится в DLL

[Розетко]

Сообщение от HTTqp

А как быть если процедура которую надо выполнить находится в DLL

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

[HTTqp]

Не, с DLL я знаком, умею загружать, выгружать. Вопрос был как выполнить в потоке процедуру которая находится в DLL?
Выше пример как в самой программе запустить поток, без использования DLL.
Получается так:

unit Unit2; 

interface

...

type //MyThread - заданное нами имя потока.
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation

{ MyThread }

procedure MyThread.Execute;
begin
  { процедура из DLL } // глупа создавать процедуру procedure MyThread.Execute, для того чтобы поместить туда другую процедуру которая описана в DLL
end;

// Запуск потока
procedure TForm1.Button1Click(Sender: TObject);
begin
   MyThread:=TMyThread.Create(False);
   MyThread.FreeOnTerminate:=true;
   MyThread.Priority:=tpLower;
   MyThread.Resume;

end;

и что все же лучше динамическое или статистическая загрузка?

[Alter]

Статический импорт является более удобным, а динамический — более гибким. Что лучше, решать вам.

Статическое подключение DLL
При старте вашей программы подключенная таким образом функция уже загружена и находится в адресном пространстве программы.
Загрузку этих функций выполняет загрузчик исполняемых файлов и производится это при старте программы. Очевидно что такой способ является самым простым, но не оптимальным:
1) Если необходимых программе функций и библиотек много, то процесс их загрузки может занять значительное время
2) Функции будут отнимать оперативную память, причем все и одновременно, хотя программе возможно они не нужны в один и тот же момент времени
3) Если какая-нибудь из необходимых библиотек отсутствует, то загрузка программы станет невозможна, т.е. таким образом невозможно реализовать, например, механизм плагинов.

Динамическое подключение DLL
Недостатков статической лишена динамическая. Происходит только тогда, когда она нужна. Выгрузить библиотеку из памяти также можно в любой момент времени. Загрузка библиотеки происходит по вызову функции LoadLibrary, которая принимает в качестве параметра имя библиотеки. После загрузки библиотеки, адреса каждой нужной функции можно получить с помощью функции GetProcAddress, которой нужно сообщить выданный первой функцией обработчик и имя функции.

[yaschenko]

Сообщение от HTTqp

глупа создавать процедуру procedure MyThread.Execute, для того чтобы поместить туда другую процедуру которая описана в DLL

А что в DLL разве нельзя создать поток?!

[HTTqp]

Сообщение от yaschenko

А что в DLL разве нельзя создать поток?!

Так можно?

[yaschenko]

Сообщение от HTTqp

Так можно?

Я попробовал создать поток в dll на мой взгляд работает, попробуйте сами.