DDEdemo-2 - Общие вопросы Delphi

Ash · 06.12.2008, 18:56

Народ, ну что вам жалко чтоли?

(выложить demos\ddedemo)
У меня клинически не работает прога, которая по всем признакам должна работать (то бишь связь есть, а данные пропадают хз куда...)

vovk · 06.12.2008, 19:02

код народ требует код!!!
ну серьёзно покажите где не работает то?

Ash · 06.12.2008, 21:21

Код в обмен на демку

Да шучу... Хотя мне не до шуток... Мне всю ночь сидеть, и все равно меня завтра повесят за ноги... Да там просто маленькая програмка, я тренировался, связь будет с другой приладой, но клиентом будет делфи. Да и кода там кот наплакал...

Клиент:

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 секунд валятся левые строки. Все свойства, топики и тд прописаны,
ах да связь-то есть, при запуске клиент подымает сервер, но листбокс у него безнадежно пуст. Врядли че я тут накатал вам поможет...

Ash · 06.12.2008, 22:25

Злые вы...Я вам код, а вы...

mihali4 · 06.12.2008, 22:32

Это - не код. Выкладывайте полный код проекта. (если, конечно, хотите, чтобы вам помогли)
"Из обрывков фраз разговора трудно уловить смысл..."

Ash · 07.12.2008, 00:14

Да я всего лишь хотел, чтобы мне демку бросили, может сам себе помогу... И что такое полный код проекта?

mihali4 · 07.12.2008, 00:32

Цитата:

выложить demos\ddedemo

Для этого нужно ставить старую версию дельфей (в семерке я этого не нашел, но помню. что то ли в 6-й, то ли в 5-й версии такая демка была).
А разные версии дельфи вместе не живут...

Цитата:

что такое полный код проекта

Подразумеваются копии текста ваших Unit1, Unit2 и т.д.

Ash · 07.12.2008, 12:16

Ну вот вам код проекта прицепил

Ash · 10.12.2008, 01:31

Если кому интересно, все заработало, когда удалил ServerConv, а топиком сделал заголовок формы сервера...

Ash · 10.12.2008, 07:59

Рано обрадовался... Похоже Lines на DDE-клиенте держит только один элемент при приеме данных (последний)... Поясняю: допустим, по таймеру 20 сек посылаем с сервера 3 строчки с интервалом 3 сек (SrvItem.Text := 'm'; sleep(3000); SrvItem.Text := 'mm'; sleep(3000); SrvItem.Text := 'mmm'

на клиенте видим только 'mmm' в рез-те. То есть OnChange на клиенте отрабатывает 1 раз, а не три. Это что, баг или фича? Никакого кода посылать не буду, я очень расстроен... Попробуйте сами, коли будет желание...Мне надо послать и получить порядка 200 значений зараз, а нахрена мне только последнее... Если я не прав, опровергните меня, буду рад.

06.12.2008, 18:56	#1
Ash Пользователь Регистрация: 27.10.2008 Сообщений: 45	DDEdemo-2 Народ, ну что вам жалко чтоли? (выложить demos\ddedemo) У меня клинически не работает прога, которая по всем признакам должна работать (то бишь связь есть, а данные пропадают хз куда...) Последний раз редактировалось Ash; 06.12.2008 в 18:59.

07.12.2008, 00:14	#6
Ash Пользователь Регистрация: 27.10.2008 Сообщений: 45	Да я всего лишь хотел, чтобы мне демку бросили, может сам себе помогу... И что такое полный код проекта? Последний раз редактировалось Ash; 07.12.2008 в 00:18.

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
DDEdemo	Ash	Общие вопросы Delphi	1	07.12.2008 00:37

06.12.2008, 19:02	#2
vovk != Участник клуба Регистрация: 08.09.2008 Сообщений: 1,751	код народ требует код!!! ну серьёзно покажите где не работает то?

06.12.2008, 21:21	#3
Ash Пользователь Регистрация: 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
Ash Пользователь Регистрация: 27.10.2008 Сообщений: 45	Злые вы...Я вам код, а вы...

06.12.2008, 22:32	#5
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Это - не код. Выкладывайте полный код проекта. (если, конечно, хотите, чтобы вам помогли) "Из обрывков фраз разговора трудно уловить смысл..."

10.12.2008, 01:31	#9
Ash Пользователь Регистрация: 27.10.2008 Сообщений: 45	Если кому интересно, все заработало, когда удалил ServerConv, а топиком сделал заголовок формы сервера...

10.12.2008, 07:59	#10
Ash Пользователь Регистрация: 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 значений зараз, а нахрена мне только последнее... Если я не прав, опровергните меня, буду рад.