длл и потоки

[z-wer]

Пару дней рылся в дебрях инета, но так проблема осталась на том же месте.
Вот здесь похожая проблема 3-х летней давности.
_http://programmersforum.ru/showthread.php?t=14759

Есть прога, написанная мной.
2 юнита, форма и поток.
Решил все это дело прикрутить как плагин к посторонней программе.
Форму затолкать в длл не составило труда, а вот со вторым юнитом как раз проблема.
Поток следит за состоянием порта (ком) и передает данные на форму, но в плагине все это связать не получается.
Потому прошу помощи у сообщества, хотя бы ссылками или примерами.

[Johnson]

Не понял сути вопроса. Не получается добавить юнит? Или не получается использовать процедуры юнита? Конкретнее, пожалуйста.

[z-wer]

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

[Johnson]

Есть библиотека.
В ней - юник с формой.
В юните формы - объявление нового класса потока.
Из библиотеки стартуете поток.
В Execute потока:

procedure TFormThread.Execute;
begin
  inherited;
  Application.Initialize;
  Application.CreateForm(TMainForm,MainForm);
  Application.Run;
  Application.Title:='J-Bot by Johnson';
end;

Дальше разберетесь?
Суть в том, что аппликацию надо запускать из отдельного потока в библиотеке.
Правда, дальше вы столкнетесь с другой проблеммой - ошибкой при завершении несущего приложения...



Так-с... Конкретный пример:

unit BotForm;

interface

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

type
  TMainForm = class(TForm)
  private
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public declarations }
  end;

  TFormThread = class(TThread)
  private

  public
    Destructor Destroy; Override;
  protected
    Procedure Execute; Override;
  end;

var
  MainForm: TMainForm;
  FT:TFormThread;

{ TFormThread }
destructor TFormThread.Destroy;
begin
  Application.DestroyComponents;
  Application.Free;
  inherited;
end;
procedure TFormThread.Execute;
begin
  inherited;
  Application.Initialize;
  Application.CreateForm(TMainForm,MainForm);
  Application.Run;
  Application.Title:='J-Bot by Johnson';
end;

в главной части библиотеки:

  FT:=TFormThread.Create(True);
  FT.Priority:=tpNormal;
  FT.FreeOnTerminate:=True;
  FT.Resume;

[z-wer]

Правда, дальше вы столкнетесь с другой проблеммой - ошибкой при завершении несущего приложения...

Спасибо за эксемплы, а с этого места можно немного подробней.
Млин я с такой задачкой впервые лоб в лоб, сложно мне немного...

[Johnson]

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

[z-wer]

Да, но у меня в экзешнике все пучком.
Но без отдельного потока, отслеживающего состояние порта не обойтись.

И еще вопрос, может конечно чайниковский.
Есть ли смысл экзешник оставить "так как есть" и наладить связь с посторонней прогой через длл, просто типа сваливать в одну папку ехе и длл?

[Johnson]

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

[z-wer]

Ладно, может я неправильно спросил, может вы неправильно поняли, а может и то и другое...
Если пару вопросов в личку задам не против будете?
Либо по скайпу?

[mss]

Поди synchronize() влупил и ждешь от него чуда.
А чудеса эти - они случаются только тогда когда понимаешь как эти чудеса делаются)