Witam...
Na tym Forum wyszukałem przykład odczytu danych przez DDE przerobiłem do moich
potrzeb i wszystko działa OK ale jedynie na lokalnym kompie.
Czy ktoś wie jak to napisać aby można było odczytywać dane kiedy serwerem DDE jest
jakiś dowolny komputer w sieci ???
Ten działający przykład funkcjonuje tylko kiedy serwer DDE umieszczony jest na tym samym kompie co aplikacja.
//UWAGA: Do listy uses dodajemy moduł DDEMan
uses DDEMan;
procedure DDE_Write(Service, Topic, Cmd: string);
var
DDE: TDDEClientConv;
begin
try
DDE := TDDEClientConv.Create(nil);
DDE.SetLink(Service, Topic);
DDE.OpenLink;
DDE.PokeData(Topic, PChar(Cmd));
finally
DDE.Free;
end;
end;
function DDE_Read(Service, Topic, Items: string): string;
var
DDE: TDDEClientConv;
begin
try
DDE := TDDEClientConv.Create(nil);
DDE.SetLink(Service, Topic);
DDE.OpenLink;
Result:=DDE.RequestData(Items);
finally
DDE.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
(Sender as TButton).Caption:=DDE_Read('opclink','saia_Nr3','Temp_Parownik_Nr7');
end;