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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS
←   Ноябрь 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.307 подписчиков
0 за неделю
←   Все выпуски   →

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


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

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

Выпуск № 299
от 19.11.2005, 13:12

Администратор:Калашников О.А.
В рассылке:Подписчиков: 246, Экспертов: 46
В номере:Вопросов: 5, Ответов: 9

Вопрос № 29482: Здравствуйте, необходимо строку, полученую из Memo.Text перевести в кодировку Koi-8R для отправки с помощью TIdmessage и TIdSMTP Как это сделать?...
Вопрос № 29492: Здравствуйте, уважаемые эксперты! У меня listview, вид как бы в 3 колонки. Как можно взять текст из третьей колонки. Да и еще как сделать чтоб при клике по элементу в колонке его можно было править, текст в нем....
Вопрос № 29494: Здравствуйте!Скажите пожалуйста, где здесь ошибка (MediaPlayer должен проигрывать каждый следущий файл, компоненты из Jedi Vcl) : (см. прил.) Заранее благодарю за подробные (и ясные даже чайнику) ответы!...
Вопрос № 29496: Начальные условия: Есть винда.. Хр(!).. Есть процесс, у него есть куча окон... Известно: Хендлы всех окон этого процесса, заголовки всех окон, имя самого исполняемого файла, например "Proga.exe"! Задача: КАК найт...
Вопрос № 29509: Ув ЭКСПЕРТы! У меня вопрос как можно с вордовского файла выделить текст в интервале например <!vopros> текст для выделения <!vopros> и скопировать в ole контейнер желетельно примерчик с/у Ера ...

Вопрос № 29.482
Здравствуйте,
необходимо строку, полученую из Memo.Text перевести в кодировку Koi-8R для отправки с помощью TIdmessage и TIdSMTP
Как это сделать?
Отправлен: 13.11.2005, 19:38
Вопрос задал: Vitava (статус: 3-ий класс)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 2)
Отвечает: sir henry
Здравствуйте, Vitava!
Создать два массива. Один - коды букв для Win1251, второй - для koi-8. Каждую букву в строке ищите в первом массиве, а потом подставляете соответствующую по индексу из второго массива.
Ответ отправил: sir henry (статус: Академик)
Отправлен: 14.11.2005, 05:06
Отвечает: Schmak
Здравствуйте, Vitava!
Составьте массив a:array [0..255] of char с буквами кодировки KOI-8R. Далее посимвольно определяем код символа и заменяем на букву из массива:

s:=memo1.text; //s:string;
for i:=1 to length(s) do
begin
c:=ord(s[i]); // c:byte;
s[i]:=a[c];
end;
memo1.text:=s;
---------
Не всё то Windows, что висит!
Ответ отправил: Schmak (статус: 8-ой класс)
Отправлен: 14.11.2005, 05:43

Вопрос № 29.492
Здравствуйте, уважаемые эксперты!
У меня listview, вид как бы в 3 колонки. Как можно взять текст из третьей колонки. Да и еще как сделать чтоб при клике по элементу в колонке его можно было править, текст в нем.
Отправлен: 13.11.2005, 21:36
Вопрос задал: Yxo (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Ерёмин Андрей
Здравствуйте, Yxo!
У каждого из пунктов Items в TListView есть SubItems типа TStrings, поэтому можно читать данные вот так: ListView1.Items[2].SubItems[1];.
По поводу редактирования - в Options есть какой-то параметр вроде goEditing, который нужно поставить в True.
---------
Где найти кpяк под ковpик для однокнопочного мыша?
Ответ отправил: Ерёмин Андрей (статус: Специалист)
Отправлен: 13.11.2005, 22:40
Отвечает: Schmak
Здравствуйте, Yxo!
Просто у элемента items[i] есть свойство subitems[j] (нумерация идёт с нуля), поэтому учитывая, что первый столбец это Item получаем
s:=ListView1.Items[1].SubItems[1] // для 3-ого столбца, s:string

---------
Не всё то Windows, что висит!
Ответ отправил: Schmak (статус: 8-ой класс)
Отправлен: 14.11.2005, 05:43

Вопрос № 29.494
Здравствуйте!Скажите пожалуйста, где здесь ошибка (MediaPlayer должен проигрывать каждый
следущий файл, компоненты из Jedi Vcl) :
(см. прил.)
Заранее благодарю за подробные (и ясные даже чайнику) ответы!

Приложение:

Отправлен: 13.11.2005, 21:45
Вопрос задал: Vic (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Ерёмин Андрей
Здравствуйте, Vic!
Попробуйте перед тем, как присваивать новое значение в MediaPlayer.FileName закрывать предыдущий проигрываемый файл: Player.Close;
---------
Где найти кpяк под ковpик для однокнопочного мыша?
Ответ отправил: Ерёмин Андрей (статус: Специалист)
Отправлен: 13.11.2005, 22:42
Отвечает: sir henry
Здравствуйте, Vic!
Вам нужно сделать цикл проигрывания:
For i:=0 To Jvlistbox1.Count-1
Begin
{А здесь будут собственно действия с MediaPlayer}
End;
i - это будет номер файла из Jvlistbox1, т.е. можно будет значительно упростить синтаксис, например вместо:
s:=ExtractFileExt(Jvlistbox1.Items.Strings[Jvlistbox1.ItemIndex]);
написать:
s:=ExtractFileExt(Jvlistbox1.Items[i]);
Ответ отправил: sir henry (статус: Академик)
Отправлен: 14.11.2005, 05:23

Вопрос № 29.496
Начальные условия:
Есть винда.. Хр(!)..
Есть процесс, у него есть куча окон...
Известно:
Хендлы всех окон этого процесса, заголовки всех окон, имя самого исполняемого файла, например "Proga.exe"!
Задача:
КАК найти путь к этому файлу? Именно саму папку откуда запустили эту прогу...
PS
Вариант GetWindowModuleFileName не предлагать, т.к. в хр не работает..
Искал везде.. нигде не нашел.. :) Надеюсь только на вашу помошь...
Отправлен: 13.11.2005, 23:08
Вопрос задал: MiXei4 (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Denisss
Здравствуйте, MiXei4!
1. Application.ExePath;
2. ParamStr(0);
Ответ отправил: Denisss (статус: Практикант)
Отправлен: 13.11.2005, 23:33
Оценка за ответ: 3
Комментарий оценки:
Спасибо за помощь, извините за оценку...
Мне надо путь к чужой проге, а не к своей...
Отвечает: sir henry
Здравствуйте, MiXei4!
Наверное не там искали. :)
Нужно сделать снимок процессов системы. Раз Вы все хэндлы знаете, то наверное сделали. :)
У TProcessEntry32 есть поле szExeFile, вот оно, собственно, и содержит путь.
Если трудности с реализацией, то на delphiworld.narod.ru лежит пример.
Ответ отправил: sir henry (статус: Академик)
Отправлен: 14.11.2005, 05:41
Оценка за ответ: 5
Комментарий оценки:
Спасибо.. Нашел на Delphiworld хорошую статейку.. Хотя до этого уже искал там.. :)

Вопрос № 29.509
Ув ЭКСПЕРТы!
У меня вопрос как можно с вордовского файла выделить текст в интервале например <!vopros> текст для выделения <!vopros> и
скопировать в ole контейнер
желетельно примерчик
с/у Ера
Отправлен: 14.11.2005, 09:24
Вопрос задал: ERA (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: sir henry
Здравствуйте, ERA!
Если указать диапазон символов, которые надо скопировать, то так:
a:=10; {Начало фрагмента}
b:=100; {Конец фрагмента}
WordDocument1.Range(a,b).Select; {Выделение}
WordDocument1.Selection.Copy; {Копирование в клипборд}
А уж как вставить в свой компонент из клипборда - Вы и сами знаете.
Ответ отправил: sir henry (статус: Академик)
Отправлен: 14.11.2005, 10:05

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

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

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

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


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

© 2001-2005, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале 		Яндекс Rambler's Top100 hotlog_js="1.0"; hotlog_r=""+Math.random()+"&s=314124&im=101&r="+escape(document.referrer)+"&pg="+ escape(window.location.href); document.cookie="hotlog=1; path=/"; hotlog_r+="&c="+(document.cookie?"Y":"N"); hotlog_js="1.1";hotlog_r+="&j="+(navigator.javaEnabled()?"Y":"N") hotlog_js="1.2"; hotlog_r+="&wh="+screen.width+'x'+screen.height+"&px="+ (((navigator.appName.substring(0,3)=="Mic"))? screen.colorDepth:screen.pixelDepth) hotlog_js="1.3" hotlog_r+="&js="+hotlog_js; document.write("HotLog")
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора 		Подписан адрес:
Код этой рассылки: comp.soft.prog.delphiplus
Архив рассылки 		Отписаться
Вспомнить пароль
В избранное