Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

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

Чемпионы рейтинга экспертов в этой рассылке

Шичко Игорь Статус: Практикант Рейтинг: 20 ∙ повысить рейтинг >>

Лукьяненко Алексей Валериевич Статус: Студент Рейтинг: 20 ∙ повысить рейтинг >>

Genia007 Статус: Студент Рейтинг: 18 ∙ повысить рейтинг >>

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

Выпуск № 1300
от 10.02.2009, 00:35

Вопрос № 159575: Как можно поменять программно в ехе файле иконку? Извлекать можно ниже следующим текстом, а как заменить я не знаю. Может существуют какие нибудь компоненты?...

Вопрос № 159.575

Как можно поменять программно в ехе файле иконку? Извлекать можно ниже следующим текстом, а как заменить я не знаю. Может существуют какие нибудь компоненты? Приложение: var IconIndex: word; h: hIcon; begin IconIndex := 0; h := ExtractAssociatedIcon(hInstance, 'C:WINDOWSNOTEPAD.EXE', IconINdex); извлечение иконки из файла

Отправлен: 04.02.2009, 09:06 Вопрос задал: Остапчик Сергей Сергеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Genia007 Здравствуйте, Остапчик Сергей Сергеевич! Могу предложить менять программно иконку не в ехе файле, а накидать кучу иконок в файл ресурса и уже в процессе работы приложения менять иконку на нужную Код: Application.Icon.Handle := LoadIcon(hInstance, 'ICONNAME'); InvalidateRect(Application.Handle, NIL, True); Иконка, расположенная в .RES-файле, должна быть видима в .EXE-файле, к примеру, при просмотре файла посредством Program Manager. --------- Помогли тебе, помоги и ты.

Ответ отправил: Genia007 (статус: Студент) Ответ отправлен: 04.02.2009, 12:36 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 242880 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 159.587

Здравствуйте, уважаемые эксперты! Имеем: 1) Delphi 7 Enterprise. 2) ListBox1 с неизвестным количеством строк. 3) Свойство MultiSelect стоит равным True. Нужно: 1) По двойному щелчку на строке отобразить её содержание в Label1. Проблема: 1) Не понимает свойств ItemIndex и Selected. Помогите, пожалуйста решить эту проблему!!! Всё утро бьюсь - не хочет в Label1 строчку помещать.

Отправлен: 04.02.2009, 12:07 Вопрос задал: Даниил Цветков (статус: Студент) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: monah Здравствуйте, Даниил Цветков! Свойство Selected - является указателем на элемент. а не содержит выделеный. используйте конструцию for i:=0 to listBox1.count-1 do if ListBox1.selected[i] then .... --------- festina lente

Ответ отправил: monah (статус: Практикант) Ответ отправлен: 04.02.2009, 12:23 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 242878 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 4 Комментарий оценки: Немного не то.... Эксперт Genia007 предложил то, что, собственно, необходимо. Хотя Ваш код тоже, несомненно, пригодится! Удачи на портале!

Отвечает: Genia007 Здравствуйте, Даниил Цветков! Из Вашего вопроса не совсем понятно причём здесь свойство MultiSelect компонента ListBox1, ведь при двойной клике по строчке все выделения снимаются и срабатывает обработчик только с одной выделенной строчкой. Код получается очень простой: Код: procedure TForm1.ListBox1DblClick(Sender: TObject); begin Label1.Caption:= ListBox1.Items[ListBox1.ItemIndex]; end; --------- Помогли тебе, помоги и ты.

Ответ отправил: Genia007 (статус: Студент) Ответ отправлен: 04.02.2009, 12:52 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 242882 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Спасибо большое!!! Это именно то, что нужно!!!

Вопрос № 159.600

Здравствуйте уважаемые эксперты. Есть стандартная компонента TreeView. Я ее использую для создания плана (структуры) документа, например, большого доклада и генерации, на его основе, содержания. Я могу разворачивать, сворачивать дерево, добавлять и переименовывать узлы и т.д. Но при добавлении узел показывается внизу. Как вставлять узел между узлами, как изменять следование узлов в дереве и возможно ли изменять важность узла (переводить его на подуровень, либо, наоборот выше)? Возможно есть компоненты, более подходящие для этого? Заранее извините за, наверное, элементарный вопрос.

Отправлен: 04.02.2009, 13:52 Вопрос задал: Oleg Adamenko (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: monah Здравствуйте, Oleg Adamenko! Для добавления узла в любое место необходимо указать его родителя - другой узел , свойство parent? если не ошибаюсь - пишу на память. Либо используя функцию родителя которая вернет ссылку на созданный узел который следует заполнять значиниями (caption). Перемещать же узел возможно создав новый в нужном месте и удалив старый узел. убрано двойное обращение -------- ∙ Отредактировал: deepTeNk, Академик ∙ Дата редактирования: 04.02.2009, 20:26 (время московское) --------- festina lente

Ответ отправил: monah (статус: Практикант) Ответ отправлен: 04.02.2009, 15:21 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 242894 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 3 Комментарий оценки: Простите, ответ немного странный. Я спрашиваю, как при создании нового узла выводит его в дереве в нужном месте, а не внизу, где он при создании появляется. Можно ли привести код, который позволит перетаскиванием мышкой вставить узел в нужное место в иерархии?

Отвечает: Genia007 Здравствуйте, Oleg Adamenko! Возможность перетаскивания в компоненте TreeView можно при помощи такого кода: Свойство Dragmode компонента TreeView нужно поставить в dmAutomatic. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) TreeView1: TTreeView; procedure TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer); procedure TreeView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); private { Private declarations } procedure MoveNode(TargetNode, SourceNode: TTreeNode); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} // // Процедура, которая переместит узел и его подузлы // procedure TForm1.MoveNode(TargetNode, SourceNode: TTreeNode); var nodeTmp: TTreeNode; i: Integer; begin with TreeView1 do begin nodeTmp := Items.AddChild(TargetNode, SourceNode.Text); for i := 0 to SourceNode.Count - 1 do begin MoveNode(nodeTmp, SourceNode.Item[i]); end; end; end; procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer); var TargetNode, SourceNode: TTreeNode; begin with TreeView1 do begin TargetNode := GetNodeAt(X, Y); // получаем целевой узел SourceNode := Selected; if (TargetNode = nil) then begin EndDrag(False); Exit; end; MoveNode(TargetNode, SourceNode); SourceNode.Free; end; end; procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin if (Sender = TreeView1) then // если верно принимаем перетаскиваемый пункт begin Accept := True; end; end; end. --------- Помогли тебе, помоги и ты.

Ответ отправил: Genia007 (статус: Студент) Ответ отправлен: 05.02.2009, 09:49 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 242948 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 3 Комментарий оценки: Почти хорошо, узел вроде может перетащиться, но его не принимают. Может надо еще поставить каккие-то условия - например в событиях?

Вопрос № 159.609

видеозахват с помощью delphi.Возможен ли? И если возможен то как его реализовать?

Отправлен: 04.02.2009, 16:07 Вопрос задал: Melixion (статус: 1-й класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: PavelGM Здравствуйте, Melixion! Набор DSPack вам поможет (http://www.progdigy.com/?page_id=4). А дальше если захотите сами разобраться - MSDN & DirectShow. Все отлично работает со многими платами захвата и Web-камерами - главное наличие WDM-драйвера для DirectShow.

Ответ отправил: PavelGM (статус: Практикант) Ответ отправлен: 05.02.2009, 01:07 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 242931 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 159.621

Здравствуйте уважаемые эксперты! Подскажите какие - нибудь источники по программированию баз данных в Дельфи, желательно с основ программирования БД. Заранее большое спасибо.

Отправлен: 04.02.2009, 18:52 Вопрос задала: Коняхина Наталья (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Genia007 Здравствуйте, Коняхина Наталья! Могу предложит набор справочников по БД, которые оказались у меня под рукой, скачать их можно по нескольким ссылкам, так как размер закачиваемых файлов ограничен сервером: URL >>Основы реляционных баз данных, URL >>Эффективная работа с СУБД Том 1, URL >>Эффективная работа с СУБД Том 2, URL >>Delphi 7 и базы данных. --------- Помогли тебе, помоги и ты.

Ответ отправил: Genia007 (статус: Студент) Ответ отправлен: 05.02.2009, 10:54 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 242953 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 159.627

Доброго времени суток! Преамбула: 1. частью некоего приложения является служба отправки почтовых сообщений. Эта необходимость диктуется требованием не использовать сторонние программы. 2. сервер SMTP требует авторизации. Амбула: в какой момент передавать серверу имя/пароль? Примечания: 1. в принципе желателен сценарий взаимодействия клиент/сервер. 2. если будет конкретная реализация вопроса, то я с удовольствием увижу ее, не только на дельфях.

Отправлен: 04.02.2009, 19:34 Вопрос задал: Karlson (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: PavelGM Здравствуйте, Karlson! Схема работы для SMTP (каждая строка должна завершаться CRLF): 1. Посылаем "EHLO" 1а. Ждем ответ 2. Посылаем "AUTH LOGIN" 3. Посылаем Base64Encoded(Login) 4. Посылаем Base64Encoded(Pass) 4а. Ждем ответ 5. Далее формируем заголовок и тело сообщения как положено в RFC (номера не помню правда, но найти в Инете не сложно) ...

Ответ отправил: PavelGM (статус: Практикант) Ответ отправлен: 05.02.2009, 01:20 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 242932 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Ваша помощь была весьма кстати

Отвечает: Armad Здравствуйте, Karlson! Отправка почты Стандартный порт smtp-сервера: 25. будем использовать программу Telnet. Программа Telnet входит в поставку всех операционных систем которые поддерживают tcp/ip. Для пользователей Windows: Start(Пуск)->Run(Выполнить). В окошке набираем: telnet smtp.mail.ru 25 Должна запуститься программа и сразу подсоединиться к серверу. Об удачном подключении будет свидетельствовать сообщение от сервера (что-нибудь в таком роде): 220 mx7.port.ru ESMTP MAIL.RU Mon, 2 Apr 2001 03:56:38 +0400 Это сообщение говорит нам что сервер готов к работе. Теперь можно вводить команды. Для начала можно ввести команду HELP. На эту команду сервер ответит: 214-Commands supported: 214- HELO EHLO MAIL RCPT DATA 214 NOOP QUIT RSET HELP это список команд, которые поддерживает сервер. пример отправки сообщения. Для начала нужно представиться серверу, набираем команду HELO [domain]. Domain - это имя домена, но для нас это непринципиально, вместо domain пишем все что угодно: HELO 12345 ответ сервера: 250 mx7.port.ru Hello dialup16-45.iptelecom.net.ua [212.9.229.237] сервер показал нам наше имя хоста и ip-адрес (dialup16-45.iptelecom.net.ua [212.9.229.237]). Эта информация потом будет добавлена в заголовок письма и получатель письма если его заинтересует дополнительная информация может запросто увидеть ее, заглянув в свойства письма. Следующая команда - MAIL, эта команда обязательна, используем ее для указания адреса отправителя. Синтаксис: MAIL FROM: siraxxx@mail.ru ответ сервера: 250 <siraxxx@mail.ru> is syntactically correct Обратный адрес (адрес отправителя) можно придумать и указать любой. Тепрь необходимо указать адрес получателя сообщения: RCPT TO: siraxxx@mail.ru ответ сервера: 250 <siraxxx@mail.ru> verified здесь указан свой собственный адрес, т .е. письмо, прийдет отправителю. Я вам рекомендую сделать также, тогда вы будете уверены, что все сделали правильно - после того, как получите свое собственное сообщение. И последняя основная команда: DATA ответ сервера: 354 Enter message, ending with "." on a line by itself Это вход в режим набора письма. Здесь нельзя вводить команды smtp. чтобы закончить ввод и выйти обратно в командный режим, нужно нажать [Enter] (перейти на новую строку), набрать символ [.] (просто ввести точку без скобок) и опять нажать [Enter]. Проще говоря, конец письма - это ввод точки с новой строки. А теперь о теле письма. Можно конечно сразу после входа в режим набора сообщения, начинать набирать текст. Но такое сообщение будет даже без поля Subject (то есть без темы). Хотя знать стоит только об одном поле: [reply-to]. После того как вы набрали команду DATA, для начала укажите поле reply-to: reply-to: dr_stark@chat.ru Зачем это поле? это поле не команда smtp, а просто сообщение для почтового клиента (вспомогательная информация, типа того же subject). Многие почтовые клиенты показывают в пришедшем письме только адрес отправителя указанный командой [mail from] а адрес указанный в поле [reply-to] не показывает. Но если ответить на такое сообщение (например: нажать кнопку ответить) ответ пойдет по адресу указанному в поле [reply-to] Дополнительная информация. Если вы хотите, чтобы в отправленных вами письмах присутствовала "тема", то после ввода поля [reply-to], введите поле [subject]. subject: subj of message после этого можете приступать к набору сообщения. Когда закончите - вводите точку с новой строки, и вы вернетесь в командный режим. Там вам сервер сообщит, что ваше сообщение принято: 250 OK id=11oivl-0000hm-00 Теперь можно ввести еще сообщения или отключиться, набрав команду QUIT. Итого: как все это выглядит на экране Teln et-а: 220 mx7.port.ru ESMTP MAIL.RU Mon, 2 Apr 2001 03:56:38 +0400 HELP 214-Commands supported: 214- HELO EHLO MAIL RCPT DATA 214 NOOP QUIT RSET HELP HELO 12345 250 mx7.port.ru Hello dialup16-45.iptelecom.net.ua [212.9.229.237] MAIL FROM: siraxxx@mail.ru 250 is syntactically correct RCPT TO: siraxxx@mail.ru 250 verified DATA 354 Enter message, ending with "." on a line by itself reply-to: dr_stark@chat.ru subject: subj of message this message content line1 content line2 . 250 OK id=14oivl-0000hm-00 QUIT 221 mx7.port.ru closing connection все ответы сервера начинаются с какого-то числа. Это "коды ответов" сервера. Только эти цифры являются обязательными ответами, текст, который идет после них, предназначен для упрощения понимания, и на разных серверах этот текст может быть разным, а на некоторых, возможно, вообще могут быть цифры без текста.

Ответ отправил: Armad (статус: 3-й класс) Ответ отправлен: 05.02.2009, 08:41 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 242942 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 2 Комментарий оценки: это не ответ на поставленный вопрос. авторизация иначе называется аутентификацией, где в Вашем ответе хоть слово про аутентификацию? не говоря о том, что данную команду Вы даже мимоходом не упомянули.

© 2001-2009, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.13 от 01.12.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru