Форум: "Основная";
Текущий архив: 2003.11.24;
Скачать: [xml.tar.bz2];

Вниз

Как правильно устанавливать соед. по DDE?   Найти похожие ветки 

← →
Ragazor   (2003-11-13 13:13) [0]

Как посылать запросы на сервер?
(читал в нескольких книгах, а также в хелпе, ни один источник не дал корректный совет и код)

---

← →
Zacho   (2003-11-13 13:23) [1]

RTFM TQuery.SQL, TQuery.Open ,TQuery.ExecSQL
Значит книги тебе какие-то паршивые попались, во всех которые я видел - есть.

---

← →
Zacho   (2003-11-13 13:26) [2]

О Господи, прошу прощения ! Перепутал DDE с BDE :-(

---

← →
Ragazor   (2003-11-13 14:41) [3]

:)

---

← →
clickmaker   (2003-11-13 14:45) [4]

Ну например, если с вордешником или экселем работаешь, то так (пример открытия файла в уже запущенном ворде):

ddeMgr := TDdeMgr.Create(Application);
DDEClient := TDDEClientConv.Create(nil);
DDEClient.ConnectMode := ddeManual;
try
Reg := TRegistry.Create(KEY_READ);
try
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey(Ext, false);
Key := Reg.ReadString("");
Reg.CloseKey;
Key := Key + "\shell\Open\ddeexec";
Reg.OpenKey(Key, false);
Macro := Reg.ReadString("");
Reg.CloseKey;
Reg.OpenKey(Key + "\Application", false);
Service := Reg.ReadString("");
Reg.CloseKey;
Reg.OpenKey(Key + "\Topic", false);
Topic := Reg.ReadString("");
Reg.CloseKey;
finally
Reg.Free;
end;
DDEClient.ServiceApplication := Service;
DDEClient.SetLink(Service, Topic);
if DDEClient.OpenLink then begin

DDEClient.ExecuteMacro(PChar(StringReplace(Macro, "%1", FileName, [])), false);
DDEClient.CloseLink;
end;
finally
DDEClient.Free;
end;

---

← →
Ragazor   (2003-11-13 16:08) [5]

я вот тут делал, тему и сервис вводил прям в обжект инспекторе,
так вот конектилось к Серверу только за вторым вызовом OpenLink,
первый возвращал ФОЛС.
Кроме того, если связь разорвать то восстановить нельзя, нужен перезапуск приложения клиента

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.11.24;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.015 c