Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.025 c
1-78889
limk
2003-11-14 18:36
2003.11.24
label


11-78867
vgb
2003-03-07 13:58
2003.11.24
Размер EXE увеличился на 300Kb


14-79168
shved111
2003-10-31 18:48
2003.11.24
нужна прога на Дельфи. срочно. ОПЛАЧУ. (Москва)


7-79189
di.ma2002@mail.ru
2003-09-01 06:23
2003.11.24
Разговор через модем


6-79081
beglec
2003-09-29 01:13
2003.11.24
Некоторые изменения в Delphi 7