Вопрос № 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)
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Зотов.Г.А!
Посмотрите эти материалы: передача видео по сети
Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва 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. Как сделать, чтобы он не мигал там, чтобы его там вообще не было.
Заранее спасибо. Георгий.
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Чечин Георгий Александрович!
Можно установить свойство 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
Возвращаєт имя пользователя которий зарегестрировалса, но єсли никто не зарегестрировалса то возращает имя предидущого пользователя, щто не подходит
Отвечает: Gladiator
Здравствуйте, Мельник Виктор ! Я решил эту проблему нахождением, под каким пользователем запущен explorer.exe
Приложение:
Ответ отправил: Gladiator (статус: Студент)
Ответ отправлен: 18.03.2008, 14:58
Вопрос № 127.970
Здравствуйте уважаемые эксперты.
Пишу программу, которая выводит на экран надпись "Отдохни". (надпись расположена на второй форме)
Программа должна выводить надпись раз в указанное время (раз в час допусти). Время задается на другой, первой форме - форме настроек.
Между началом отсчета и выведением надписи программа не должна мешать или ограничивать пользователя в чем-либо.
А теперь вопрос: как на форме настроек постоянно выводить оставшееся время до выведения?
Допустим, что время должно выводиться в 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 Комментарий оценки: Огромное спасибо!