Текущий архив: 2003.11.24;
Скачать: CL | DM;
Вниз
Как правильно устанавливать соед. по 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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.032 c
