Как правильно устанавливать соед. по 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]

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

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,
первый возвращал ФОЛС.
Кроме того, если связь разорвать то восстановить нельзя, нужен перезапуск приложения клиента

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