DLL, потоки

[BOBAH13]

Вообщем проблема встала именно так, как и написано в названии темы Разработал форму, на ней скажем кнопка и по нажатию на нее создаеться поток (класс) унаследованный от TThread для загрузки файла из инетрнета... Все начинает работать программа не чувствует никаких тормозов все ОК.... Так вот если создавать ехе и использовать данную форму то все работает на ура, но как только я эту форму кидаю в длл поток вроде и начинает работать, но куда то все события деваются, вообщем говоря работает не так как в exe Вопрос по теории - может кто знает почему так и какое может решение логичное есть ? p.s. буду продолжать проходить по процедурам может найду место где все и случается

методом ShowMessage понял что если в длл то поток даже не начинает работать не происходит процедура Execute.... объясните не знающему, как реализовать работу потоков в длл?

[mihali4]

Вот, как мне кажется, полезная для вас информация:
http://megalib.com/books/27/html/dll/other/other8.htm

[Stilet]

Вова, я может не в тему, но почему бы поток не организовать на АПИ, вместо VCLника?

Вот кстати попробовал так слегка особо не задумываясь в D6:

Главный проект:

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;
  procedure stop; external 'project2.dll';
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
stop;
end;

end.

DLL

library Project2;
uses
  SysUtils,
  windows,
  Classes,
  Unit2 in 'Unit2.pas';

var t:MThr;
{$R *.res}

 procedure stop;begin t.Terminate; end;

exports stop;
begin
 t:=MThr.Create(false);
end.

Обьект-поток

unit Unit2;

interface

uses    windows,SysUtils,
  Classes;

type
  MThr = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation

{ Important: Methods and properties of objects in VCL or CLX can only be used
  in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure MThr.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ MThr }

procedure MThr.Execute;
begin
  { Place thread code here }
     while true do begin
    SetWindowText(GetForegroundWindow,pchar(TimeToStr(time)));
   end;

end;

end.

Я правда с его остановкой не возился, но Execute выполняется путево

[BOBAH13]

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

[Stilet]

Тут можно только одно сказать: Код в студию...

[B_N]

Согласен со Stilet'ом. Без кода вообще непонятно о чём речь, хотя и есть подозрения. И потом, господа, уточните такой вопрос, я прекрасно помню, что раньше про VCL писали, что её категорически нельзя использовать в DLL, а вместо этого нужно делать BPL. Что-то изменилось с тех пор?

[Stilet]

Да ничего не изменилось, кто кричал что VCL в ДЛЛ нельзя продолжают настаивать на этом, а другие, типа меня кто ни разу не нарвался на проблемы VCLок в библах непонимая первых продолжают нормательно кодить так как удобно а не как популярно.
Помоему это больше дело вкуса чем правильности

[BOBAH13]

Я тут так подумал... Решил что пойду наверное путем bpl - мне всеравно эти длл только для моей проги будут нужны + еще почитал статью http://www.terabayt.com/plagin_inf.htm понравился момент с интерфейсами ( сам лично еще не делал bpl ). Спасибо за подсказки

[B_N]

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

Я тут так подумал... Решил что пойду наверное путем bpl - мне всеравно эти длл только для моей проги будут нужны + еще почитал статью http://www.terabayt.com/plagin_inf.htm понравился момент с интерфейсами ( сам лично еще не делал bpl ). Спасибо за подсказки

Вы всё-таки лучше еще раз подумайте, может быть всё-таки DLL? Честно говоря, когда видишь подход Борланда к реализации TThread, начинаешь подозревать, что "у них" тоже бывает конец квартала и почему многие из пишущих на Дельфи бегут от потоков как чёрт от ладана. Один этот "Синкронайз" чего стоит, а то что VCL практически целиком не thread-safe, вообще никуда не годится. А BPL, по-моему, просто способ Борланда пригвоздить программиста к своему продукту: куда потом с этой бэпээлькой, кроме как в Дельфи... Так что я полностью поддерживаю Stilet'а - лучше писать dll на API, благо этот момент весьма добротно документирован и никаких особых подводных камней не содержит.

[BOBAH13]

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

TWinThread = class
  private
    FHandle: THandle;
    FThreadID: THandle;
    FTerminated: Boolean;
    FFinished: Boolean;
    FCreateSuspended: Boolean;
    FSection: TRTLCriticalSection;
  protected
    procedure Execute; virtual; abstract;
  public
    constructor Create(CreateSuspended: Boolean);
    destructor Destroy; override;

    procedure Resume;
    procedure Enter;
    procedure Leave;

    property Terminated: Boolean read FTerminated write FTerminated;
    property Finished: Boolean read FFinished;
  end;

...

{ TWinThread }

function ThreadProc(Thread: TWinThread): Integer; stdcall;
begin
  if not Thread.FTerminated then
  begin
    Thread.Enter;
    Thread.Execute;
    Thread.Leave;
  end;
  Thread.FFinished := True;
  Thread.Free;
  Result := 0;
  ExitThread(Result);
end;

constructor TWinThread.Create;
const
  _Prop: array[Boolean] of Integer = (0, CREATE_SUSPENDED);
begin
  inherited Create;
  InitializeCriticalSection(FSection);
  FCreateSuspended := CreateSuspended;
  FHandle := CreateThread(NIL, 0, @ThreadProc, Pointer(Self),
    _Prop[FCreateSuspended], FThreadID);
end;

destructor TWinThread.Destroy;
begin
  DeleteCriticalSection(FSection);
  if FHandle <> 0 then
    CloseHandle(FHandle);
  inherited;
end;

procedure TWinThread.Resume;
begin
  if FCreateSuspended then
  begin
    FCreateSuspended := False;
    ResumeThread(FHandle);
  end;
end;

procedure TWinThread.Enter;
begin
  EnterCriticalSection(FSection);
end;

procedure TWinThread.Leave;
begin
  LeaveCriticalSection(FSection);
end;

и еще... получилось так что все что в коде execute ненадо вызывать синхронизацию... правда если вызвать messagebox то ошибка странная вылетает