DDE

← →
PEKAHT (2004-12-16 10:37) [0]

помогите, как работать с компонентами DDEServerConv и т.п.
есть ли какие нить исходники, у меня посылать данные не получается с коиента на сервер

← →
Dmitriy O. © (2004-12-16 11:45) [1]

http://dmitriyo.narod.ru/Isxodniki/Antinet.rar

← →
PEKAHT (2004-12-16 15:36) [2]

че то я все сделал так же, но не могу реквест сделать,
и вабще DdeServerItem поместить нужные данные, помогите....

← →
Dmitriy O. © (2004-12-16 16:16) [3]

http://dmitriyo.narod.ru/Isxodniki/Client_Server.rar

← →
PEKAHT (2004-12-17 14:15) [4]

Какая то ерунда, у меня есть ДДЕ сервер, клиент с ним соединяется нормально, можно выполнять макросы, но не получается сделать реквест, пустая строка возвращается...
Может это быть из за того что сервер у меня на сервисе стоит?

← →
TUser © (2004-12-17 14:46) [5]

> PEKAHT

Возможно, ты ходишь не по тем ссылкам.

http://www.yandex.ru/

← →
PEKAHT (2004-12-17 14:48) [6]

да прога на той ссылке работает прекрасно, а у меня то же самое не хочет

← →
TUser © (2004-12-17 14:53) [7]

> да прога на той ссылке работает прекрасно, а у меня то же
> самое не хочет

Не хорошо ругать чужой софт, когда сам не решал подобных задач, но подозреваю, что код там оформлен столь понятно, что подобный код у тебя никогда не заработает.

Дима, прости если я тебя огофорил, но это уже стереотип.

← →
PEKAHT (2004-12-17 14:55) [8]

не, код прекрасный, все понятно

← →
TUser © (2004-12-17 15:23) [9]

Тогда тебе по любому надо привести свой неработающий

← →
PEKAHT (2004-12-17 15:34) [10]

procedure TForm1.FormActivate(Sender: TObject);
begin
objShell := CreateOleObject("Shell.Application");

ServStatus := 0;
if DdeClientConv.SetLink("MyServ", "Topic1") then
if DdeClientConv.OpenLink then
begin
ShowMessage(DdeClientConv.RequestData("Items1"));
ServStatus := strtoint(DdeClientConv.RequestData("Items1"));
case ServStatus of
0:
StatusBar.Panels.Items[1].Text := "Stopped";
1:
StatusBar.Panels.Items[1].Text := "Started";
2:
StatusBar.Panels.Items[1].Text := "Paused";
end;
//ShowMessage("LinkSet");
end
else
begin
StatusBar.Panels.Items[1].Text := "Stopped";
ServStatus := 0;
end
else
begin
StatusBar.Panels.Items[1].Text := "Stopped";
ServStatus := 0;
end
end;

так вот этот итем пустой приходит, а если я скажу выполнить макрос ,который просто его на сервере выведет на экран, то он будет нормальным(нужным)

← →
PEKAHT (2004-12-18 17:35) [11]

Помогите, люди добрые, загибаюсь

PEKAHT (17.12.04 15:34) [10]
objShell := CreateOleObject("Shell.Application");
объясни мне, зачем ты используешь DDE если в COM залез, может все лучше на COM переделать? или я чего-то не понимаю?

← →
PEKAHT (2004-12-24 15:00) [13]

да Shell это так осталось от чего то...

DDE Найти похожие ветки