'WM_COPYDATA'에 해당되는 글 1건

  1. 2003.04.15 델파이에서 WM_COPYDATA 이용한 데이타 전달

델파이에서 WM_COPYDATA 이용한 데이타 전달

Computer/Delphi 2003. 4. 15. 23:22
1. 설명
WM_COPYDATA메시지를 이용해 다른 프로그램에 데이터를 전달한다.
단순 스트링 전달과 레코드 전달 예제로 구분했음

2. 소스

--단순 String 전달--

1. lParam에 사용할 데이터 레코드 타입
pCopyDataStruct = ^TCopyDataStruct;
 TCopyDataStruct = record
   dwData: DWORD;
   cbData: DWORD;
   lpData: Pointer;
 end;


2. lParam으로 전달된 데이터 읽기
strReceive := pChar(pCopyDataStruct(lParam)^.lpData);

3. 데이터 보내기
procedure TCommWndThread.SendData(AData: string);
var
  CopyData: TCopyDataStruct;
  nLen: integer;
begin
  nLen := Length(AData) + 1;
  AData := AData + #0;

  with CopyData do
  begin
    cbData := nLen;
    lpData := pChar(AData);
  end;

  SendMessage(FWnd, WM_COPYDATA, 0, LongInt(@CopyData));
end;

--레코드 전달--

1. 전달할 레코드 타입
  pMemoDataStruct = ^TMemoDataStruct;
 TMemoDataStruct = packed record
   FSenderID: String[50];
    FIP: String[20];
   FPort: String[10];
   MemoContent : array[1..1024] of char;
 end;

2. 데이터 보내기
var
 CopyData: TCopyDataStruct;
 nLen: integer;
 memoinfo : TMemoDataStruct;
begin
 FillChar(memoinfo, sizeof(TMemoDataStruct), #0);
 memoinfo.FSenderID := FSenderID;
 memoinfo.FIP := FIP;
 memoinfo.FPort := FPort;

 Move(FMemo^,memoinfo.MemoContent,FMemoSize);

 nLen := SizeOf(memoinfo);

 with CopyData do
 begin
   cbData := nLen;
   lpData := @memoinfo;
 end;
 SendMessage(wnd, WM_COPYDATA, LongInt(msgType), @CopyData);
end;

3. 데이터 받기
var
  memoinfo : TMemoDataStruct;
begin
   memoinfo :=  pMemoDataStruct( PCopyDataStruct(msg.LParam)^.lpData)^;
end;

'Computer > Delphi' 카테고리의 다른 글

TColor 값을 HTML color 로 변경하는 코드  (0) 2003.05.14
HTML에 문자 추가하기  (0) 2003.05.09
그래픽 카드가 RGB or BGR 지원 하는지 체크하기  (0) 2003.04.28
C의 Union과 비슷하게 Record로 가변 타입 만들기  (0) 2003.04.24
메모리 복사하기  (0) 2003.04.23
델파이에서 사용자 정의 메시지 및 프로시져 추가  (0) 2003.04.15
프로그램 중복 실행 방지(한번만 실행되게.)  (0) 2003.04.15
델파이로 프로세스 종료하기  (0) 2003.04.14
델파이에서 일반 폼 출력후에 메인폼 출력하기  (0) 2003.04.14
Activex 사용자 Event 추가  (1) 2003.04.08
Posted by Gu Youn
,

티스토리툴바