| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Передача сообщения [D6, WinXP]

webpauk ©   (2006-05-24 12:32:00) 

const
 WM_MYUSERINFO = WM_USER + 126;
type
 TmyRec = record
    var1: Integer;
    var2: String;
    var3: Boolean
end;
var
 fMyRec: TmyRec ;

procedure DoSomething;
begin
  SendMessage(fHWND, WM_MYUSERINFO, 0, LParam(fMyRec));
end;

procedure WMMYUSERINFO(var msg: TMessage); MESSAGE WM_MYUSERINFO;

procedure TForm7.WMMYUSERINFO(var msg: TMessage);
var
 fTuuu: TmyRec ;
begin
 fTuuu:=TmyRec (msg.LParam);
end;

Подскажите правильно ли такая конструкция.
У меня fTuuu - нечитаема.
как правильно передать запись через sendmessage?

---

webpauk   (2006-05-24 12:54:00) [1]

ShowMessage(fTuu[0].Caption);~ShowMessage(fTuu.var2);
(в рамках вышеизложенного так правильно)

---

webpauk   (2006-05-24 12:51:00) [2]

вроде нарыл:
SendMessage(fHWND, WM_COPYDATA, 0, Integer(@fMyRec));

procedure TForm7.WMCopyData(var Msg: TWMCopyData);
var
 fTuu:TUsersFromGroup;
begin
 fTuu:=TUsersFromGroup(msg.CopyDataStruct.dwData);
 ShowMessage(fTuu[0].Caption);
end;

---

webpauk   (2006-05-24 12:43:00) [3]

> Сергей М. ©   (24.05.06 12:41) [1]

а как передать структуру?

---

Сергей М.   (2006-05-24 12:41:00) [4]

> У меня fTuuu - нечитаема


Конструкция LParam(fMyRec) даже скомпилирована быть не может, какая уж тут "читаемость" ?

О "читаемости" есть смысл говорить лишь при условии успешной компиляции кода и при условии уточнения, внутрипроцессный или межпроцессный обмен сообщениями предполагается..

При межпроцессном это не правильно.

---

Наверх