dde的DdeClientItem1一直不會改變 |
答題得分者是:kgt
|
ggg
一般會員 發表:14 回覆:13 積分:5 註冊:2005-06-26 發送簡訊給我 |
我照著書上的步驟做
可是DdeClientItem1一直沒有東西
不知是哪裡錯了
請各位前輩指教
以下是我做的:
DELPHI 7
Server端:
implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);
begin
DdeServerItem1.Text:=Edit1.Text;
DdeServerItem1.CopyToClipboard;
end;
end. Client端:
implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin
Edit1.Text:=DdeClientItem1.Text;
end;
end. 連結用Paste Link鈕自動填入DdeService和DdeTopic參數
結果Client端的DdeClientItem1一直沒有反應
不知道是哪裡弄錯了
PS.我是參考DELPHI 3的書
|
kgt
高階會員 發表:17 回覆:308 積分:165 註冊:2002-03-13 發送簡訊給我 |
|
kgt
高階會員 發表:17 回覆:308 積分:165 註冊:2002-03-13 發送簡訊給我 |
我花了幾個小時學習並實作測試了一下,應可執行(D6)
------------------------------------------------------------------
server 端
1存檔檔名為--> sProject1.exe
2Form上重點放DdeServerConv1及DdeServerItem1二個元件
3元件DdeServerItem1-->ServerConv (DdeServerConv1)
4元件Button1Click如紅色程式碼標示
5Server端的exe需先執行起來
-------------------------------------
unit sUnit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DdeMan; type TForm1 = class(TForm) Label2: TLabel; Edit1: TEdit; Button1: TButton; DdeServerConv1: TDdeServerConv; DdeServerItem1: TDdeServerItem; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin form1.DdeServerItem1.Text := form1.Edit1.Text; form1.DdeServerItem1.CopyToClipboard; end; end.===================================================================== client 端 1存檔檔名為--> cProject1.exe 2Form上重點放DdeClientConv1及DdeClientItem1二個元件 3元件DdeClientConv1-->DdeService 選...--> 按Paste Link--> 按OK 4元件Button1Click如紅色程式碼標示 5Client端的exe即可執行起來 6即可正常測試 ------------------------------------- unit cUnit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DdeMan; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; DdeClientConv1: TDdeClientConv; DdeClientItem1: TDdeClientItem; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Form1.DdeClientItem1.DdeConv := DdeClientConv1; Form1.DdeClientItem1.DdeItem := 'DdeServerItem1'; Form1.Edit1.Text := Form1.DdeClientItem1.Text; end; end. |
ggg
一般會員 發表:14 回覆:13 積分:5 註冊:2005-06-26 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |