Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


Информационный Канал Subscribe.Ru

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / 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


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


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

Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора
Подписан адрес:
Код этой рассылки: comp.soft.prog.delphiplus
Архив рассылки
Отписаться Вебом Почтой
Вспомнить пароль

В избранное