вызов функции из dll в потоке

[xvs]

Добрый день!

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

Заранее благодарен за помощь.

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

вызов функции в потоке или не в потоке ничем не отличается.

[FaTaL]

Динамически грузи ДЛЛ и используй её как обычно. В чем именно проблема то?

[xvs]

Приведу выдержки из кода:

Описание функциии и динамический вызов библиотеки

type
TReadSInt = function (adr,adr_type:DWORD;command:PChar;v ar value:Integer;index:Integer): Integer; stdcall;
...

var
ReadSInt: TReadSInt;
hndDLLHandle: Thandle;
...

procedure TForm1.FormShow(Sender: TObject);
begin
try
hndDLLHandle := loadLibrary('owen_io.dll');
if hndDLLHandle <> 0 then
begin
@ReadSInt := getProcAddress ( hndDLLHandle, 'ReadSInt' );
end
else
showMessage ( 'DLL not found...' );
finally
end;
end;

Далее по клику на кнопку создается поток, в котором зацикливается вызов функции с определенными параметрами:

procedure TThreadIO.Execute;
begin
while True do
readsint(16,0,'r.Cn',mask,-1);
end;

Вообщем, в таком виде не работает...

[raxp]

...конечно я дико извиняюсь, но:

procedure TForm1.FormShow(Sender: TObject);
 begin
 try
 hndDLLHandle := loadLibrary('owen_io.dll');
 if hndDLLHandle <> 0 then
 begin
 @ReadSInt := getProcAddress ( hndDLLHandle, 'ReadSInt' );
 end
 else
 showMessage ( 'DLL not found...' );
 finally
 end;
 end;

кто будет читать доки на использование OWEN-вской библиотеки, а? Где импорт и вызов функций открытия порта, настройки порта, выбора интерфейса, закрытия порта (для корректности), SetApiMode ? Где это все? Вы читаете из порта, не открыв и не настроив его?

p.s.: на официальном форуме техподдержки OWEN данный вопрос обсасывался раз -надцать.

[xvs]

...конечно я дико извиняюсь, но:

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

...
Смысл в том, что функция отрабатывает, если, например, ее засунуть под кнопку, но не хочет работать в потоке...

[raxp]

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

Как пример:

и настройки порта

в 8-ми или 11 битном режиме?

[raxp]

Смысл в том, что функция отрабатывает, если, например, ее засунуть под кнопку, но не хочет работать в потоке...

задержки добавьте в потоке ...и как проверили, что сам поток запущен?

[xvs]

Всем спасибо. Заработала шарманка... Может быть не совсем корректное решение, но работает. Решилось через добавление SelectPort(com_x) в Execute потока до выхода в цикл. Задержки в потоке оказались не нужны.

[raxp]

через добавление SelectPort(com_x)

а ведь написали, что усе настроено и все в ажуре . В следующий раз полный код и без телепатов.