Реализация параллельной работы

[Smallboy]

подскажите можно ли из потока вызвать функцию(из длл).
Функция описана так в TForm:
и как это правильно сделать.

private
SetComParams : function(Num: Byte; Rate: DWord): Byte; stdcall;

[raxp]

Никто не мешает вызвать из потока, даже нужно, именно это который пост вам и толкуют.

Так что за DLL? Возможно внимательное чтение доков даст наличие асинхронного вызова без ожидания?

[Smallboy]

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

Никто не мешает вызвать из потока, даже нужно, именно это который пост вам и толкуют.

Так что за DLL? Возможно внимательное чтение доков даст наличие асинхронного вызова без ожидания?

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

А модуль по прослушиванию порта к данной ДЛЛ не имеет отношения.
Это как один из способов обработки запросов для скармливания данной Длл.

В идеале все это можно рассматривать как 2 подпрограммы обменивающиеся информацией друг с другом:
- первая регистрирует запросы и первый зарегистрированный передает второй подпрограмме. Причем продолжает работать во время обработки запроса запроса 2-й подпрограммой. И всем остальным в это время шлет ответ о занятости устройства.

- 2-я обрабатывает запрос и возвращает ответ первой(успешно или нет)

Причем 2-я не может обрабатывать более 1-го запроса.

P.S.

т.е. вызывать функцию описанную в TForm вот так просто?:

TForm1.SetComParams(xxx) в разделе Execute

[Slym]

не приучайся к этому! TForm1.SetComParams(xxx) в разделе Execute
кто мешает вытащить за пределы формы?

function SetComParams(Num: Byte; Rate: DWord): Byte; stdcall;external 'dllname.dll' name 'SetComParams';

{ TWorkThread }
procedure TWorkThread.Execute;
var
  Num,res: Byte;
  Rate: DWord;
begin
  while not Terminated do
  begin
    res:=SetComParams(Num,Rate);
  end;
end;

[Smallboy]

всем спасибо за помощь!