Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

DDE

PEKAHT © (2004-12-16 10:37:00)
помогите, как работать с компонентами DDEServerConv и т.п.
есть ли какие нить исходники, у меня посылать данные не получается с коиента на сервер

PEKAHT (2004-12-24 15:00:00) [1]
да Shell это так осталось от чего то...

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

PEKAHT (2004-12-18 17:35:00) [3]
Помогите, люди добрые, загибаюсь

PEKAHT (2004-12-17 15:34:00) [4]
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;

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

TUser (2004-12-17 15:23:00) [5]
Тогда тебе по любому надо привести свой неработающий

PEKAHT (2004-12-17 14:55:00) [6]
не, код прекрасный, все понятно

TUser (2004-12-17 14:53:00) [7]

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

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

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

PEKAHT (2004-12-17 14:48:00) [8]
да прога на той ссылке работает прекрасно, а у меня то же самое не хочет

TUser (2004-12-17 14:46:00) [9]

> PEKAHT

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

http://www.yandex.ru/

PEKAHT (2004-12-17 14:15:00) [10]
Какая то ерунда, у меня есть ДДЕ сервер, клиент с ним соединяется нормально, можно выполнять макросы, но не получается сделать реквест, пустая строка возвращается...
Может это быть из за того что сервер у меня на сервисе стоит?

Dmitriy O. (2004-12-16 16:16:00) [11]
http://dmitriyo.narod.ru/Isxodniki/Client_Server.rar

PEKAHT (2004-12-16 15:36:00) [12]
че то я все сделал так же, но не могу реквест сделать,
и вабще DdeServerItem поместить нужные данные, помогите....

Dmitriy O. (2004-12-16 11:45:00) [13]
http://dmitriyo.narod.ru/Isxodniki/Antinet.rar

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »