RusFAQ.ru: Программирование на Delphi
/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi
Выпуск № 339
от 29.12.2005, 21:12
| Администратор: | Калашников О.А. |
| В рассылке: | Подписчиков: 234, Экспертов: 53 |
| В номере: | Вопросов: 4, Ответов: 12 |
Вопрос № 32077: Здравствуйте уважаемые эксперты! В ответе на вопрос №32020 прозвучал ответ про использование компонента idHTTP (IndyClients). Подскажите как работать с этим компонентом (вопрос всё тот же - №32020)??? Может есть исходник/кусок кода. Буду рад любо...
Вопрос № 32110: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Psock, NMpop3, StdCtrls; type TForm1 = class(TForm) Button1: TButton; NMPOP31: TNMPOP3;...
Вопрос № 32114: Добрый день ! Есть таблица Paradox, в ней есть числовой столбец. Как получить сумму по этому столбцу? Спасибо!...
Вопрос № 32116: Подскажите как можно в Tmemo в строку вставить изображение: иконку или bmp изображение...
| Вопрос № 32.077 |
|
Здравствуйте уважаемые эксперты! В ответе на вопрос №32020 прозвучал ответ про использование компонента idHTTP (IndyClients). Подскажите как работать с этим компонентом (вопрос всё тот же - №32020)??? Может есть исходник/кусок кода. Буду рад любой информации... Всем спасибо за ответы! |
| Отправлен: 23.12.2005, 21:08 Вопрос задал: And1 (статус: 3-ий класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0) |
| Отвечает: Лучников Юрий Владимирович Здравствуйте, And1! Готовые примеры использования компонент Indy вы можете скачать по ссылке: http://www.projectindy.org/DemoDownloads/Indy9Demos_26Oct04.zip |
| Ответ отправил: Лучников Юрий Владимирович (статус: 7-ой класс) Отправлен: 24.12.2005, 16:39 |
| Вопрос № 32.110 |
|
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Psock, NMpop3, StdCtrls; type TForm1 = class(TForm) Button1: TButton; NMPOP31: TNMPOP3; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var pop3: tnmpop3; begin pop3.Connect; pop3.GetMailMessage(1); pop3.Disconnect; end; end. Для того, чтобы окно не появлялось, я удалил Application.CreateForm(TForm1, Form1); из project1.dpr В какое событие воткнуть var pop3: tnmpop3; begin pop3.Connect; pop3.GetMailMessage(1); pop3.Disconnect; чтобы это всё выполнялось при запуске программы? |
| Отправлен: 24.12.2005, 16:22 Вопрос задал: 34076 (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0) |
| Отвечает: Лучников Юрий Владимирович Здравствуйте, 34076! Дак прямо в *.dpr и пишите=)) |
| Ответ отправил: Лучников Юрий Владимирович (статус: 7-ой класс) Отправлен: 24.12.2005, 16:43 |
| Отвечает: Ерёмин Андрей Здравствуйте, 34076! Если вы хотите использовать эти компоненты без формы, то нужно в модуль (dpr) проекта подключить модули, которые используются данным компонентом. Узнать эти модули легко. Создайте новый проект и бросьте на форму те компоненты, которые используете. Затем откройте исходный код модуля (pas) и посмотрите, что добавилось в uses. Эти модули и подключаете к исходнику проекта. Но тогда и все действия придётся выполнять в модуле проекта. Получится безоконное (консольное) приложение. --------- Работа - не волк, а произведение силы на расстояние! |
| Ответ отправил: Ерёмин Андрей (статус: Профессионал) Отправлен: 24.12.2005, 20:12 |
| Отвечает: sir henry Здравствуйте, 34076! Вы все еще мучаетесь с консольной программой? В Дельфи, в меню File -> New выскакивает окно с типами приложений, среди которых есть и тип для консоли. Используйте его. Там нет лишних модулей, например для окна и кнопок и Ваша программа не будет грузится лишними мегабайтами кода. То что Вы хотите, надо записать прямо в Project1.dpr. Программа отрабатывает построчно, с первую по последнюю строку. Значит куда Вы этот текст засунете с того места он работать и начнет. |
| Ответ отправил: sir henry (статус: Академик) Отправлен: 25.12.2005, 08:02 |
| Отвечает: Ataman N. N. Здравствуйте, 34076! Обычно такие действия "втыкают" в событие создания формы FormCreate(Sender: TObject); |
| Ответ отправил: Ataman N. N. (статус: 4-ый класс) Отправлен: 26.12.2005, 17:32 |
| Вопрос № 32.114 |
|
Добрый день ! Есть таблица Paradox, в ней есть числовой столбец. Как получить сумму по этому столбцу? Спасибо! |
| Отправлен: 24.12.2005, 17:00 Вопрос задал: Afini (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0) |
| Отвечает: Jadd Здравствуйте, Afini! Все просто. Два способа: Нужно в цикле пройтись по нему. Кидаем TTable и связываем с таблицей. Бальше пишем так: summ := 0; table1.first; while not table1.eof do begin summ := summ + table1.fieldbyname('myintfield').asinteger; table1.next; end; или, если кинуть на форму TQuery, тогда пишем SQL запрос вот так: query1.close; query1.sql.clear; query1.sql.add('select sum(myintfield) as summ from mysupertable'); query1.open; в поле summ будет сумма значений, т.е. получить его можно будет query1.fieldbyname('summ').asinteger; Удачи --------- Если в сердце дверь закрыта, нужно в печень постучаться |
| Ответ отправил: Jadd (статус: Специалист) Отправлен: 24.12.2005, 18:02 Оценка за ответ: 5 |
| Отвечает: sir henry Здравствуйте, Afini! Самый легкий и быстрый способ - используя компонент TQuery составить суммирующий запрос: SELECT SUM(Числовое_поле) AS summa FROM Таблица_Paradox Чтобы потом эту сумму вывести, например, в Label1: Label1.Text:=Query1.FieldByName('summa').AsString; |
| Ответ отправил: sir henry (статус: Академик) Отправлен: 25.12.2005, 08:10 |
| Вопрос № 32.116 |
| Подскажите как можно в Tmemo в строку вставить изображение: иконку или bmp изображение |
| Отправлен: 24.12.2005, 17:22 Вопрос задал: Maloi (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 1) |
| Отвечает: Ерёмин Андрей Здравствуйте, Maloi! В TMemo - точно никак. Это исключительно текстовый компонент. Можно попытаться в TRichEdit, хотя не факт, что получится. Лучше использовать компоненты от третьих лиц. Например, в RxLib есть TRxRichEdit, в котором намного больше возможностей, чем в стандартном TRichEdit. Также в JediVCL есть хороший компонент TJvxRichEdit - в нём ещё больше возможностей. Туда можно вставлять любой объект через OLE (подобно как в MS Word). --------- Работа - не волк, а произведение силы на расстояние! |
| Ответ отправил: Ерёмин Андрей (статус: Профессионал) Отправлен: 24.12.2005, 20:12 |
| Отвечает: Golden Spider Здравствуйте, Maloi! Не хочу вас огорчать, но в Tmemo вставить картинку невозможно. :( Поищите дополнительные компоненты. --------- Семь раз проверь, один раз откомпилируй! |
| Ответ отправил: Golden Spider (статус: 4-ый класс) Отправлен: 24.12.2005, 23:08 |
| Отвечает: Denisss Здравствуйте, Maloi! Теоретически это возможно, только Вам придется полностью сделать свой собственный компонент и написать нехилое количество строчек программы. Потому (зачем изобретать велосипед), используйте, например, компонент TjvRichEdit из набора компонентов JVCL (http://sourceforge.net/projects/jvcl) |
| Ответ отправил: Denisss (статус: Специалист) Отправлен: 24.12.2005, 23:59 |
| Отвечает: sir henry Здравствуйте, Maloi! Если речь идет о стандартном компоненте в Дельфи, то никак. Используйте для картинок с текстом сторонние компонеты, основаные на RichEdit'e (т.к. стандартный Дельфийский тоже не позволяет это делать) - либо из библиотеки RxLib, либо из JediVCL. |
| Ответ отправил: sir henry (статус: Академик) Отправлен: 25.12.2005, 08:15 |
| Отвечает: Schmak Здравствуйте, Maloi! Стандартными методами рисунок в Tmemo вставить точно не удастся. так что пользуйтесь другими компонентами. --------- Не всё то Windows, что висит! |
| Ответ отправил: Schmak (статус: Студент) Отправлен: 26.12.2005, 05:45 |
|
© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале |
|
| Subscribe.Ru
Поддержка подписчиков Другие рассылки этой тематики Другие рассылки этого автора |
Подписан адрес:
Код этой рассылки: comp.soft.prog.delphiplus Архив рассылки |
Отписаться
Вебом
Почтой
Вспомнить пароль |
| В избранное | ||
