DDE .

[e404]

1. chce utworzyc ( dynamicznie ) kilkanascie serwerow DDE w aplikacji .

2. robie cos takiego ( na razie jeden serwer )

var serwer:TDdeServerConv;
Close:TDdeServerItem;

begin
serwer:=TDdeServerConv.Create(self);
serwer.Name:='cos';
close:=TDdeServerItem.Create(self);
close.Name:='ktos';
close.Text:='123';
Close.ServerConv := serwer;
Lista.Add(serwer);
Lista.Add(close);
end;

tylko to jakos nie dziala -- jezeli z innej aplikacji wywoluje ten serwer to
zero odpowiedzi . co trzeba jeszcze zrobic aby prawidlowo serwer zainstalowal
sie w sytemie ???

--
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl

[psg]

"e404" <e4...@poczta.onet.pl> wrote in message
news:3fff.000018...@newsgate.onet.pl...

> tylko to jakos nie dziala -- jezeli z innej aplikacji wywoluje ten serwer
to
> zero odpowiedzi . co trzeba jeszcze zrobic aby prawidlowo serwer
zainstalowal
> sie w sytemie ???

raczej nic nie trzeba robic ponad to (ewentaulnie pozniej samo przydzielanie
wartosci nalezaloby przerzucic do innej procedurki ... gdyz dane przesylamy
chyba czesciej niz tworzymy obiekty)

nie za bardzo potrzebne sa te linijki kodu ... rozumiem, ze maja jakies inne
przeznaczenie

> Lista.Add(serwer);
> Lista.Add(close);

zeby sie odwolac do DDE musisz np. w Excelu wpisac:
=project1|cos!ktos
jesli twoj projekt to Project1.dpr (i jesli exe to Project1.exe) i to co
napisales powinno dzialac.

PZDR PSG

[e4...@poczta.onet.pl]

wlanie ze nie dizla

robie to tak
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls ,ddeman;

type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Lista:TList;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Lista:=TList.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Serwer:TDdeServerConv;
Item:TDDEServerItem;
begin
serwer:=TDdeServerConv.Create(self);// DdeNameService
serwer.Name:='cos';
Item:=TDdeServerItem.Create(self);
Item.Name:='ktos';
Item.Text:='123';
Item.ServerConv := serwer;
Lista.Add(serwer);
Lista.Add(item);
timer1.enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var ee:TDdeServerItem;
aa:TDdeServerConv;
begin
ee:=Lista.Items[1];
ee.Text:=string(inttostr(random(10)));
end;

end.
-----------
program ma po nacisnieciu na przycisk stworzyc jeden serwer dde ktory ma jden
element . jednak po nacisnieciu wogle nic sie nie dzieje -- czyli serwer dde
nie dziala .

[psg]

<e4...@poczta.onet.pl> wrote in message
news:3fff.000019...@newsgate.onet.pl...

> wlanie ze nie dizla
>
> robie to tak

<ciach>

sorki, ze dopiero teraz i ze troche brzydki kod (i ze w ogole go tutaj 2KB
umieszczam), ale nie mam czasu na cos ladniejszego ... jedno jest pewne to
dziala ... po skompilowaniu jako Project1.exe w np. Excelu wpisz w
komorke: =project1|cos!ktos i zatwierdz Enterem ... najpier bedzie N/A a
pozniej jak chwile poczekasz powinny sie pojawic zmieniajace sie wartosci

<code>
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls, ddeman;

type
TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;
procedure FormCreate(Sender: TObject);

procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }

serwer:TDdeServerConv;
Close:TDdeServerItem;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
serwer:=TDdeServerConv.Create(self);
close:=TDdeServerItem.Create(self);
serwer.Name:='cos';
close.Name:='ktos';
Close.ServerConv := serwer;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
close.Text:=TimeToStr(Now);
end;

end.
</code>

PZDR PSG