Кто поможет собрать программу из кусков кода

[Kvinto]

Всем привет.

Помощь нужна… Вопрос такой – есть программка, RADIO CHECKER PRO называется. Вот выдержка из её хелпа:

Внешнее управление программой

Программа имеет интерфейс для общения с другими программами с использованием функций
Windows API.

Для работы с RADIO CHECKER PRO нужно запустить его и найти его окно в системе.

Для этого определяем метку окна программы (Window Handle) с помощью функции.

function GetCheckerHandle: Integer;
begin
Result := FindWindow('TRadioChecker', nil);
end;

// Запомним Handle

CheckerHandle := GetCheckerHandle;

Далее необходимо отправить название класса окна Вашей программы, для того, чтобы Checker
имел возможность обратного общения с программой.

function SendWindowClassName(ClassName: string): Integer;
var
Struct: COPYDATASTRUCT;
pch: array[0..255] of Char;
begin
Struct.dwData := 1000;
Struct.lpData := StrPCopy(pch, ClassName);
Struct.cbData := StrLen(Struct.lpData) + 1;
SendMessage(CheckerHandle, WM_COPYDATA, 0, LPARAM(@Struct));
end;

Однако, можно также отдать Handle вашего окна, что исключит путаницу в случае нахождения в
системе двух окон с одинаковыми классами.

SendMessage(CheckerHandle, WM_USER, 100, Handle);

Для основного окна программы

Handle :=  Application.MainForm.Handle

Для посылки команды для RADIO Checker PRO используется функция

SendMessage(CheckerHandle, WM_USER, Cmd, Param);

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

При нахождение одного из образцов RADIO Checker Pro сообщит об этом Вашей программе с
кодом.

wParam = 2000, 
lParam = Номер образца в базе -1
procedure CheckerMessage (var Msg: TMessage); message WM_USER;
...
procedure TCheckerHandler.CheckerMessage (var Msg: TMessage);
begin
  case a.wParam of
   2000: SampleIndex := Msg.lParam + 1;
  end;
end;

Вот это то мне и надо – отловить, когда программа пошлёт это самое сообщение. Может ктонить поможет собрать эти обрывки кода до-кучи, в более-менее осмысленную форму?

Спасибо

[raxp]

help данной программы сейчас передо мной открыт, все внятно и четко расписано. Где вы обрывки кода видите?

procedure CheckerMessage (var Msg: TMessage); message WM_USER; // кидаете в секцию private

procedure Tform1.CheckerMessage (var Msg: TMessage); // кидаете в тело unit-а вашего
begin
 case Msg.wParam of
  2000: if msg.lparam = ... then ...; // ваши действия
 end
end;
end;

и отлавливаете (не забываем про остальные константы).

[Kvinto]

Хм... Тока не пинайте сильно!

Первую часть - в приват...

В тело

procedure Tform1.CheckerMessage (var Msg: TMessage);
begin
  case Msg.wParam of
  2000: if msg.lparam = 1 then MessageBox(0,0,0,0);
  end;
end;

Запускаю чекер, эмулирую нахождение образца - ничего...

[raxp]

1) а кто будет "информировать" RADIO CHECKER PRO ?

Далее необходимо отправить название класса окна Вашей программы, для того, чтобы Checker имел возможность обратного общения с программой

вы это сделали (каким образом вы думаете он сообщения будет пересылать вам)?
2) и пробуйте сначала без msg.lparam

2000: MessageBox(0, ' ', ' ', 0);

[Kvinto]

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

//MessageBox(0,0,0,0); - что за ерунда?

Дык вроде рабочий... Это взято из другова источника, просто для примера и проверялось в компиляторе... Delphi7...

type
  TForm1 = class(TForm)
  ...    
    procedure KeyDownW(var Msg: TWMKeyDown); message WM_KEYDOWN;
    procedure KeyUpW(var msg: TWMKeyUp); message WM_KEYUP;
  ...
end;

procedure TForm2.KeyDownW(var Msg: TWMKeyDown);
begin
  case Msg.CharCode of
  13: MessageBox(0,0,0,0);
  end;
end;

procedure TForm2.KeyUpW(var msg: TWMKeyUp);
begin
  case Msg.CharCode of
  13: MessageBox(0,0,0,0);
  end;
end;

[Kvinto]

а кто будет "информировать" RADIO CHECKER PRO ?

Да понял я, понял, что не проинформировал... И код в хелпе вроде есть - а что-куда -- с этим сложности. Подскажите, плз...

И, если не трудно - по-русски... При всём уважении - украинским владею не в полном объёме...

[raxp]

если проект по-умолчанию, то его можно найти так:

h:= FindWindow('TForm1',nil);

отсюда, информировать так:

procedure SendWindowClassName(ClassName: string);
var
Struct: COPYDATASTRUCT;
pch: array[0..255] of Char;
begin
 Struct.dwData := 1000;
 Struct.lpData := StrPCopy(pch, ClassName);
 Struct.cbData := StrLen(Struct.lpData) + 1;
 SendMessage(FindWindow('TRadioChecker', nil), WM_COPYDATA, 0, LPARAM(@Struct));
end;

//передаем-
SendWindowClassName('TForm1');

зы: не забываем про кнопку "правка"

[Kvinto]

ммм...

Видите-ли, проблема в том, что я не настолько Делфи владею... Переделать готовый пример под свои нужды - это мне по силам... А с нуля написать - эт для меня сложновато...

Ну вот к примеру, тот же самый хелп...

//Для этого определяем метку окна программы (Window Handle) с помощью функции.

function GetCheckerHandle: Integer;
begin
  Result := FindWindow('TRadioChecker', nil);
end;

Это понятно... Далее:

// Запомним Handle
CheckerHandle := GetCheckerHandle;

А вот это куда? Сразу после? Ругается, пишет [Error] Unit1.pas(57): Declaration expected but identifier 'CheckerHandle' found...

Вот такой вот я ниразунезнающий...

[raxp]

пост #7

SendMessage(FindWindow('TRadioChecker', nil), WM_COPYDATA, 0, LPARAM(@Struct));

ваш вопрос "А вот это куда?" уже решен.

[Kvinto]

Вобщем, наваял я вот что:

type
  TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);

  private
    procedure CheckerMessage (var Msg: TMessage); message WM_USER;
  public
 end;

var
  Form1: TForm1;
  CheckerHandle:integer;

  implementation

{$R *.dfm}

function GetCheckerHandle: Integer;
begin
  Result := FindWindow('TRadioChecker', nil);
end;

function SendWindowClassName(ClassName: string): Integer;
var
Struct: COPYDATASTRUCT;
pch: array[0..255] of Char;
begin
Struct.dwData := 1000;
Struct.lpData := StrPCopy(pch, ClassName);
Struct.cbData := StrLen(Struct.lpData) + 1;
SendMessage(CheckerHandle, WM_COPYDATA, 0, LPARAM(@Struct));
end;

procedure Tform1.CheckerMessage (var Msg: TMessage);
begin
  case Msg.wParam of
  2000: MessageBox(0,0,0,0);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 CheckerHandle:= GetCheckerHandle;
 SendMessage(CheckerHandle, WM_USER, 100, Handle);
end;

end.

Это работает... Но только в случае, если RADIO CHECKER PRO запущен раньше, чем эта програмка...

Как обойти эту засаду? Ибо по замыслу эта самая програмка должна ЗАКРЫВАТЬ RADIO CHECKER PRO... До следующего его запуска... Ну не в таймер же засовывать строку

SendMessage(CheckerHandle, WM_USER, 100, Handle);

А как?