Работа с потоками в dll

[yaschenko]

Доброго времени суток!
Подскажите как из dll дать понять программе что поток завершился и можно выгружать dll из памяти?

Сама dll:

ibrary Thread_dll;
uses
  SysUtils,
  Classes,Dialogs;
type
 Thread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
 end;
{$R *.res}
procedure Thread.Execute;
begin
  ShowMessage('Hello world!');
end;
procedure vizovThread;stdcall;
var T:Thread;
begin
  T:=Thread.Create;
  t.FreeOnTerminate:=True;
  T.Priority:=tpLower;
  T.Resume;
end;
exports
 vizovThread;
begin
end.

Вызов dll в программе:

procedure TForm1.Button1Click(Sender: TObject);
var lib:THandle;
    _Thread:procedure;stdcall;
begin
lib:=LoadLibrary('Thread_dll.dll');
@_Thread:=GetProcAddress(lib,'vizovThread');
_Thread;
//FeeLibrary(lib);
end;

[yaschenko]

Подскажите это можно реализовать с помощью PostMessage() ?

[FaTaL]

Зачем в таком случае делать отдельный поток, если Вам всё равно нужно ждать пока он завершится?

[Розетко]

У TThread есть свойство FreeOnTerminate. Если оно равно true, то поток сам освободит занимаемую память при завершении.

[Пепел Феникса]

Сообщение от Розетко

У TThread есть свойство FreeOnTerminate. Если оно равно true, то поток сам освободит занимаемую память при завершении.

в основном речь о ДЛЛ, а не о потоке.

я бы советовал вам применить АПИшные потоки, ибо им доступна функция FreeLibraryAndExitThread, которая корректно завершит поток и выгрузит ДЛЛ.

[yaschenko]

Сообщение от Пепел Феникса

я бы советовал вам применить АПИшные потоки, ибо им доступна функция FreeLibraryAndExitThread, которая корректно завершит поток и выгрузит ДЛЛ.

Спасибо за совет, почитаю, надеюсь поможет.

[yaschenko]

В dll создаю поток в котором создаётся и выводиться информация в excel это все отрабатывает нормально, а вот когда выгружаю dll из памяти возникает ошибка, Подскажите пожалуйста ,что я делаю не так?
Dll:

library OtchetK;
uses
  SysUtils, Classes, DB, ADODB, Forms,Windows, Messages,  ExcelXP, OleServer, Dialogs;
type
 Thread=class(TThread)
     private
    { Private declarations }
  protected
    procedure Execute; override;
 end;
{$R *.res}

Var AdoQ:TADOQuery; Form:TForm;
      EA:TExcelApplication;
      EW:TExcelWorkbook;
procedure Thread.Execute;
var
 i:Integer;
 n:OleVariant;
begin
try
EA:=TExcelApplication.Create(Form);
EW:=TExcelWorkbook.Create(Form);
n:=GetCurrentDir+'\Отчет.xls';
EA.Workbooks.Add(n,0);
EW.ConnectTo(EA.ActiveWorkbook);
AdoQ.First;
for I := 1 to AdoQ.RecordCount do
  begin
    EA.Cells.Item[i,1].value:=AdoQ.Fields.Fields[4].AsString;
    AdoQ.Next;
  end;
EA.Visible[0]:=True;
EW.Disconnect;
EA.Free;
EW.Free;
finally
PostMessage(Form.Handle,WM_USER+1,0,0);
end;
end;
procedure OtchetKlient(AForm:TForm;Query:TADOQuery);
var    T:Thread;
begin
AdoQ:=Query;
Form:=AForm;
t:=Thread.Create(false);
T.FreeOnTerminate:=False;
T.Priority:=tpLower;
T.Resume;
end;
exports
  OtchetKlient;
begin
end.

Код программы:

procedure TForm1.FreeDllOtchet(var Msg: TMessage);
begin
  FreeLibrary(hLib);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
hLib:=LoadLibrary('OtchetK.dll');
@_otchet:=GetProcAddress(hLib,'OtchetKlient');
_otchet(Self,ADOQuery1);
end;