Q&A
- 최용일님 도와 주세요.
DLL에서
procedure SendData;
var
Hwnd: THandle;
pData: Pointer;
begin
pData := ....;
Hwnd := FindWindow('TForm1', 'Form1');
if Hwnd <> 0 then
SendMessage(Hwnd, WM_USER_SENDDATA, 0, Integer(pData))
else
ShowMessage('Receiver window not found.');
end;
어플리케이션내에서
type
TForm1 = class(TForm)
...
public
procedure WMUserSendData(var Msg: TMessage); message WM_USER_SENDDATA;
end;
procedure TForm1.WMUserSendData(var Msg: TMessage);
var
MyData: Pointer;
begin
MyData := @Msg.LParam;
...
end;
위의 소스는 용일님 전에 Dll에서 애플리케이션으로 데이타를 넘주는 것이였습니다.
그런데 제가 해보니 WM_USER_SENDDATA이 선언이 되지 않았는다 메세지 띄네요. 그리고
pData := ....;----> 여기서 정확히 어떤값이 들어가야합니까?
Hwnd := FindWindow('TForm1', 'Form1');--->TForm1는 애플리케이션의 클래스를 의미합니까?
애플리케이션에서 msg 변수는 어디서 값을 받나요?
또한 이 소스로 두 Dll간의 데이타를 주고 받을 수 있을까?
procedure SendData;
var
Hwnd: THandle;
pData: Pointer;
begin
pData := ....;
Hwnd := FindWindow('TForm1', 'Form1');
if Hwnd <> 0 then
SendMessage(Hwnd, WM_USER_SENDDATA, 0, Integer(pData))
else
ShowMessage('Receiver window not found.');
end;
어플리케이션내에서
type
TForm1 = class(TForm)
...
public
procedure WMUserSendData(var Msg: TMessage); message WM_USER_SENDDATA;
end;
procedure TForm1.WMUserSendData(var Msg: TMessage);
var
MyData: Pointer;
begin
MyData := @Msg.LParam;
...
end;
위의 소스는 용일님 전에 Dll에서 애플리케이션으로 데이타를 넘주는 것이였습니다.
그런데 제가 해보니 WM_USER_SENDDATA이 선언이 되지 않았는다 메세지 띄네요. 그리고
pData := ....;----> 여기서 정확히 어떤값이 들어가야합니까?
Hwnd := FindWindow('TForm1', 'Form1');--->TForm1는 애플리케이션의 클래스를 의미합니까?
애플리케이션에서 msg 변수는 어디서 값을 받나요?
또한 이 소스로 두 Dll간의 데이타를 주고 받을 수 있을까?
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 궁금이
- •
- 2000.07.29 20:46
- 5 COMMENTS
- /
- 0 LIKES
-
이경문•2000.07.31 17:55 -
궁금이•2000.07.31 18:58
-
이경문•2000.08.01 00:49
-
궁금이•2000.08.01 01:30
-
이경문•2000.08.02 21:33
-
- 조헌철
- •
- 2000.07.29 20:29
- 4 COMMENTS
- /
- 0 LIKES
-
헌철님 형!•2000.07.29 21:28조헌철 wrote: > 안녕들 하세요 > 제 힘으로 mp3를 만들어 보려고 합니다. > 그런데 뭐 부터 시작해야할...
-
조헌철•2000.07.29 21:51헌철님 형! wrote: > 조헌철 wrote: > > 안녕들 하세요 > > 제 힘으로 mp3를 만들어 보려고 합니다. > ...
-
헌철님 형! 추니가!•2000.07.29 22:00조헌철 wrote: > 헌철님 형! wrote: > > 조헌철 wrote: > > > 안녕들 하세요 > > > 제 힘으로 mp3를 만...
-
조헌철•2000.07.29 22:06헌철님 형! 추니가! wrote: > 조헌철 wrote: > > 헌철님 형! wrote: > > > 조헌철 wrote: > > > > 안녕...
-
- 김태영
- •
- 2000.07.29 19:40
- 1 COMMENTS
- /
- 0 LIKES
-
yoonty•2000.07.29 22:30김태영 wrote: > 고수님들 dll간의 데이터를 주고 받는 방법 좀 가르쳐주세요!! > 개념이 안써요. 제발 ...
-
- 장승훈
- •
- 2000.07.29 13:59
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•2000.07.29 19:24장승훈 wrote: > 안녕하세요.. > 프로그램을 짜다가 막히는게 있어서 질문을 올립니다.. > PageControl...
-
- 사물놀이
- •
- 2000.07.29 09:51
- 2 COMMENTS
- /
- 0 LIKES
-
Black}{ole•2000.07.29 11:01사물놀이 wrote: > Edit Box는 좌측정렬을 합니다. > > 그러나 숫자를 표시하고자 하면 우측 정렬이 필...
-
최은석•2000.07.29 19:07Black}{ole wrote: > 사물놀이 wrote: > > Edit Box는 좌측정렬을 합니다. > > > > 그러나 숫자를 표...
-
- 아리엘
- •
- 2000.07.29 09:16
- 1 COMMENTS
- /
- 0 LIKES
-
Black}{ole•2000.07.29 10:59아리엘 wrote: > 안녕하세요.. > > Flat컴포넌트중에서 FlatListbox에서 선택된곳의 아이템 인덱스를 ...
-
- 밥벌레
- 2000.07.29 05:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 밥벌레
- 2000.07.29 05:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 김태영
- •
- 2000.07.29 05:46
- 1 COMMENTS
- /
- 0 LIKES
DLL에서 procedure SendData; var Hwnd: THandle; pData: Pointer; begin pData := ....; Hwnd := FindWindow('TForm1', 'Form1'); if Hwnd 0 then SendMessage(Hwnd, WM_USER_SENDDATA, 0, Integer(pData)) else ShowMessage('Receiver w...-
최용일•2000.07.29 21:04안녕하세요. 최용일입니다. const WM_USER_SENDDATA = WM_USER + $1000; 위와같은식으로 상수로 ...
-
- hanminet
- •
- 2000.07.29 04:53
- 2 COMMENTS
- /
- 0 LIKES
-
허춘•2000.07.29 09:51hanminet wrote: > 라벨처럼 인쇄를 하려고 하는데... > 한 쪽부터 다 인쇄한후 우측을 채우더군요.... ...
-
hanminet•2000.07.31 20:04라벨처럼 인쇄한다는 것이 detail band하는 준다는 것이지요.. 화면을 보면 이렇게 됩니다.... ------...
-
- 윤종필
- 2000.07.29 04:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 혀기
- •
- 2000.07.29 04:32
- 4 COMMENTS
- /
- 0 LIKES
-
임형호•2000.07.30 08:34혀기 wrote: > if key = #13 then 구문과 > if key = vk_enter 구문 둘다 테스트를 해보았는데 > enter ...
-
타락천사•2000.07.29 18:57안녕하세여.. 타락임다.. 이런 문제는 질문보다 좀 생각해 보는게 필요할거 가튼데여...ㅠㅠ if Ke...
-
김희중•2000.07.29 18:52Key Down Event에서는 if Key = vk_Return then Key Press Event에서는 if Key = #13 then 으로 하셔...
-
허춘•2000.07.29 08:58혀기 wrote: > if key = #13 then 구문과 > if key = vk_enter 구문 둘다 테스트를 해보았는데 ...
-
- 이건영
- 2000.07.29 03:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 한하눌
- 2000.07.29 03:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- 2000.07.29 03:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- 2000.07.29 02:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 성재영
- 2000.07.29 02:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 혀기
- •
- 2000.07.29 02:33
- 2 COMMENTS
- /
- 0 LIKES
-
장지용•2000.08.01 02:06혀기 wrote: > key = #13 > key = #0 > 위와 같이 하니 에러가 나더군요.(window2000,델5) > key = #13...
-
celll•2000.07.29 20:29혀기 wrote: > key = #13 > key = #0 > 위와 같이 하니 에러가 나더군요.(window2000,델5) > key = #13...
-
-
- 오광배
- 2000.07.29 02:27
- 0 COMMENTS
- /
- 0 LIKES
const
WM_USER_SENDDATA = WM_USER + $1000;
위와같은식으로 상수로 선언해서 사용하세요...
pData는 건네줄 자료의 주소값입니다.
이것은 원하는 대로 정의해서 쓰세요...
^^ 항상 즐코하세요.
김태영 wrote:
> DLL에서
> procedure SendData;
> var
> Hwnd: THandle;
> pData: Pointer;
> begin
> pData := ....;
> Hwnd := FindWindow('TForm1', 'Form1');
> if Hwnd <> 0 then
> SendMessage(Hwnd, WM_USER_SENDDATA, 0, Integer(pData))
> else
> ShowMessage('Receiver window not found.');
> end;
>
> 어플리케이션내에서
> type
> TForm1 = class(TForm)
> ...
> public
> procedure WMUserSendData(var Msg: TMessage); message WM_USER_SENDDATA;
> end;
>
> procedure TForm1.WMUserSendData(var Msg: TMessage);
> var
> MyData: Pointer;
> begin
> MyData := @Msg.LParam;
> ...
> end;
>
> 위의 소스는 용일님 전에 Dll에서 애플리케이션으로 데이타를 넘주는 것이였습니다.
> 그런데 제가 해보니 WM_USER_SENDDATA이 선언이 되지 않았는다 메세지 띄네요. 그리고
>
> pData := ....;----> 여기서 정확히 어떤값이 들어가야합니까?
> Hwnd := FindWindow('TForm1', 'Form1');--->TForm1는 애플리케이션의 클래스를 의미합니까?
> 애플리케이션에서 msg 변수는 어디서 값을 받나요?
>
> 또한 이 소스로 두 Dll간의 데이타를 주고 받을 수 있을까?