Как принять сообщение (SendMessage)

[Crazyman]

как можно принять сообщение, отправленное с помощью SendMessage.
Точнее мне надо передать Структуру типа _SystemTime и еще int64 все это по отдельности.
Пример SendMessage(hwnd,1000,0,integer(@st )); как мне это принят и обработать. А также как мне принять int64 ?

[B_N]

Во-первых, не советую использовать "1000" - сообщения меньше WM_USER (1024) зарезервированы либо для уже существующих сообщений, либо "для будущего использования". Во-вторых принимается это всё в оконной функции окна, если это дельфи, то это, если не ошибаюсь, TForm.WndProc, в дельфи же можно определить для класса формы процедуру-обработчик message для конкретного сообщения, смотрите документацию по "message". Передача данных любых размеров не представляет проблемы, например, в форме указателя, как Вы и делаете, но здесь требуются некоторые уточнения, как то: принадлежит ли окно тому же процессу (а в ряде случаев и потоку), что и вызывающий SendMessage и хранящий данные поток и еще ряд моментов.

[rpy3uH]

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

как можно принять сообщение, отправленное с помощью SendMessage.

объявлении функции обработчика конкретных сообщений

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure proc1(var Msg:TMessage);message WM_USER;
  end;

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

Точнее мне надо передать Структуру типа _SystemTime и еще int64 все это по отдельности.

с int64 проблем не будет так как старшую часть можно поместить в LParam, а младшую в WParam. А в вот с _SystemTime не всё так просто так как она имеет размер 16 байт, придётся использовать WM_COPYDATA.

[Crazyman]

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

объявлении функции обработчика конкретных сообщений

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure proc1(var Msg:TMessage);message WM_USER;
  end;

с int64 проблем не будет так как старшую часть можно поместить в LParam, а младшую в WParam. А в вот с _SystemTime не всё так просто так как она имеет размер 16 байт, придётся использовать WM_COPYDATA.

Мне надо саму процедуру принятия !!!! И. Подскажите, как мне отправить
int64 если я использую уже SendMessage(hwnd,$1100,$my number, и остается тока это пустое).
И все-таки как мне обработать прием, если я использую DlgProc ,а не TForm !!

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

Во-первых, не советую использовать "1000" - сообщения меньше WM_USER (1024) зарезервированы либо для уже существующих сообщений, либо "для будущего использования". Во-вторых принимается это всё в оконной функции окна, если это дельфи, то это, если не ошибаюсь, TForm.WndProc, в дельфи же можно определить для класса формы процедуру-обработчик message для конкретного сообщения, смотрите документацию по "message". Передача данных любых размеров не представляет проблемы, например, в форме указателя, как Вы и делаете, но здесь требуются некоторые уточнения, как то: принадлежит ли окно тому же процессу (а в ряде случаев и потоку), что и вызывающий SendMessage и хранящий данные поток и еще ряд моментов.

Send Mesage происходит в библиотеки этой программы. И все-таки как мне принять Int64 . Можно показать пример???

[B_N]

2 Crazyman

За Вас rpy3uH уже даже функцию объявил, Вам ее определить осталось. Поскольку не уверен, есть ли в Дельфи что-нибудь вроде LODWORD/HIDWORD, напишу так:

procedure proc1(var Msg:TMessage);
// Получить
var ReceivedLong64 : int64;
begin
	ReceivedLong64 := Msg.lParam;
	ReceivedLong64 := ReceivedLong64  shl 32;
	ReceivedLong64 := ReceivedLong64 + Msg.wParam;
end;

А если Вы в DlgProc сообщения ловите, то стоило привести кусочек, воизбежание разночтений.

function DlgProc(.....);
var ReceivedLong64 : int64;
begin
	case uMsg of
		WM_INITDIALOG: ............;
		.....................................
		WM_MYMESSAGE: begin
			ReceivedLong64 := lParam;
			ReceivedLong64 := ReceivedLong64  shl 32;
			ReceivedLong64 := ReceivedLong64 + wParam;	
		end;
	end;
end;

// Отправить
var MyInt64 : int64;
.............
SendMessage(hWnd, WM_MYMESSAGE, cardinal(MyInt64), cardinal(MyInt64 shr 32));

Можете через указатель отправить и не надо с потолка придумывать номера для сообщений, в Windows есть вполне четкая система: WM_USER + 1, WM_USER + 2 и т.д.
Из какой библиотеки и из какой программы что вызывается - ни о чем не говорит. Если отправляется/получается в разных процессах, то важно помнить, что у каждого своя независимая память и без принятия дополнительных мер процесс А не сможет прочитать что-нибудь по указателю из процесса Б в процессе Б.