Форум: "Основная";
Поиск по всему сайту: 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.012 c
1-66537           Василий Свиридов      2002-02-03 00:08  2002.02.21  
Не знаю как сделать type xxx=record


1-66535           Brand                 2002-02-04 22:57  2002.02.21  
DLL, не завершается основная программа.


6-66636           Крис                  2001-12-04 16:39  2002.02.21  
Где скачать INDY???!!!


1-66512           Анонимщик             2002-02-06 11:08  2002.02.21  
Помогите с печатью метафайла


1-66539           SireX                 2002-02-04 16:17  2002.02.21  
Проблема со скачиванием файлов