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 發送簡訊給我 |
發表時間：2005-10-30 19:33:45
IP:220.132.xxx.xxx 未訂閱
系統時間：2024-06-29 5:54:19
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |