조대현.Dreadnought 님이 쓰신 글 :
: DDE연결시 필요한 topic이나 service가 없는거보니 object inspector상에서 설정해버린것 같습니다.
: TDdeClientConv를 폼에 놓으면 property에 DDEService와 DDETopic이
: DDEService는 Excel
: DDETopic은 Sheet1 <- 시트이름
: 설정하시면 연결은 되었습니다.
:
: 폼에 TDdeClientItem 하나 추가하시고 DDEConv를 DdeClientConv1로, DDEItem은 R1C1으로 설정하면
: DDEItem.Text가 엑셀과 값이 연결됩니다.
:
: R1C1은 아마 Row 1(첫번째 줄), Col 1(첫번째 행)를 뜻할것이고
: Pokedata는 값을 쓰는것이고
: request는 값을 가져오는것...;;
:
: 델마당에도 질문을 무지 올리셨더군요.ㅋㅋ
:
: 어차피 dde도 윈도우 관련이니 델파이 말고 vc++이나 vb 사이트 가셔도 큰 도움이 됩니다.
:
: 참고로 엑셀 5.0용이면 2000버젼도 충분이 지원 될겁니다. 한마디로 그냥 쓰시면 되죠.
:
: 심은지 님이 쓰신 글 :
: : unit Unit1;
: :
: : interface
: :
: : uses
: : SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
: : Forms, Dialogs, StdCtrls, Buttons, DdeMan;
: :
: : type
: : TForm1 = class(TForm)
: : DdeClientConv1: TDdeClientConv;
: : BitBtn1: TBitBtn;
: : Edit1: TEdit;
: : Label1: TLabel;
: : Label2: TLabel;
: : Memo1: TMemo;
: : BitBtn2: TBitBtn;
: : procedure BitBtn1Click(Sender: TObject);
: : procedure BitBtn2Click(Sender: TObject);
: : private
: : { Private declarations }
: : public
: : { Public declarations }
: : end;
: :
: : var
: : Form1: TForm1;
: :
: : implementation
: :
: : {$R *.DFM}
: :
: : procedure TForm1.BitBtn1Click(Sender: TObject);
: : var
: : TheData: PChar;
: : Data: array[0..79] of Char;
: :
: : begin
: : {Microsoft Excel 5.0a}
: : StrPCopy(Data, 'Chris');
: : DDEClientConv1.PokeData('R1C1', Data);
: :
: : TheData := DDEClientConv1.RequestData('R1C2');
: :
: : Edit1.Text := StrPas(TheData);
: : end;
: :
: : procedure TForm1.BitBtn2Click(Sender: TObject);
: : begin
: : Close;
: : end;
: :
: : end.
: :
: : 델파이 수퍼사이트에서 받은 건데여~ Excel5.0a와 연동하는 프로그램이라는데
: : 이해가 잘 안되네여~ 엑셀과 도대체 어디서 연결이 되는 건지..
: : 그리고 Excel2000과 연동시키려면 어찌 해야하나요??
: : 아시는 분 도와주셔여~~
: :
|