Проблемы с PostMessage из C++ .dll в приложение Delphi Forms

В дополнение к тому, что заявляли другие, лучшим дизайном было бы, чтобы EXE передал свой HWND напрямую в DLL, тогда DLL не нужно было бы искать его. Это имеет дополнительное преимущество, заключающееся в том, что EXE может затем решить, в какой HWND файл DLL должен отправлять свои сообщения. Я бы использовал AllocateHWnd(), чтобы создать для этого специальное окно.

Попробуй это:

UINT nMsgID = RegisterWindowMessage(_T("WM_MSG")); 

extern "C" __declspec(dllexport) int __stdcall MyFunction(HWND hWnd) {   
    if ((nMsgID != 0) && (hWnd != NULL)) {
        for (int i = 0; i < 100000; i++) { 
            int param = ceil(100 * (double) i / (double) 100000); 
            PostMessage(hWnd, nMsgID, param, 0); 
        } 
    }
    return 1; 
} 

.

unit Unit1;

interface

...

var
  DllWnd: HWND = 0;

implementation

var
  WM_MSG: UINT = 0;

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  DllWnd := AllocateHWnd(DllWndProc);
end; 

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  if DllWnd <> 0 then
  begin
    DeallocateHWnd(DllWnd);
    DllWnd := 0;
  end;
end; 

procedure TForm1.DllWndProc(var Message: TMessage); 
begin 
  if (Message.Msg = WM_MSG) and (WM_MSG <> 0) then 
    ProgressBar1.Position := Message.WParam
  else
    Message.Result := DefWindowProc(DllWnd, Message.Msg, Message.WParam, Message.LParam); 
end; 

...

initialization
  WM_MSG := RegisterWindowMessage('WM_MSG');     

end.

.

uses
  Unit1;

function DllFunc(Wnd: HWND): Integer; stdcall; external 'My.dll' name 'MyFunction'; 

procedure TMyFunctionDLL.Execute;   
var   
  i: Integer;   
begin   
  i := DllFunc(DllWnd);   
end;   

Результаты FindWindow могут быть нулевыми или ненулевыми. Значения дескриптора не лежат на числовой прямой. Это просто разные значения, поэтому нет смысла применять к ним операторы неравенства. Иными словами, значения дескрипторов могут казаться отрицательными, поэтому не думайте, что действительные дескрипторы всегда будут больше нуля.

Если значения дескриптора окна не совпадают, неудивительно, что больше ничего не работает. Вы не в том положении, чтобы отлаживать функциональность ваших сообщений, поскольку вы даже не уверены, что отправляете их в нужное окно. Сосредоточьтесь на том, чтобы исправить это в первую очередь.

Используйте FindWindow только в крайнем случае. Он не предлагает средства для обнаружения, когда есть несколько окон, которые соответствуют вашим критериям поиска. Он всегда возвращает ровно один результат. По возможности вообще избегайте поиска. Вместо этого сообщите отправителю, в какое именно окно отправлять сообщения. Вы говорите, что пробовали это и потерпели неудачу, но я призываю вас продолжить поиски в этом направлении. Проблема, с которой вы столкнулись, вероятно, заключалась в несовпадающем соглашении о вызовах. Убедитесь, что и DLL, и хост-приложение используют stdcall.

Как только вы убедитесь, что отправляете сообщения в нужное окно, тогда вы можете беспокоиться о том, почему ваши сообщения не работают с индикатором выполнения правильно. Я вижу как минимум две причины:

1. Пока работает функция DLL, ваша основная программа, вызвавшая DLL, не работает. Он ожидает возврата кода DLL. Это означает, что ваша основная программа не обрабатывает никаких сообщений. DLL отправляет кучу сообщений, но они еще не обрабатываются. Они не будут обработаны, пока программа не вернется к своему циклу обработки сообщений.

2. Размер очереди сообщений Windows по умолчанию составляет 10 000. Вы отправляете в очередь в 10 раз больше сообщений и не обрабатываете их до того, как остановитесь, поэтому, даже если очередь была полностью пуста до того, как вы начали (что маловероятно, поскольку вы, вероятно, запускаете эту функцию с помощью ввода с клавиатуры или мыши) , вы получите только одну десятую сообщения. Когда очередь заполнена, PostMessage просто отбрасывает сообщение. А поскольку значение, которое вы отправляете вместе с сообщением, представляет собой целое число от 0 до 100, довольно бессмысленно отправлять 100 000 из них, когда только 101 из них будет содержать значимую информацию.

Если идентичные вызовы FindWindow возвращают разные окна, у вас должно быть несколько окон с именем Form1. Попробуйте дать этим разным окнам разные имена, чтобы их можно было однозначно идентифицировать.

Неиспользованный вопрос немного неясен. Возможно, вы имеете в виду, что компилятор заметил, что значение, присвоенное tHWND, никогда не используется и поэтому не имеет смысла.

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

Хорошо, кажется, я решил проблему... Я попробовал предложение Реми объявить экспортированную функцию

function MyFunction (fHWND: HWND): Integer; cdecl; external 'My.dll'

с соглашением о вызовах cdecl, как советовал Дэвид. Мое предыдущее объявление функции выглядело так

TMyFunction = function (fHWND: HWND): Integer;

и я полагаю, что это была проблема. Спасибо за вашу помощь!

P.S. Теперь, как я могу закрыть вопрос?