Вопрос № 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
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!
Отвечает: Ерёмин Андрей
Здравствуйте, 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