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

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

Вопрос № 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 В чем причина? Приложение: procedure TForm2.Button2Click(Sender: TObject); var Ole1C: OleVariant; Kontr: OleVariant; begin Ole1C:=createoleobject('V1CEnterprise.Application'); Ole1C.initialize(Ole1C.RMTrade,'/DD:1С /NАдмин /P111','NO_SPLASH_SHOW'); Kontr:=Ole1C.createoleobject('Справочник.Контрагенты'); //ошибка end;

Отправлен: 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 Возвращаєт имя пользователя которий зарегестрировалса, но єсли никто не зарегестрировалса то возращает имя предидущого пользователя, щто не подходит Помогите кто может????? Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, Registry,ShellAPI; type Tfg = class(TService) procedure ServiceExecute(Sender: TService); private { Private declarations } public function GetServiceController: TServiceController; override; { Public declarations } end; var fg: Tfg; implementation {$R *.DFM} procedure ServiceController(CtrlCode: DWord); stdcall; begin fg.Controller(CtrlCode); end; function Tfg.GetServiceController: TServiceController; begin Result := ServiceController; end; /// function GetUserFromWindows: string; var UserName : string; UserNameLen : Dword; begin UserNameLen := 255; SetLength(userName, UserNameLen); if GetUserName(PChar(UserName), UserNameLen) then Result := Copy(UserName,1,UserNameLen - 1) else Result := 'Unknown'; end; procedure Tfg.ServiceExecute(Sender: TService); Var Reg: TRegistry; UName: String; begin MessageBox(0,PChar(GetUserFromWindows),'fg',MB_OK or MB_ICONQUESTION); //???GetUserFromWindows='SYSTEM' reg := TRegistry.Create; with reg do begin RootKey :=HKEY_CURRENT_USER; OpenKeyReadOnly('SoftwareMicrosoftActive SetupInstalled Components{44BBA840-CC51-11CF-AAFA-00AA00B6015C}'); UName:=ReadString('Username'); CloseKey; Free; end; MessageBox(0,PChar(UName),'fg',MB_OK or MB_ICONQUESTION); //???UName='' reg := TRegistry.Create; with reg do begin RootKey :=HKEY_LOCAL_MACHINE; OpenKey('SOFTWAREMicrosoftWindows NTCurrentVersionWinlogon', false); UName:=ReadString('DefaultUserName'); CloseKey; Free; end; MessageBox(0,PChar(UName),'fg',MB_OK or MB_ICONQUESTION); //??? end; end.

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

Отвечает: Gladiator Здравствуйте, Мельник Виктор ! Я решил эту проблему нахождением, под каким пользователем запущен explorer.exe Код примера перенесён из мини-форума. ----- ∙ Отредактировал: sir henry (Академик) ∙ Дата редактирования: 18.03.2008, 16:20 Приложение: if IsWinNT4 then begin Result := EnumProcesses(@PIDs, SizeOf(PIDs), Needed); for I := 0 to (Needed div SizeOf(DWORD)) - 1 do begin hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, PIDs[I]); if (hProcess <> 0) then begin EnumProcessModules(hProcess, @hMod, SizeOf(hMod), Needed); GetModuleFilenameEx(hProcess, hMod, ModuleName, SizeOf(ModuleName)); if LowerCase(ExtractFileName(String(ModuleName))) = 'explorer.exe' then GetUserAndDomainFromPID(PIDs[I], LocalUserName, LocalDomainName); CloseHandle(hProcess); end; end; end; if IsWinXP or IsWin2K then begin Hnd := CreateToolHelp32Snapshot( TH32CS_SNAPPROCESS, 0 ); if Hnd = INVALID_HANDLE_VALUE then Exit; ProcStruct.dwSize := SizeOf( PROCESSENTRY32 ); if Process32First( Hnd, ProcStruct ) then begin repeat hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, ProcStruct.th32ProcessID); if (hProcess <> 0) then begin if LowerCase(StrPas(ProcStruct.szExeFile)) = 'explorer.exe' then GetUserAndDomainFromPID(ProcStruct.th32ProcessID, LocalUserName, LocalDomainName); CloseHandle(hProcess); end; until not Process32Next( Hnd, ProcStruct ); CloseHandle( Hnd ); end; end;

Ответ отправил: 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 вызывает ошибку). Приложение: unit ScrollNew; interface uses SysUtils, Classes, Controls, Graphics, DesignIntf, DesignEditors; type TPictureOptions=class(TPersistent) private FPicture1 : TBitmap; FPicture2 : TBitmap; protected procedure SetPicture1(bNew: TBitmap); procedure SetPicture2(bNew: TBitmap); public constructor Create; virtual; published property Picture1 : TBitmap read FPicture1 write SetPicture1; property Picture2 : TBitmap read FPicture2 write SetPicture2; end; TScrollNew = class(TGraphicControl) private { Private declarations } FOptions: TPictureOptions; FPictureDefault : TBitmap; FPictureDefault2 : TBitmap; protected { Protected declarations } procedure SetPictureDefault(bNew: TBitmap); procedure SetPictureDefault2(bNew: TBitmap); procedure Paint; override; public { Public declarations } constructor Create(aOwner: TComponent); override; destructor Destroy; override; published { Published declarations } property PictureDefault : TBitmap read FPictureDefault write SetPictureDefault; property PictureDefault2 : TBitmap read FPictureDefault2 write SetPictureDefault2; property Options: TPictureOptions read FOptions write FOptions; end; procedure Register; implementation procedure Register; begin RegisterComponents('New', [TScrollNew]); end; constructor TPictureOptions.Create; begin inherited Create; FPicture1 := TBitmap.Create; FPicture2 := TBitmap.Create; end; procedure TPictureOptions.SetPicture1(bNew: TBitmap); begin FPicture1.Assign(bNew); end; procedure TPictureOptions.SetPicture2(bNew: TBitmap); begin FPicture2.Assign(bNew); end; constructor TScrollNew.Create(aowner:Tcomponent); begin inherited create(Aowner); FOptions:=TPictureOptions.Create; FPictureDefault := TBitmap.Create; FPictureDefault2 := TBitmap.Create; Width:=121; Height:=17; end; destructor TScrollNew.Destroy; begin FPictureDefault.Free; FPictureDefault2.Free; inherited Destroy; end; procedure TScrollNew.SetPictureDefault(bNew: TBitmap); begin FPictureDefault.Assign(bNew); Paint; end; procedure TScrollNew.SetPictureDefault2(bNew: TBitmap); begin FPictureDefault2.Assign(bNew); Paint; end; procedure TScrollNew.Paint; begin Canvas.CopyRect(ClientRect, FPictureDefault.Canvas, ClientRect); Canvas.CopyRect(ClientRect, Options.FPicture1.Canvas, ClientRect); end; end.

Отправлен: 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 Комментарий оценки: Огромное спасибо!

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