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

[Johnson]

Здравствуйте, уважаемые!
Подскажите, как передать сложную структуру пользовательским сообщенем через SendMessage?

Пример структуры:

  TMyRec = packed record
    ParamA:integer;
    ParamB:string;
  end;

Отсылаю так:

var
  a:integer;
  b:string;
  M:TMyRec;
begin
  a:=1234;
  b:='safsdg';
  M.ParamA:=a;
  M.ParamB:=b;
  SendMessage(MainFormA.Handle,WM_MyMsg,1,Integer(@M));
end;

А вот получить никак не получается... Привести типы никак не могу, ругается на Invalid typecast...
Подскажите как правильно? WM_COPYDATA не интересует.
Заранее благодарен!

[Johnson]

извиняюсь, ответ нашел сам)

Структура:

  TMyRec = packed record
    ParamA:integer;
    ParamB:string;
  end;
  PMyRec = ^TMyRec;

Посылка:

procedure TMainFormA.Button2Click(Sender: TObject);
var
  a:integer;
  b:string;
  M:TMyRec;
begin
  a:=1234;
  b:='safsdg';
  M.ParamA:=a;
  M.ParamB:=b;
  SendMessage(MainFormA.Handle,WM_MyMsg,1,Integer(@M));
end;

Прием:

procedure TMainFormA.MyMsgProc(var Mes: TMessage);   // Message WM_MyMsg
var
  x:integer;
begin
  X:= PMyRec( Mes.LParam )^.ParamA;
  Memo1.Lines.Add('пришла мессага '+BoolToStr( bool(Mes.WParam) , true)+' '+IntToStr(X) );
end;

Тему можно закрыть...

[GunSmoker]

Кому посылаем-то? Это будет работать только в рамках одного процесса.

[Johnson]

Это я экспериментировал с мессагами. В дальнейшем мессаги будут слаться из библиотеки, внедренной в другой процесс.
Навроде того:

SendMessage(FindWindow('TDLLInjectForm',nil),WM_PInfoAll,Integer(@InfoAlMes),Integer(@M));

[GunSmoker]

Тогда это не будет работать. SizeOf(String) = 4. Всегда. Вне зависимости от содержимого (данных) строки.

Как несложно сообразить, передав эти 4 байта в другой процесс вы не передадите все прочие Length(String) * SizeOf(Char) байт данных.

Домашнее задание: объяснить, почему это работает в одном процессе.

Мат-часть:
http://www.transl-gunsmoker.ru/2009/...tml#references
http://www.transl-gunsmoker.ru/2009/09/pchars.html
http://wm-help.net/books-online/book/59464/59464-6.html
http://wm-help.net/books-online/book.../59464-16.html

[GunSmoker]

P.S. Решение: нужно сериализовать структуру в поток. Проще всего это сделать используя TPersistent вместо записей.

[Johnson]

Да уже разобрался... Придётся всётаки использовать WM_COPYDATA

[Johnson]

Чтот никак не получается с WM_COPYDATA

отправляю примерно так:

procedure Tmain_form.Button1Click(Sender: TObject);
var
wnd: HWND;
cd: tCopyDataStruct;
M: tR;
begin
   wnd := findWindow(nil, 'EXELORED');
   r.s := edit1.Text;
   cd.dwData := 0;
   cd.cbData := sizeOf(r);
   cd.lpData := @r;
   sendMessage(wnd, WM_COPYDATA, application.Handle, longint(@cd));
end;

получать пытась:

procedure Tmain_form.cpd(var m: TWMCopyData);
var
pR: ^tR;
begin
   pR := m.CopyDataStruct.lpData;
   label1.Caption:=pR^.s;
   edit1.Text := pR^.s;
end;

но на получении строки выкидывает с Access Volation
что делаю не так?

[igh0st]

А я бы предложил XML

[Johnson]

Эмм а причем тут XML??

прошлый раз писал по памяти и по примерам... щас вот код под рукой...
Итак. Структура записи:

  TL2InfoMsg = packed record
    CurrentProcessId:Cardinal;
    CurrentThreadId:Cardinal;
    S:string;
  end;

Отсылка:

  M.CurrentProcessId:=GetCurrentProcessId;
  M.CurrentThreadId:=GetCurrentThreadId;
  M.S:='Testing';

  copyDataStruct.dwData := 1;
  copyDataStruct.cbData := SizeOf(M) ;
  copyDataStruct.lpData := @M ;

  gWnd:=FindWindow('TDLLInjectForm',nil);
  if gWnd<>0 then SendMessage(gWnd, WM_COPYDATA, 1234, Longint(@copyDataStruct)) ;

Отсылает без проблем.

Прием:

procedure TDLLInjectForm.WMCopyData(var Msg: TWMCopyData);
var
  M:^TL2InfoMsg;
  S:String;
begin
  Memo1.Lines.Add('Пришла мессага WM_COPYDATA');
  M := Msg.CopyDataStruct.lpData ;
  S:=M^.S;
end;

При S:=M^.S; выкидывает с AV...
В чем я не прав? Никак не могу сообразить...

При бряке перед этой строкой вижу, что CurrentProcessId показывает правильно (как в диспетчере задач). ИД потока тоже правильный... А вот S пишет Inaccesable value

ЗЫ: если строку объявить ShortString (S:string[255] то передается нормально...