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

Выпуск № 656
от 20.11.2006, 18:05

Вопрос № 62.634

Уважаемые эксперты! Помогите пожалуста! Не могу понять как вы вести текущие время, допустим на мемо. или как сделать приметно так.... большое спасибо если поможите лучше с примером. Приложение: текущие время; проверка если 13 часов то выключить ком или вывод информации на экран; конец;

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

Отвечает: Н.В. Здравствуйте, Gecobra! Получить время можно так: TimeToStr(Time); var now_time : string; begin now_time := TimeToStr(Time); Memo1.Lines.Add(now_time); if now_time = '13:00:00' then // выключить комп или вывести инфу end; Удачи!

Ответ отправил: Н.В. (статус: 10-ый класс) Ответ отправлен: 14.11.2006, 21:59 Оценка за ответ: 5

Отвечает: KiberZero Здравствуйте, Gecobra! Для преобразования числа в дату необходимо определить переменную типа дата–время-TDateTime. Приложение: procedure TForm1.Button1Click(Sender: TObject); var c:TDateTime; begin c:=now; Edit1.Text:=FloatToStr(c); Edit2.Text:=DateTimeToStr(c); Edit3.Text:=FormatDateTime('dd.mm.yyyy tt',c); end;

Ответ отправил: KiberZero (статус: 1-ый класс) Ответ отправлен: 14.11.2006, 22:32 Оценка за ответ: 5 Комментарий оценки: Всем Большое Спасибо. Все очень доходчиво и понятно.

Отвечает: Monah Здравствуйте, Gecobra! Получить время либо датту можно, как вы уже вероятно поняли функциями Time:TTime; Date:TDateTime; Now:TDateTime; Возможно Вам пригодятся следующие функции DayOfWeek(date:TdateTime):integer; возвращает день недели. Decodedate(Date:TdateTime; var Year, Month, Day:Word); Из датты возвращает год день и месяц. DecodeTime(Time:TDateTime; var Hour, Min, Sec, MSec:Word); Взвращает час. миниту, секунду и милисикунду из времени. --------- festina lente

Ответ отправил: Monah (статус: 10-ый класс) Ответ отправлен: 15.11.2006, 05:06 Оценка за ответ: 4

Отвечает: xXx Здравствуйте, Gecobra! Это можно сделать следующим способом, на форме компоненты - Memo и Timer, см. приложение: Приложение: procedure TForm1.Timer1Timer(Sender: TObject); var aa: string; begin Memo1.Lines.Strings[0] := TimeToStr(Now); Memo1.Lines.Add(''); If FormatDateTime('h', Now) = '9' Then Memo1.Lines.Strings[1] := 'Время вышло'; end; или примерно так, только в uses нужно поместить соответствующий модуль procedure TForm1.Timer1Timer(Sender: TObject); var aa: string; begin Memo1.Lines.Strings[0] := TimeToStr(Now); Memo1.Lines.Add(''); // ExitWindowsEx(EWX_SHUTDOWN,0); // end;

Ответ отправил: xXx (статус: 6-ой класс) Ответ отправлен: 15.11.2006, 06:52 Оценка за ответ: 4

Вопрос № 62.662

Уважаемые эксперты! Помогите решить вопросы: 1. Для просмотра таблиц данных из Access использую вывод значений в DBGrid. Все работает кроме одного условия. При перемещении по таблице пользуюсь мышью или компонентом TDBNavigator. При перемещении с помощью TDBNavigator остается в DBGrid выделенная полоса от мыши. Как убрать или как перемещаться с помощью стандартных кнопок? 2. Я использую Delphi 7. Не подскажете , где можно взять Help на русском языке?

Отправлен: 15.11.2006, 00:57 Вопрос задал: LeHii (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: CjJoker Здравствуйте, LeHii! Замените TDBNavigator! Реализуйте свой навигатор, методами компонента, который Вы используете для соединения. AdoTable1.Next(); AdoTable1.Prev();

Ответ отправил: CjJoker (статус: 2-ой класс) Ответ отправлен: 15.11.2006, 10:07

Вопрос № 62.663

Здравствуйте. Есть практичный вопрос. Как узнать (перехватить) входящий трафик Интернета? Хотел бы сделать программку (маленькую) которая показывала бы трафик входящего объёма (в кБ или в мБ). Если можно, то в виде конечной функции типа InTraficInternet(). А параметры функции я потом сам определю (типа в кБ или мБ выводить результат). P.S. А то у меня Инет по объёму трафика и приходится постоянно смотреть в свойствах подключения сколько уже "пришло". А так можно просто вывести на экран табличку где указывался бы объём трафика, например, в кБ. Заранее, спасибки.

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

Отвечает: Coupler Здравствуйте, AlexD! Посмотрите на вот эти исходники: http://www.delphi.int.ru/files/sources/sources_n/nettrafmonitor.zip

Ответ отправил: Coupler (статус: Студент) Ответ отправлен: 15.11.2006, 05:04

Отвечает: Решетник Д Здравствуйте, AlexD! Насколько я знаю, можно(нужно) создавать свой прокси, через который заходить в инет. он и будет вести подсчет. только на каждый порт нужен по идеи свой... удачи --------- Жизнь коротка, чтобы писать на ассемблере

Ответ отправил: Решетник Д (статус: 10-ый класс) Ответ отправлен: 15.11.2006, 23:17

Вопрос № 62.686

Здравствуйте уважаемые эксперты у меня вот такой вопрос. У меня есть еxe- файл, откомпилированный на Delphi, хотелость бы посмотреть его кодик... Подскажите пожалуйста средства для решения данного вопроса. Есть ли такие средства в Delphi, чтоб экзешник трансфомировать обратно в файлы: dpr, dfm? Заранее благодарен!!!

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

Отвечает: xXx Здравствуйте, Ножкин Кирилл Сергеевич! Вытащить из exe файлы: res, dfm - реально, а вот сами источники кода нет - pas, dpr. Удачи.

Ответ отправил: xXx (статус: 6-ой класс) Ответ отправлен: 15.11.2006, 07:10

Отвечает: Coupler Здравствуйте, Ножкин Кирилл Сергеевич! [Цитата из журнала СпецХакер:] Dede by DaFixer Самый знаменитый декомпилятор Delphi. Работает с программами, скомпилированным любыми версиями Delphi, кроме восьмой (так как она создает .NET-код). Парень с ником DaFixer, написавший его, действительно молодец. Мало того, что он создал такой полезный инструмент, он еще и не пожалел для народа исходного кода одной из его старых версий! Подобный сорец может очень пригодиться тому, кто изучает код, генерируемый борландовскими монстрами.Что же делает эта программа? Многое - разве что яичницу не жарит. Для начала предоставляет тебе все формы в оригинальном виде и дает возможность полазить по процедурам и функциям, имеющимся в программе. Помимо дизассемблерного листинга этих функций, программа пытается распознать стандартные операторы и типы Delphi и добавляет их в комментарии к ассемблерному коду. Особенно радует распознавание блоков типа: ЛИСТИНГ try .. except .. end; Кроме того, эта программа умеет создавать исходник, который можно открыть в Delphi. А если ты используешь в качестве дизассемблера WDasm (о ужас!), то тебе точно будет полезна возможность Dede экспортировать данные в понятный ему формат. В общем, весьма позитивный декомпилер. Главный минус Dede в том, что он не умеет выдергивать из exe'шника компоненты, используемые в программе. Из-за этого в сгенерированном исходнике присутствует множество нераспознанных типов данных. Но это не большая беда, так как заставить полученный код работать все равно не удастся, как ни крути. А исследовать его – пожалуйста. [Конец цитаты] Скачать можете с этой страницы: http://www.cracklab.ru/download.php?action=list&n=MjA= Прямая ссылка: http://www.cracklab.ru/download.php?action=get&n=NTA= [еще цитата из журнала СпецХакер:] SourceRescuer Еще один декомпилер Delphi, но попроще. Умеет восстанавливать формы и генерировать заголовки pas-файлов. Главное отличие от Dede – мгновенная работа и более эргономичный интерфейс. Что ж, одной программе дано иметь крутой интерфейс, другой - крутые возможности, тут ничего не поделаешь. Из главных особенностей декомпилятора можно выделить то, что он может создавать шаблон исходника не только в формате Delphi, но и в формате Builder'а. Фишка простая (после компиляции программы из Delphi и C++ Builder мало чем отличаются), но полезная. Распространяется в двух видах: GUI и консольном. Насколько я понял, требует регистрации. Взять можно отсюда: www.ems-hitech.com. [Конец цитаты] p.s. Высокоуровневый код вам не сможет предоставить ни один декомпилятор.

Ответ отправил: Coupler (статус: Студент) Ответ отправлен: 15.11.2006, 15:12

Вопрос № 62.718

Скажите, можно ли каким-нибудь образом быстро поменять название юнита. У меня большая программа и в каждом юните упоминается несколько других, а кроме того это название нужно сменить и в папке, где хранится проект. Спасибо.

Отправлен: 15.11.2006, 10:13 Вопрос задала: Lanita (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Monah Здравствуйте, Lanita! Не то чтоб совсем быстро.... Save as меню File. а потом по всем модулям ручками переправляешь имя подключеных модулей. и из папки проекта удалить ненужные уже модули. --------- festina lente

Ответ отправил: Monah (статус: 10-ый класс) Ответ отправлен: 15.11.2006, 10:24

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, Lanita! Действительно, вначале делаем "сохранить как" (Save As ...), а потом закрвыаем весь проект и кидаем все файлы с расширением .pas или .dpr в многодокументный текстовый редактор. Например, в EditPlus (этот коммерческий) или Crimson Editor (бесплатен и похож на него). Вызываете диалог "найти и заменить" и в нем устанавливаете "производить замену во всех открытых файлах", а потом что-дь типа File->Save All, закрвыаете редактор и открываете проект опять с помощью Delphi. Не совсем тривиально, но, я думаю, не так часто вам название юнитов менять приходится. --------- Не узнаешь - не попробуешь.

Ответ отправил: Сухомлин Кирилл Владимирович (статус: Практикант) Ответ отправлен: 15.11.2006, 10:47

Отвечает: Маренич Владимир Здравствуйте, Lanita! Сам долго мучался. Особенно когда хочется на основе какого-то проекта создать примерно такой-же, но с другим названием, а также в нём переименовать формы (что-то типа был проект Plugin1 с формой TfmOptionsPlugin1, а надо сделать такой же проект с названием Plugin2 с формой TfmOptionsPlugin2). Приходилось ручками всё делать: где-где, а забудешь исправить или затрёшь что-нибудь не то.... Вот и написал для себя такой проектик, который эту работу делает - пользуйтесь. Приложение: program MyRen; //Программ изменяет в текущей папке имена файлов, //содержимое всех файлов, в которых будет найдено //вхождение (параметр1) в тексте/названии файла //(параметр 2) //Например, есть файлы: Project1.dpr, Project1.dof //и т.к. запускаем "myren Project1 MyProg" //Получим файлы MyProg.dpr, MyProg.dof и т.д. //К тому же в файле Project1.dpr поменяется первая //строка: "program MyProg;" вместо "program Project1;" //Меняется только содержмое файлов *.pas, *.dpr, *.dfm // // (c) Маренич Владимир, 2005-2006 // {$APPTYPE CONSOLE} uses Windows, SysUtils, Classes; var Entry, Value, OldName, NewName: string; function HandleFile: boolean; var L: TStringList; i, j: integer; s: string; begin Result:=true; try L:=TStringList.Create; try L.LoadFromFile(NewName); for i:=0 to L.Count-1 do begin s:=L[i]; repeat j:=Pos(AnsiUpperCase(Entry), AnsiUpperCase(s)); if j<>0 then begin Delete(s, j, Length(Entry)); Insert(Value, s, j); end; until j=0; L[i]:=s; end; L.SaveToFile(NewName); finally L.Free; end; except Result:=false; end; end; var s: string; b: boolean; F: TSearchRec; i, r: integer; begin if ParamCount<>2 then begin Writeln('Rename files in current folder'); Writeln('Usage:'); Writeln('myren.exe <file name entry> <new value>'); exit; end; Entry:=ParamStr(1); Value:=ParamStr(2); r:=FindFirst('*.*', faAnyFile, F); while r=0 do begin if (F.Attr<>faDirectory) and (F.Attr<>faVolumeID) then begin OldName:=F.Name; NewName:=OldName; if Entry='' then NewName:=OldName+Value else begin i:=Pos(AnsiUpperCase(Entry), AnsiUpperCase(OldName)); if i<>0 then begin Delete(NewName, i, Length(Entry)); Insert(Value, NewName, i); end; end; b:=true; if OldName<>NewName then begin Write(OldName+' > '+NewName+' ... '); if RenameFile(OldName, NewName) then Writeln('OK') else begin b:=false; Writeln('E R R O R ! ! !'); end; end; if b and (Entry<>'') then begin s:=UpperCase(ExtractFileExt(NewName)); if (s='.PAS') or (s='.DFM') or (s='.DPR') then begin Write('Handle '+NewName+' ... '); if HandleFile then Writeln('OK') else Writeln('E R R O R ! ! !'); end; end; end; r:=FindNext(F); end; end.

Ответ отправил: Маренич Владимир (статус: Студент) Ответ отправлен: 15.11.2006, 11:01

Вопрос № 62.749

Доброго времени суток. Подскажите пожалуйста как можно сделать заставку к программе так, чтобы при загрузке приложения первой появлялась заставка и ожидала реакции пользователя : нажатие кнопки на форме : 1 - загрузка приложения, 2 - закрытие приложение без загрузки основной формы. Листинг пробного файла проектов привёл ниже. Получается немного не так как хотел. ZastUnit - заставка, TablesDB - основной модуль. Заранее спасибо. Приложение: program SpottyDB; uses Forms, TablesDB in 'TablesDB.pas' {Spotty}, About in 'About.pas' {AboutBox}, ZastUnit in 'ZastUnit.pas' {ZastForm}; {$R *.res} begin Application.Initialize; ZastForm:=TZastForm.Create(Application); ZastForm.Show; ZastForm.Update; Application.CreateForm(TSpotty, Spotty); ZastForm.Hide; ZastForm.Free; Application.CreateForm(TAboutBox, AboutBox); Application.Run; end.

Отправлен: 15.11.2006, 13:33 Вопрос задал: Фролов Егор Иванович / zanuda (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: LanK Здравствуйте, Фролов Егор Иванович / zanuda! Зачем же так сложно? :) У Вас простая задача. Приложение: Application.Initialize; Application.CreateForm(TZastForm, ZastForm); Application.Run; ************************************* procedure TZastForm.btnOK(Sender: TObject); begin Application.CreateForm(TSpotty, Spotty); Spotty.SHOW; ZastForm.Hide; end; procedure TZastForm.btnCancel(Sender: TObject); begin Application.CreateForm(TAboutBox, AboutBox); AboutBox.SHOWModal; ZastForm.Close; end; --------- Пусть все будет хорошо! Давайте жить дружно! :) И будет жить еще лучше!

Ответ отправил: LanK (статус: Студент) Ответ отправлен: 15.11.2006, 13:53 Оценка за ответ: 5

Отвечает: Кулаков Антон Сергеевич /SandroNec Здравствуйте, Фролов Егор Иванович / zanuda! В приложении код в коде на форме FZastavka две кнопки "ок" и "отмена". у кнопки "отмена" свойство ModalResult = mrcancel; по нажатию на кнопку "ок" выполняются необходимые действия а затем если все в норме то FZastavka.ModalResult := mrok или mrcancel в противном случае. Приложение: program Test; uses Forms, controls, Zastavka in 'Zastavka.pas' {FZastavka}, Umain in 'UMain.pas' {FMain}, uchangeorg in 'uchangeorg.pas' {FChangeOrg}; {$R *.res} begin Application.Initialize; Application.CreateForm(TFMain, FMain); Application.CreateForm(TFZastavka, FZastavka); if fzastavka.ShowModal = mrok then begin здесь можете всавить свой код end else application.Terminate; Application.Run; end. --------- Настоящий программист на вопрос - "можешь ли ты это сделать", всегда ответит - "да", а потом подумает как

Ответ отправил: Кулаков Антон Сергеевич /SandroNec (статус: 2-ой класс) Ответ отправлен: 15.11.2006, 13:59 Оценка за ответ: 5

Отвечает: Monah Здравствуйте, Фролов Егор Иванович / zanuda! Ну намудрили.... Приложение: program SpottyDB; uses Forms, TablesDB in 'TablesDB.pas' {Spotty}, About in 'About.pas' {AboutBox}, ZastUnit in 'ZastUnit.pas' {ZastForm}; {$R *.res} begin Application.Initialize; Application.CreateForm(TTablesDB, TablesDB); Application.CreateForm(TZastUnit, ZastUnit); if ZastUnit.showmodal<>mrOK then halt; Application.Run; end. --------- festina lente

Ответ отправил: Monah (статус: 10-ый класс) Ответ отправлен: 15.11.2006, 21:02 Оценка за ответ: 5

Отвечает: KiberZero Здравствуйте, Фролов Егор Иванович / zanuda! Вообще вариантов много, да и зависит от того, какое окно выбираете - модальное или нет. Можете попробовать такой вариант... Надеюсь, разберётесь. Приложение: program SpottyDB; uses Forms, TablesDB in 'TablesDB.pas' {Spotty}, About in 'About.pas' {AboutBox}, ZastUnit in 'ZastUnit.pas' {ZastForm}; {$R *.res} begin Application.Initialize; Application.CreateForm(TSpotty, Spotty); Application.CreateForm(TAboutBox, AboutBox); Application.Run; end. ********************************************* implementation uses Unit1; {$R *.dfm} procedure TZastForm.OpenClick(Sender: TObject); begin SpottyForm:=TZastForm.Create(Owner); SpottyForm.Show; SpottyForm.Hide; ZastForm2.Free; end; procedure TZastForm.CloseClick(Sender: TObject); begin Close; end; end. end.

Ответ отправил: KiberZero (статус: 1-ый класс) Ответ отправлен: 17.11.2006, 02:28 Оценка за ответ: 5

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.37 от 04.10.2006