Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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.



vic_774N   (2002-02-05 11:07) [1]

Ну хоь кто может подсказать как правильно занести параметры
в DdeClientTransaction (API)



IronHawk   (2002-02-05 11:18) [2]

Тут что-то нечисто!
Я непомню писал когдато давно (года 2 будет)
Исходников к сожалению сейчас нету !
Ежели найду вышлю !



vic_774N   (2002-02-07 00:04) [3]

ok. IronHawk. Присылай




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




Наверх





Память: 0.72 MB
Время: 0.035 c
1-66552           XRun                  2002-02-04 16:37  2002.02.21  
Работа с файлами


14-66672          Pat                   2002-01-03 05:01  2002.02.21  
Опять вирус... :-((


1-66598           IronHawk              2002-02-05 16:02  2002.02.21  
Картинка в бэкграунде формы fsMDIForm !


1-66517           irq                   2002-02-06 18:50  2002.02.21  
Еще раз про календарь


3-66450           yaJohn                2002-01-28 14:26  2002.02.21  
ADO, voprosiki prostie.