|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.12.2008, 18:56 | #1 |
Пользователь
Регистрация: 27.10.2008
Сообщений: 45
|
DDEdemo-2
Народ, ну что вам жалко чтоли? (выложить demos\ddedemo)
У меня клинически не работает прога, которая по всем признакам должна работать (то бишь связь есть, а данные пропадают хз куда...) Последний раз редактировалось Ash; 06.12.2008 в 18:59. |
06.12.2008, 19:02 | #2 |
!=
Участник клуба
Регистрация: 08.09.2008
Сообщений: 1,751
|
код народ требует код!!!
ну серьёзно покажите где не работает то? |
06.12.2008, 21:21 | #3 |
Пользователь
Регистрация: 27.10.2008
Сообщений: 45
|
Код в обмен на демку Да шучу... Хотя мне не до шуток... Мне всю ночь сидеть, и все равно меня завтра повесят за ноги... Да там просто маленькая програмка, я тренировался, связь будет с другой приладой, но клиентом будет делфи. Да и кода там кот наплакал...
Клиент: procedure TForm1.DCnt1Change(Sender: TObject); begin if DCnt1.Lines.Count<>0 then begin Listbox1.Items.Add(DCnt1.Lines[DCnt1.Lines.Count-1]); Listbox1.Repaint; end; end; procedure TForm1.FormCreate(Sender: TObject); begin // DdeClientConv1.SetLink('DSrv', 'DDEServerConv1'); DdeClientConv1.OpenLink; end; На сервере, понятно кода нет, там тоже листбокс, куда по таймеру раз в10 секунд валятся левые строки. Все свойства, топики и тд прописаны, ах да связь-то есть, при запуске клиент подымает сервер, но листбокс у него безнадежно пуст. Врядли че я тут накатал вам поможет... |
06.12.2008, 22:25 | #4 |
Пользователь
Регистрация: 27.10.2008
Сообщений: 45
|
Злые вы...Я вам код, а вы...
|
06.12.2008, 22:32 | #5 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Это - не код. Выкладывайте полный код проекта. (если, конечно, хотите, чтобы вам помогли)
"Из обрывков фраз разговора трудно уловить смысл..." |
07.12.2008, 00:14 | #6 |
Пользователь
Регистрация: 27.10.2008
Сообщений: 45
|
Да я всего лишь хотел, чтобы мне демку бросили, может сам себе помогу... И что такое полный код проекта?
Последний раз редактировалось Ash; 07.12.2008 в 00:18. |
07.12.2008, 00:32 | #7 | ||
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Цитата:
А разные версии дельфи вместе не живут... Цитата:
|
||
07.12.2008, 12:16 | #8 |
Пользователь
Регистрация: 27.10.2008
Сообщений: 45
|
Ну вот вам код проекта прицепил
|
10.12.2008, 01:31 | #9 |
Пользователь
Регистрация: 27.10.2008
Сообщений: 45
|
Если кому интересно, все заработало, когда удалил ServerConv, а топиком сделал заголовок формы сервера...
|
10.12.2008, 07:59 | #10 |
Пользователь
Регистрация: 27.10.2008
Сообщений: 45
|
Рано обрадовался... Похоже Lines на DDE-клиенте держит только один элемент при приеме данных (последний)... Поясняю: допустим, по таймеру 20 сек посылаем с сервера 3 строчки с интервалом 3 сек (SrvItem.Text := 'm'; sleep(3000); SrvItem.Text := 'mm'; sleep(3000); SrvItem.Text := 'mmm' на клиенте видим только 'mmm' в рез-те. То есть OnChange на клиенте отрабатывает 1 раз, а не три. Это что, баг или фича? Никакого кода посылать не буду, я очень расстроен... Попробуйте сами, коли будет желание...Мне надо послать и получить порядка 200 значений зараз, а нахрена мне только последнее... Если я не прав, опровергните меня, буду рад.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
DDEdemo | Ash | Общие вопросы Delphi | 1 | 07.12.2008 00:37 |