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

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


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

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

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

Выпуск № 1100
от 24.03.2008, 05:35

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

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>


Вопрос № 127859: Здравствуйте Уважаемые!Нужен кусок кода или ссылка где можно прочитать о передачи видео по сети....
Вопрос № 127895: Здравствуйте! Подключаюсь к 1С. Нужно прочитать справочник "Контрагенты". Подключается норм. При попытке создать справочник ошибка: Method 'createoleobject' not supported by automation object. Делал как тут: ...
Вопрос № 127935: Здравствуйте, уважаемые эксперты. Такой вот у меня небольшой и глуповатый вопрос по Делфи: Я расположил на форме Memo1, и когда запускается программа, курсор сразу же начинает мигать в Memo1. Как сделать, чтобы он не мигал там, чтобы его там...
Вопрос № 127946: Привет Експерты. Пишу системную службу. Мне нужно периодичиски получать имя активного пользователя,а если никто не зарегестрировалса, то получать =' ' . функцыя "GetUserName" возвращает 'SYSTEM' всегда. Прочитать из реестра тоже...
Вопрос № 127970: Здравствуйте уважаемые эксперты. Пишу программу, которая выводит на экран надпись "Отдохни". (надпись расположена на второй форме) Программа должна выводить надпись раз в указанное время (раз в час допусти). Время задается на другой...
Вопрос № 128011: Здравствуйте уважаемые эксперты! Решил написать свой компонент. Опыт в написании компонентов не большой, кое как по примерам добавил в него вложенные свойства, но теперь не знаю как перерисовать компонент после изменения вложенных свойств Picture1, P...

Вопрос № 127.859
Здравствуйте Уважаемые!Нужен кусок кода или ссылка где можно прочитать о передачи видео по сети.
Отправлен: 18.03.2008, 06:12
Вопрос задал: Зотов.Г.А (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Зотов.Г.А!
Посмотрите эти материалы:
передача видео по сети

delphikingdom.com/asp/answer.asp?IDAnswer=15397
delphikingdom.com/asp/answer.asp?IDAnswer=57398 - очень много ссылок на подобные вопросы.

Удачи!
Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал)
Россия, Москва
WWW: nvsoft.org
ICQ: 420720
----
Ответ отправлен: 18.03.2008, 12:00


Вопрос № 127.895
Здравствуйте!
Подключаюсь к 1С.
Нужно прочитать справочник "Контрагенты".
Подключается норм.
При попытке создать справочник ошибка:
Method 'createoleobject' not supported by automation object.

Делал как тут:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=421

В чем причина?

Приложение:

Отправлен: 18.03.2008, 10:59
Вопрос задал: Munster (статус: 9-ый класс)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Лысенков Антон Анатольевич
Здравствуйте, Munster!

Ole1C.createobject('Справочник.Контрагенты') будет правильно
Ответ отправил: Лысенков Антон Анатольевич (статус: 10-ый класс)
Ответ отправлен: 18.03.2008, 12:19
Оценка за ответ: 5
Комментарий оценки:
Спасибо, прошло! Но теперь др. ошибка "Неудачная попытка создания объекта (Справочник.Контрагенты):0"


Вопрос № 127.935

Здравствуйте, уважаемые эксперты. Такой вот у меня небольшой и глуповатый вопрос по Делфи:
Я расположил на форме Memo1, и когда запускается программа, курсор сразу же начинает мигать в Memo1. Как сделать, чтобы он не мигал там, чтобы его там вообще не было.
Заранее спасибо. Георгий.
Отправлен: 18.03.2008, 13:29
Вопрос задал: Чечин Георгий Александрович (статус: 3-ий класс)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Чечин Георгий Александрович!
Можно установить свойство Memo1.Tabstop равным false, но в таком случае при переходе с помощью кнопки Tab по компонентам на форме, Вы не сможете перейти в Memo1.
Если на форме не только Memo, но есть и другие компоненты, можно перевести фокус на нужный из них с помощью метода SetFocus или установив значение TabOrder у нужного компонента меньше, чем у Memo.
Пишите в мини-форум, есил будут вопросы.

Удачи!
Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал)
Россия, Москва
WWW: nvsoft.org
ICQ: 420720
----
Ответ отправлен: 18.03.2008, 13:34
Оценка за ответ: 5
Комментарий оценки:
Спасибо большое за Ваш ответ. Отлично. Ваш ответ мне очень помог.
Георгий.

Отвечает: Genia007
Здравствуйте, Чечин Георгий Александрович!
Если у Вас Memo1 не один на форме, просто свойство Memo1.TabOrder установите отличным от нуля.
Ответ отправил: Genia007 (статус: 8-ой класс)
Ответ отправлен: 20.03.2008, 13:26
Оценка за ответ: 4
Комментарий оценки:
Спасибо. Но вы чуть-чуть поздновато... (смотрите мини-форум)Все равно хорошо.


Вопрос № 127.946
Привет Експерты.
Пишу системную службу. Мне нужно периодичиски получать имя активного пользователя,а если никто не зарегестрировалса, то получать =' ' .
функцыя "GetUserName" возвращает 'SYSTEM' всегда.
Прочитать из реестра тоже не полечаетса.
HKEY_CURRENT_USERSoftwareMicrosoftActive SetupInstalled Components{44BBA840-CC51-11CF-AAFA-00AA00B6015C} Username
Всегда возвращает =' '.
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionWinlogon DefaultUserName
Возвращаєт имя пользователя которий зарегестрировалса, но єсли никто не зарегестрировалса то возращает имя предидущого пользователя, щто не подходит

Помогите кто может?????

Приложение:

Отправлен: 18.03.2008, 14:31
Вопрос задал: Мельник Виктор (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Gladiator
Здравствуйте, Мельник Виктор !
Я решил эту проблему нахождением, под каким пользователем запущен explorer.exe

Код примера перенесён из мини-форума.
-----
∙ Отредактировал: sir henry (Академик)
∙ Дата редактирования: 18.03.2008, 16:20

Приложение:

Ответ отправил: Gladiator (статус: Студент)
Ответ отправлен: 18.03.2008, 14:58


Вопрос № 127.970
Здравствуйте уважаемые эксперты.
Пишу программу, которая выводит на экран надпись "Отдохни". (надпись расположена на второй форме)
Программа должна выводить надпись раз в указанное время (раз в час допусти). Время задается на другой, первой форме - форме настроек.
Между началом отсчета и выведением надписи программа не должна мешать или ограничивать пользователя в чем-либо.
А теперь вопрос: как на форме настроек постоянно выводить оставшееся время до выведения?
Отправлен: 18.03.2008, 17:19
Вопрос задал: Левадный Тимур (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Louken
Здравствуйте, Левадный Тимур!

Допустим, что время должно выводиться в Label1. Также для постоянного обновления оставшегося времени Вам необходим таймер (он должен быть включен и время срабатывания достаточно 1000 миллисекунд (свойство Interval), вобщем это стандартные настройки). Теперь напишем в обработчике события OnTimer вот что:
Label1.Caption:=TimeToStr(timeEnd-Time);
где Time - возвращает текущее время, а timeEnd - переменная в которой храниться время срабатывания.

Т.к. timeEnd нигде не объявлен, вам нужно это сделать самому, где хотите, хотите перед implementation, или же в private секции класса формы:
var
Form1: TForm1;
timeEnd: TTime;
implementation

Так же вам необходимо присвоить переменной timeEnd некоторое время, в которое должна быть показа на экране надпись. Это тоже Ваша задача и Вам решать где это сделать. По всей видимости, это должно быть сделано в момент старта программы или во время начало работы таймера и должна обновляться каждый раз, когда будет выведена надпись.
Присвоение переменной timeEnd времени должно быть примерно таким:
timeEnd:=Time+StrToTime('1:00:00');
или таким:
timeEnd:=Time+1/24;
где 1/24 - это один час, т.е. 1/24 от одного дня.

Если что, мини-форум всегда доступен. Удачи.
Ответ отправил: Louken (статус: Студент)
Ответ отправлен: 18.03.2008, 20:00
Оценка за ответ: 5
Комментарий оценки:
Большое спасибо, понял как делать

Отвечает: Genia007
Здравствуйте, Левадный Тимур!
Могу предложить следующий вариант:
var dt: TTime;{Время появления второй формы}
procedure TForm1.Timer3Timer(Sender: TObject);
begin
Edit1.Text:= TimeToStr(dt - Time);
If dt = Time then
Form2.Show;
end;
По таймеру просто отнимается текущее время от заданого времени в первой форме
dt можно присвоть так, dt:= StrToTime(Edit1.Text), где пишите 14:22:00.
Ответ отправил: Genia007 (статус: 8-ой класс)
Ответ отправлен: 20.03.2008, 13:23
Оценка за ответ: 4
Комментарий оценки:
Спасибо за ответ


Вопрос № 128.011
Здравствуйте уважаемые эксперты! Решил написать свой компонент. Опыт в написании компонентов не большой, кое как по примерам добавил в него вложенные свойства, но теперь не знаю как перерисовать компонент после изменения вложенных свойств Picture1, Picture2( Paint вызывает ошибку).

Приложение:

Отправлен: 18.03.2008, 21:24
Вопрос задал: inven (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 6)

Отвечает: Кудинов Антон Павлович
Здравствуйте, inven!

Уверен вы забыли inherited paint;

Ответ отправил: Кудинов Антон Павлович (статус: 2-ой класс)
Ответ отправлен: 18.03.2008, 21:58
Оценка за ответ: 3
Комментарий оценки:
После добавления ни чего не изменилось, так же выдает ошибку.

Отвечает: Louken
Здравствуйте, inven!

Интересно, как Вы создаете компонент класса TScrollNew? Я почти уверен что динамически, т.е. не киданием компонента с палитры компонентов на форму, а ручками, вызовом конструктора и т.п. Так вот, если так, то опять же, я почти уверен, что вы забыли задать родителя для компонента, т.е. не задали свойство Parent. Просто, в этом случае, Вы пытаетесь рисовать в "черной дыре". Возможно и ошибка у Вас такая: ...'Control '' has no parent window'...
Если все верно, то допишите для Вашего компонента, в момент его создания, еще и ScrollNew1.Parent:=Self; или ScrollNew1.Parent:=Form1; или что подобное.

А так, лично я не вижу проблеммных участков, которые могут вызвать ошибку. Правда, хочу сделать два замечания по коду:
1) Класс TPictureOptions не содержит деструктора (Destroy), в котором бы уничтожались битмапы;
2) В деструкторе класса TScrollNew не уничтожается FOptions, хотя код уничтожения битмапов там есть.

И по поводу ответа эксперта Кудинова Антона Павловича, совершенно не обязательно нужно вызывать метод отрисовки базового класса (TGraphicControl), тем более что в нем ничего не рисуется.
Ответ отправил: Louken (статус: Студент)
Ответ отправлен: 18.03.2008, 23:10
Оценка за ответ: 5
Комментарий оценки:
Огромное спасибо!


Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

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

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

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

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

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


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


© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.72.6 beta от 22.03.2008
Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное