Форум: "Основная";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];

Вниз

DDE Client - кто знает подскажите   Найти похожие ветки 

← →
vic_774N   (2002-02-03 05:14) [0]

собственно проблема такая :
Пытаюсь включить hot-link что бы DDE сервер (некая программа)
при изменении данных автоматически пересылала их клиенту,
но к сожалению ничего не выходит - сервер при StartAdvise
начинает тормозить и данные не пересылаются клиенту
вот кусок программы:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, DdeMan;

type
TForm1 = class(TForm)
DDECC: TDdeClientConv;
DDECI: TDdeClientItem;
RE: TRichEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Edit1: TEdit;
Button5: TButton;
Button6: TButton;
Button7: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure DDECIChange(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
DDECC.DataMode:=ddeAutomatic;
DDECC.SetLink("WinFiol","Main");
DDECC.PokeData("ClientName","WFC");
s:=copy(DDECC.RequestData("Channels"),13,1);
DDECC.CloseLink;

s:="Channel #"+s;
DDECC.DataMode:=ddeAutomatic;
DDECC.SetLink("WinFiol",s);
DDECC.PokeData("ClientName","WFC");
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
DDECC.ExecuteMacro("[Connect]",false);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
DDECC.ExecuteMacro("[Release]",false);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
DDECI.DdeItem:="Output";
if DDECC.StartAdvise then begin
DDECC.ExecuteMacro("[Send(allip;)]",false);
Application.ProcessMessages;
end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
RE.Lines.Append(DDECC.RequestData("Status"));
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
RE.Lines.Append(DDECC.RequestData("Output"));
end;

procedure TForm1.DDECIChange(Sender: TObject);
begin
RE.Lines.Append(DDECI.Text); // первая строка передается и всё !!!
//дальше ничего не происходит
end;

end.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.004 c