/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 484
от 26.05.2006, 20:35

Вопрос № 43.692

привет всем. есть вопрос, на который нужен очень срочный ответ. у меня есть программа, которая подключает n библиотек (плагины). программа каждой из них в отдельном thread'e посылает немалый объем данных (текст). Длл-ки обрабатывают текст и передают в ответ список обработанных строчек. 0. как вообще организовать связь между длл и программой 1. как лучше передавать текст 2. как получить спиоск обработанных строк. !!!!! 1. Хотелось бы, чтобы ддл-ки были написаны только c uses windows, messages (объем файлов чтобы небольшой) 2. лучше было бы, если строки-результаты передавались по ходу их обработки, а не сразу.

Отправлен: 20.05.2006, 20:08 Вопрос задал: Решетник Д (статус: 6-ой класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Татьяна Здравствуйте, Решетник Д! дело в том, что не совсем понятно, работали ли вы вообще с dll. Отвечу коротко, но если надо будет поподробнее постараюсь ответить 0. Каждую dll-ку загружать динамически (если не знаете как, вышлю пример) 1. Так как все dll-ки выполняются в контексте главного процесса, то можно передавать указатель на текст либо, как альтернатива, имя файла, в котором этот текст хранится (естественно, перед этим его туда положить) 2. можно организовать как бы событийную процедуру, для этого в dll передавать адрес функции, которая должна выполняться, dll же преобразует ее к заданному типу и вызовет (кстати в delphi по идее можно передавать типизированные функции). а как эту функцию вызывать из dll - при обработки всех строк или одной - решать вам --------- Нет ничего невозможного!!!

Ответ отправила: Татьяна (статус: Студент) Ответ отправлен: 20.05.2006, 20:32 Оценка за ответ: 5 Комментарий оценки: спасибо за ответ. я уже оба способа опробовал, но результата нужного не получил ПОКА.

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, Решетник Д! Судя по тому, что не самую простую программу вы уже написали, то вам остается только дать, в каком направлении копать. 1) Можно использовать системные сообщения - ваши dll-ки будут посылать сообщения окну главной програмы. Это подходит - Messages 2) Можно использовать named pipes - именованные каналы (пайпы, трубы). 3) Создавать временные файлы. Это немного более ламерский способ, чем пайпы, но зато более простой :-)

Ответ отправил: Сухомлин Кирилл Владимирович (статус: 6-ой класс) Ответ отправлен: 20.05.2006, 21:23 Оценка за ответ: 5 Комментарий оценки: спасибо за ответ. вариант с сообщениями я когда-то использовал, но он не очень мне подходит в виду огромного количества результирующих строк. а в сторону пайпов копать пока не хочется ((

Вопрос № 43.706

Здравствуйте уважаемые эксперты. Хочу написать на Delphi тестовую оболочку. Прошу помочь определиться в выборе структуры для хранения вопросов и вариантов ответов на них. Сначала я хотел закомпилировать их в exe-шник, но так как вариантов тестов много, то это не совсем разумно наверное. Хочется, чтобы все входные данные хранились отдельно, а потом оболочка использовала только то что нужно. Пробавал хранить в базе данных Paradox 7.0, но на другой машине без Delphi не работает. Вопросы представляют из себя текст, а вот ответы как тексты, так и картинки. И вообще тест по русскому языку, и кое где в вопросах и ответах нужно ставить ударения. Вот такая вот беда. Очень хочется услашать любое ваше мнение по этому поводу. Заранее спасибо.

Отправлен: 20.05.2006, 22:40 Вопрос задал: Popcov (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Ujin Antikvar Здравствуйте, Popcov!!! Как альтернативу базе данных могу предложить Access через ADO компоненты. Ну а насчет того как поставить ударение в ответах могу предложить следующее. А именно ввести какой-то специальнай символ, который нужно будет поставить перед буквой на которою следует сделать ударение. У нас в школе когда мы сдавали тесты по русскому на компьютерах тоже в некоторых словах нужно было поставить ударение так вот там использовали вот такой символ: символ одной кавычки ' , который ставился перед буквой на которую сделано ударение. Попробуйте сделать что-то типа этого и потом в программе обрабатывать сравнение ответа пользователя с правельным ответом (т.е. с ответом где этот символ стоит на правельном месте). Вот собственно и все что я хотел предложить. Удачи вам в вашем деле!!! С Уважением, Ujin Antikvar!!! --------- "Будущее принадлежит тем, кто верен своей мечте" - Элеонора Рузвельт

Ответ отправил: Ujin Antikvar (статус: 6-ой класс) Ответ отправлен: 21.05.2006, 00:31 Оценка за ответ: 5

Отвечает: sir henry Здравствуйте, Popcov! Используйте вместо Paradox - dBase. Чтобы обращаться к этому типу БД напрямую, установите компонент TDbf. Работет очень быстро, позволяет использовать все типы полей, ну и использование БД позволяет значительно упростить обращение с ланными. TDbf позволяет (в отличие от ADO) задавать относительные пути к таблицам БД, следовательно Вам не придется перенастраивать пути при установке программы на другую машину. Как вариант - используйте Embeded InterBase/FireBird (www.ibase.ru). В установке не нуждается, все компоненты для доступа к этой БД есть в Дельфи (на вкладке InterBase). Лучше использовать две программы - одна для собственно тестирования, а вот вторая для редактирования и добавления вопросов и ответов в БД. На другой машине Ваш Paradox не работал потому-что Вы использовали доступ к БД через BDE, а BDE нужно дополнительно устанавливыать.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 21.05.2006, 12:39 Оценка за ответ: 5

Отвечает: Николай Б. Здравствуйте, Popcov! Как вариант - можно хранить в типизированном файле. Это не лучше, чем база данных, но всё таки... --------- Недавно прошёл тест на IQ. Результат отрицательный.

Ответ отправил: Николай Б. (статус: 9-ый класс) Ответ отправлен: 22.05.2006, 05:28 Оценка за ответ: 4

Отвечает: $erBep Здравствуйте, Popcov! Вобщем то у меня тоже есть программа тестирования. И я вопросы/ответы храню текстовом закодированном файле, а картинки лежат отдельно. Но в текст. документе указывается имя файла картинки, какую и когда грузить. Текст. документ зделан на основе INI. --------- Купи самоучитель - хуже не будет.

Ответ отправил: $erBep (статус: 2-ой класс) Ответ отправлен: 24.05.2006, 21:21

Вопрос № 43.732

Здравствуйте, эксперты. Вопросы по взаимодействию Delphi7 и ExcelXP. 1) Требуется через Delphi построить график в Excel'е, на онове данных из таблицы. Скажем значения по оси X берутся из столбца A1:A30, а соответствующие значения Y берутся из столбца C1:C30. 2) Каким образом через Delphi можно окружить границей диапазон ячеек. 3) Как через Delphi можно задать формат ячейки (числовой, 3 знака после запятой).

Отправлен: 21.05.2006, 11:36 Вопрос задал: Kilgor (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, Kilgor! сам код в приложении - тут ссылки на то, откуда почерпнута информация. 1) http://forum.chertenok.ru/viewtopic.php?p=7700&highlight=&sid=bef5bcefc8ae7e1e829b0a08fba8f8ad (ищите зеленый текст ;-) Раз уж вы не указали, какой тип диаграммы вам нужен, то подойдет любой :-) Если понадобится - сами разберетесь. 2) http://seeyou.narod.ru/Delphi/delphi_excel1.htm http://forum.spravkaweb.ru/index.php?showtopic=281 3) просто см. приложение Приложение: var currentRangeBorders: variant; ... exl := ExcelApp... ... exl.Range('A1:A30; F1:F30').select; // 1) что-то типа exl.workbook[1].Charts.Add(); // 2) Sheet.Range['A1:C4'].Select; exl.Selection.Borders[хlEdgeLeft].LineStyle := xlContinuous; exl.Selection.Borders[хlEdgeLeft].Weight := xlMedium; exl.Selection.Borders[xlEdgeTop].LineStyle := xlContinuous; exl.Selection.Borders[xlEdgeTop].Weight := xlMedium; exl.Selection.Borders[xlEdgeBottom].LineStyle := xlContinuous; exl.Selection.Borders[xlEdgeBottom].Weight := xlMedium; exl.Selection.Borders[xlEdgeRight].LineStyle := xlContinuous; exl.Selection.Borders[xlEdgeRight].Weight := xlMedium; // 3) exl.Range.Selection.NumberFormat = '0.000'; // возможно, надо писать запятую, а не точку

Ответ отправил: Сухомлин Кирилл Владимирович (статус: 6-ой класс) Ответ отправлен: 21.05.2006, 19:47 Оценка за ответ: 5 Комментарий оценки: Спасибо

Вопрос № 43.739

Легально ли продавать программы сделанные в Delphi в интернете? Где лучше всего будет разместить свои программы для продажи? Или, может, сделать свой интернет-магазин?

Отправлен: 21.05.2006, 12:50 Вопрос задал: Томша Павел (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Ерёмин Андрей Здравствуйте, Томша Павел! Нет, нелегально. Чтобы продавать свои продукты и получать от них реальные деньги, вам нужно юридически всё оформить. Затем от вырученных сумм постоянно платить налоги (который, кстати, не один - их там много, но в сумме больше 15-20% обычно не выходит). Если же вы соберётесь продавать программу по 20 рублей, например, и брать оплату по WebMoney вручную, то за такие копейки вряд ли кто-либо станет браться, а вот если цены хотите выставить "реальные", то тут уже лучше не рисковать и предварительно узнать все моменты. Чтобы узнать подробнее - обратитесь к юристам портала - они вам точно подскажут, что да как. --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 21.05.2006, 17:33

Вопрос № 43.751

Экспертам привет ! Так вопрос: Как убить " заменить нулями первые 256 или 300 байт у файла" ,,,???,,, Как работать с файлом я знаю но заменять по два байта нерезон ! Если сможите скиньте исходничёк вот на такой основе ! Приложение: var fi:TFileStream; s:byte; //Может быть любое значение мне просто удобнее //работать с byte begin Fi:=TfileStream.Create('Файл',fmOpenReadWrite); fi.Seek($000ebf24, soFromBeginning); s:=$00; fi.write(s,sizeof(s)); fi.Free;

Отправлен: 21.05.2006, 14:54 Вопрос задал: Tamashev Denis M (статус: 2-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Татьяна Здравствуйте, Tamashev Denis M! Если я вас правильно поняла, то см. приложение Приложение: var fi:TFileStream; s:array of byte ; begin Fi:=TfileStream.Create('Ôàéë',fmOpenReadWrite); fi.Seek($000ebf24, soFromBeginning); setlength(s,255); FillMemory(s,length(s),0); //заполняет участок памяти по адрeсу s fi.write(s,length(s)); fi.Free; end; --------- Нет ничего невозможного!!!

Ответ отправила: Татьяна (статус: Студент) Ответ отправлен: 21.05.2006, 15:05 Оценка за ответ: 5 Комментарий оценки: Спасибо ! В данный момент проверить не могу ! Но я рад что девушки занимаются программированием на Delphi ! =)

Вопрос № 43.764

Всем экспертам привет ! Я уже задал сегодня вопрос но кажется меня неправильно поняли. Вопрос ещё легче как уменьшить “упростить” код программы но чтобы всё работало как раньше ??? Смотри внизу ! Приложение: var f:tfileStream; b:byte; A,S,I,M:integer; begin F:=TFileStream.Create('file.exe',fmOpenWrite); A:=$00000000; b:=$00; f.Seek(A,sofrombeginning); f.Write(b,sizeof(b)); repeat S:=M; f.Seek(S,sofrombeginning); f.Write(b,sizeof(b)); I:=A+$1; M:=I; A:=M; until S=$00000256; f.Free; ShowMessage('100%'); end;

Отправлен: 21.05.2006, 16:51 Вопрос задал: Tamashev Denis M (статус: 2-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, Tamashev Denis M! Непонятно, почему вы сами не можете упростить код, хотя как минимум, должны были разобраться с ним, но, может быть, вы имели ввиду вот это? см. приложение. Приложение: var f:tfileStream; b:byte; i:integer; begin F:=TFileStream.Create('file.exe',fmOpenWrite); b:=$00; for i := 0 to 255 do begin f.Seek(i, sofrombeginning); f.Write(b, sizeof(b)); end; f.Free; ShowMessage('100%'); end;

Ответ отправил: Сухомлин Кирилл Владимирович (статус: 6-ой класс) Ответ отправлен: 21.05.2006, 19:54 Оценка за ответ: 5 Комментарий оценки: Спасибо. Извините код не смог разобрать потому что очень занят . Да и в Delphi пока не всё понимаю.

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.33 от 25.05.2006