Q&A

  • 이 소스좀 봐주셔여~~ DDE관련..
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과 연동시키려면 어찌 해야하나요??
아시는 분 도와주셔여~~
                                                          
0  COMMENTS