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

Выпуск № 623
от 17.10.2006, 20:05

Вопрос № 58.561

Уважаемые эксперты. Подскажите, что представляет из себя программа Delphi, и есть ли она в ОС Windows XP. Если да-то где её искать. Зарание благодарен.

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

Отвечает: Н.В. Здравствуйте, Orxideia15! Delphi - это среда разработки приложений. Создана фирмой Borland и лицензионная версия в Росси стоит примерно 56 000 рублей. В Windows XP (и ни в какой другой) не входит. Распространяется Delphi на CD или DVD дисках. Также можно скачать неполную версию с сайта http://borland.com/. Сейчас самые популярные версии Delphi5 и Delphi7. Также Borland Developer Studio 2006, в которую входит Delphi 2006. Удачи! --------- http://TheDelphi.Ru

Ответ отправил: Н.В. (статус: 7-ой класс) Ответ отправлен: 11.10.2006, 20:39

Отвечает: Monah Здравствуйте, Orxideia15! Программы на этом языке в пакете Windows вообще отсутствуют. Это самостоятельный язык и для работы с ним необходим пакет Borland Delphi. Сами же файлы проектов Delphi представляют собой набор текстовых файлов. Программы же написаные на языке Delphi предстовляют собой стандартный файл с расширениями *.exe, *.dll, *.ocx, *.bat, *.scr и других исполняемых файлов.

Ответ отправил: Monah (статус: 3-ий класс) Ответ отправлен: 11.10.2006, 21:00 Оценка за ответ: 4

Отвечает: sir henry Здравствуйте, Orxideia15! Добавлю еще к предыдущим ответам, что сейчас фирма Борланд (разработчик Дельфи) предлагает на своем сайте бесплатную версию отдельно для программирования для Win32, отдельно для .NET, под названием Turbo Explorer. К сожалению она не полная, однако для ознакомления и обучения программированию она подойдет совершенно точно. Скачать можно здесь: http://www.borland.com/downloads/download_turbo.html

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 12.10.2006, 08:54 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо за помощь. Удачи.

Вопрос № 58.567

Такой вопрос! Я создаю кисть с помощью CreatePatternBrush, и битмапа из файла. Но заполняет он, по-моему плностью данное контекстное устройство, т.е. если нарисовать ректангл и с помощью нескольких строк магического кода и событьями мыши заставить перетаскиваться (ректангл), то картинка начинает "двигаться "( хотя наоборот - прямоугольник двигается, а фон остаётся на месте). Есть какое-нибудь решение этой проблемы?

Отправлен: 11.10.2006, 21:29 Вопрос задал: Яковлев Сергей Павлович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Monah Здравствуйте, Яковлев Сергей Павлович! ИХМО всю работу с кистью лучше делать в onPaint. Просто контекст (Канва) Помнит изображение до тех порка не произойдет данное событие. Проверить просто, измени размеры окна, изображение отрисованное вне onPaint пропадет.

Ответ отправил: Monah (статус: 3-ий класс) Ответ отправлен: 11.10.2006, 21:36

Вопрос № 58.587

Не нашёл в Инете. Подскажите, как использовать многоядерность (или Hiper Threading) в Delphi? P. S. Данная рассылка - лидер по количеству экспертов среди яз-в программирования.

Отправлен: 11.10.2006, 22:52 Вопрос задал: 3лоумышленник (статус: Студент) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, 3лоумышленник! Точно так же, как и в других языках - писать многопоточные программы. А вообще, по-моему, технология hyper-threading себя не оправдала. --------- Не узнаешь - не попробуешь.

Ответ отправил: Сухомлин Кирилл Владимирович (статус: Практикант) Ответ отправлен: 12.10.2006, 00:46 Оценка за ответ: 5 Комментарий оценки: Я так и думал. Но не верил, что так просто, думал, надо что-то особенное изобретать. По-поводу "технология hyper-threading себя не оправдала". А мне мой новый проц нравится, хотя и много слышал плохого про HT, но сейчас, например, работает сканер 5-го Касперского (максимальная защита) и я свободно пишу этот ответ. Да и можно при этом музыку без пауз слушать. И оба процессора загружены. А раньше если Каспер "приверяет мой компьютер" - гиблое дело, ничего делать с компом невозможно.

Вопрос № 58.588

Я слышал, что всё-таки поддержка и разработка Delphi будет продолжаться, но заниматься этим будет не Борланд, а фирма, отделённая от Борланд'а. И называться эта среда будет Turbo Delphi for Win32 и стоить будет $400. Насколько верную инфу я получил?

Отправлен: 11.10.2006, 22:56 Вопрос задал: 3лоумышленник (статус: Студент) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: sir henry Здравствуйте, 3лоумышленник! А Вы не хотите сами получить информацию из первых уст? Или привычка пользоваться слухами более приятна? :-D Зайдите на сайт www.borland.com и почитайте, там все расписано что и почем. Дельфи теперь будет делится на два потока: 1. Собственно Borland Developer Studio, где все в одном - С++, C#, Delphi for Win32, Delphi for NET. Стоить оно будет как и прежде агромадные деньги. 2. Два типа урезанных варианта - Turbo Explorer и Turbo Professional. Turbo Explorer - сильно урезаный, но зато бесплатный вариант, разбитый по отдельности на C#, C++, Delphi for Win32 и Delphi for NET. Достоинства - легко скачивается (хотя для кого как) :) Недостатки - нельзя работать с базами данных, нельзя добавлять компоненты, урезаная возможность работы с ActiveX и, по-моему, отсутствие компонентов для интернет (Indy). Turbo Professional. Точно так-же разбит на четыре составляющие, но уже полнофункциональный. За счет разбиения стоит дешевле, чем Borland Developer Studio - около 400 долларов. Самая гадость Turbo в том, что нельзя установить одновременно скажем Turbo C# и Turbo Delphi for Win32, только что-либо одно.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 12.10.2006, 09:14 Оценка за ответ: 5 Комментарий оценки: Значит, информатор не обманул :D www.borland.com так отвратительно неудобен, что 3 раза подумаешь, прежде чем зайти туда, у О. Калашникова гораздо лучше получилось. К тому же у меня проблемы с Инетом... Я не отношусь к незаурядным людям и одновременно не программирую на Turbo C# и Turbo Delphi for Win32, C++, Фортран, Кобол, Пролог, АДА, Бэйсик, не вышиваю крестиком и не пилю лобзиком. Мне хватает для решения ВСЕХ поставленных задач D for Win32, а главное - клиенты довольны. А чем C# лучше D? Я слышал, что M$ его придумала на смену Vidual Basic. Вот непонятно, нафига Борланд этим занялся.

Вопрос № 58.623

Здравствуйте! У меня снова вопрос, с которым мне одному не справится, как сделать так чтобы программа, которую я написал на Delphi, самостоятельно запускалась при загрузке Windows, другими словами, чтоб была службой. Заранее спасибо за помощь!

Отправлен: 12.10.2006, 08:19 Вопрос задал: Майтдинов Рашит (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 8)

Отвечает: Monah Здравствуйте, Майтдинов Рашит! Во первых самостоятельно запускалась и запускалась службой это очень разные технологии. В первом случае все просто uses Registry; var r:Tregistry; r.RootKey:=HKEY_CURRENT_USER; // Для текущего пользователя или r.RootKey:=HKEY_LOCAL_MACHINE; // Для всех пользователей r.OpenKey('SOFTWAREMicrosoftWindowsCurrentVersionRun', false); r.WriteString(ExtractFileName(Application.ExeName), Application.ExeName); //регестрируем автозапуск или r.DeleteValue(ExtractFileName(Application.ExeName)); // Удаляем автозапуск

Ответ отправил: Monah (статус: 3-ий класс) Ответ отправлен: 12.10.2006, 10:46 Оценка за ответ: 5

Отвечает: Mexes Здравствуйте, Майтдинов Рашит! Упрощенный подход к созданию службы. Создаем приложение службы: File -> New -> Other... На вкладке New выбираем Service Application. Создается приложение, включающее модуль с потомком TService. У сервиса программируем событие OnExecute. Это основной цикл (напоминает TThread). Пишем что-то вроде while not Terminated do begin //foo bar, суть сервиса end; Компилируем, получаем .EXE. Запускаем Сервис.exe /install. Служба должна установиться. Но она еще не запущена. Далее а) Панель управления -> Администрирование -> Службы Находим нашу службу, делаем тип запуск Авто, запускаем ее (теперь она бдует автоматически запускаться с системой). Служба отобразится в соответствии с полем DisplayName нашего сервиса (допустим, foo). б) Либо пишем net start foo, где foo - DisplayName нашего сервиса. Служба запустится. Остановить можно либо через Панель управления -> Администрирование -> Службы, либо написав net stop foo. Убрать службу из списка: Сервис.exe /uninstall

Ответ отправил: Mexes (статус: 4-ый класс) Ответ отправлен: 12.10.2006, 16:41 Оценка за ответ: 5

Вопрос № 58.665

Здравствуйте уважаемые эксерты! Подсажите пожалуйста есть ли такая переменная, в которой содержится кол-во дисков на ком-пе. Ну в смысле (С:,D... итд). Я хочу написать программу которая будет проверять содержимое съемных устройств (н-р флешки). А как узнать имя этого устройства я не знаю.

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

Отвечает: Monah Здравствуйте, KInika! Я это делаю так, смотри приложение. Тока тебе соответственно надо проверять DRIVE_REMOVABLE а не DRIVE_FIXED Приложение: var ld: DWORD; i, n: integer; c: PChar; ch: TCheckBox; S: string; begin ld := GetLogicalDrives; n:=0; for i := 0 to 25 do begin if (ld and (1 shl i)) <> 0 then begin s:=Char(Ord('A') + i) + ':'; c:=PChar(s); case GetDriveType(c) of // DRIVE_FIXED: begin ch:=TCheckBox.Create(Self); ch.Parent:=GroupBox3; ch.Caption:=c; ch.Left:=8; ch.Height:=12; ch.Top:=n*(ch.Height+4)+16; inc(n); end; else continue; end; // case end; end; GroupBox3.Height:=n*(ch.Height+4)+24;

Ответ отправил: Monah (статус: 3-ий класс) Ответ отправлен: 12.10.2006, 14:09 Оценка за ответ: 5

Отвечает: Arvist Здравствуйте, KInika! Исользуйте приведенные в приложении функции Приложение: //существует ли диск по номеру 1-A 2-B и т.д. function DriveExists(Drive:Byte):Boolean; var Drives: set of 0..25; begin integer(Drives):=GetLogicalDrives; Result:=Drive in Drives end; // определение типа диска function CheckDriveType(Drive: Byte): string; var DriveLetter: Char; DriveType: UInt; begin DriveLetter:=Chr(Drive + $41); DriveType:=GetDriveType(PChar(DriveLetter + ':')); case DriveType of 0: Result:='?'; 1: Result:='Path does not exists'; DRIVE_REMOVABLE: Result:='Removable'; DRIVE_FIXED: Result:='Fixed'; DRIVE_REMOTE: Result:='Remote'; DRIVE_CDROM: Result:='CD_ROM'; DRIVE_RAMDISK: Result:='RAMDISK' else Result:='Unknown' end end; //вывод информации о конкретном диске var VolumeName, FileSystemName : array [0..MAX_PATH-1] of Char; VolumeSerialNo : DWord; MaxComponentLength,FileSystemFlags: Cardinal; begin GetVolumeInformation('C:',VolumeName,MAX_PATH,@VolumeSerialNo, MaxComponentLength,FileSystemFlags, FileSystemName,MAX_PATH); Memo1.Lines.Add('VolumeName = '+VolumeName); Memo1.Lines.Add('SerialNo = $'+IntToHex(VolumeSerialNo,8)); Memo1.Lines.Add('CompLen = '+IntToStr(MaxComponentLength)); Memo1.Lines.Add('Flags = $'+IntToHex(FileSystemFlags,4)); Memo1.Lines.Add('FSName = '+FileSystemName); end; //получить сисок доступных дисков var ld: DWORD; i: integer; begin ld := GetLogicalDrives; for i := 0 to 25 do begin if (ld and (1 shl i)) <> 0 then Memo1.Lines.Add(Char(Ord('A') + i) + ':'); end; end; // --------- В будущем определено одно - неопределенность будущего!

Ответ отправил: Arvist (статус: 3-ий класс) Ответ отправлен: 12.10.2006, 16:59 Оценка за ответ: 5

Вопрос № 58.677

Есть программа, работающая с Firebird. Сервер на моем компьютере. Могу я посмотреть какие SQL запросы эта программа шлет к базе данных при определенных действиях в ней?

Отправлен: 12.10.2006, 15:13 Вопрос задал: Андрей Побережный (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Mexes Здравствуйте, Андрей Побережный! Есть средства просмотра запросов, см: http://www.ibase.ru/d_tools.htm Я пользовался одной программой когда-то, но забыл какой, надеюсь, разберешься по описаниям.

Ответ отправил: Mexes (статус: 4-ый класс) Ответ отправлен: 12.10.2006, 15:30 Оценка за ответ: 3

Отвечает: Хлызов Алексей Здравствуйте, Андрей Побережный! Вообще-то Delphi тут ни при чем... Тут нужна утилита, подобная MS SQL Profiler, но я Interbase не знаю, поэтому ничем больше помочь не могу.

Ответ отправил: Хлызов Алексей (статус: 1-ый класс) Ответ отправлен: 13.10.2006, 04:51

Вопрос № 58.679

Здравствуйте! Пишу вот этот код, но когда программу пускаю никаких изменений нет.... Не знаю в чем проблема... Приложение: procedure TForm1.Timer4Timer(Sender: TObject); begin if sjetjik.Caption='60' then begin Form2.Show; Form1.Hide; Sjetjik.Caption:='0'; if StrToInt(Label2.Caption)> StrToInt(Label3.Caption) then Form2.Label67.Caption:=FloatToStr(StrToFloat(form2.Label67.Caption)+StrToFloat('3')); if StrToInt(Label2.Caption)< StrToInt(Label3.Caption) then begin Form2.Label67.Caption:=FloatToStr(StrToFloat(form2.Label67.Caption)+StrToFloat('0')); if (Form1.label29.Caption='Àê Áàðñ') then Form2.Label47.Caption:=FloatToStr(StrToFloat(form2.Label47.Caption)+StrToFloat('3')); if (Form1.label29.Caption='Ñèáèðü') then Form2.Label48.Caption:=FloatToStr(StrToFloat(form2.Label48.Caption)+StrToFloat('3')); if (Form1.label29.Caption='Õèìèê') then Form2.Label49.Caption:=FloatToStr(StrToFloat(form2.Label49.Caption)+StrToFloat('3')); if (Form1.label29.Caption='ÕÊ ÌÂÄ') then Form2.Label50.Caption:=FloatToStr(StrToFloat(form2.Label50.Caption)+StrToFloat('3')); if (Form1.label29.Caption='Àâàíãàðä') then Form2.Label51.Caption:=FloatToStr(StrToFloat(form2.Label51.Caption)+StrToFloat('3')); if (Form1.label29.Caption='Âèòÿçü') then Form2.Label52.Caption:=FloatToStr(StrToFloat(form2.Label52.Caption)+StrToFloat('3')); if (Form1.label29.Caption='Ëàäà') then Form2.Label53.Caption:=FloatToStr(StrToFloat(form2.Label53.Caption)+StrToFloat('3')); if (Form1.label29.Caption='Ñàëàâàò Þëàåâ') then Form2.Label54.Caption:=FloatToStr(StrToFloat(form2.Label54.Caption)+StrToFloat('3')); if (Form1.label29.Caption='Äèíàìî') then Form2.Label55.Caption:=FloatToStr(StrToFloat(form2.Label55.Caption)+StrToFloat('3')); if (Form1.label29.Caption='ÖÑÊÀ') then Form2.Label56.Caption:=FloatToStr(StrToFloat(form2.Label56.Caption)+StrToFloat('3')); if (Form1.label29.Caption='ÑÊÀ') then Form2.Label57.Caption:=FloatToStr(StrToFloat(form2.Label57.Caption)+StrToFloat('3')); if (Form1.label29.Caption='Íåôòåõèìèê') then Form2.Label58.Caption:=FloatToStr(StrToFloat(form2.Label58.Caption)+StrToFloat('3')); if (Form1.label29.Caption='Ëîêîìîòèâ') then Form2.Label59.Caption:=FloatToStr(StrToFloat(form2.Label59.Caption)+StrToFloat('3')); if (Form1.label29.Caption='Ñåâåðñòàëü') then Form2.Label60.Caption:=FloatToStr(StrToFloat(form2.Label60.Caption)+StrToFloat('3')); if (Form1.label29.Caption='Ìåòàëëóðã ÌÃ') then Form2.Label61.Caption:=FloatToStr(StrToFloat(form2.Label61.Caption)+StrToFloat('3')); if (Form1.label29.Caption='Òðàêòîð') then Form2.Label62.Caption:=FloatToStr(StrToFloat(form2.Label62.Caption)+StrToFloat('3')); if (Form1.label29.Caption='Ìåòàëëóðã ÍÊ') then Form2.Label63.caption:=FloatToStr(StrToFloat(form2.Label63.Caption)+StrToFloat('3')); if (Form1.label29.Caption='Êðûëüÿ Ñîâåòîâ')then Form2.Label64.Caption:=FloatToStr(StrToFloat(form2.Label64.Caption)+StrToFloat('3')); if (Form1.label29.Caption='Àìóð') then Form2.label65.Caption:=FloatToStr(StrToFloat(form2.Label65.Caption)+StrToFloat('3')); if (Form1.label28.Caption='Àê Áàðñ') then Form2.Label47.Caption:=FloatToStr(StrToFloat(form2.Label47.Caption)+StrToFloat('3')); if (Form1.label28.Caption='Ñèáèðü') then Form2.Label48.Caption:=FloatToStr(StrToFloat(form2.Label48.Caption)+StrToFloat('3')); if (Form1.label28.Caption='Õèìèê') then Form2.Label49.Caption:=FloatToStr(StrToFloat(form2.Label49.Caption)+StrToFloat('3')); if (Form1.label28.Caption='ÕÊ ÌÂÄ') then Form2.Label50.Caption:=FloatToStr(StrToFloat(form2.Label50.Caption)+StrToFloat('3')); if (Form1.label28.Caption='Àâàíãàðä') then Form2.Label51.Caption:=FloatToStr(StrToFloat(form2.Label51.Caption)+StrToFloat('3')); if (Form1.label28.Caption='Âèòÿçü') then Form2.Label52.Caption:=FloatToStr(StrToFloat(form2.Label52.Caption)+StrToFloat('3')); if (Form1.label28.Caption='Ëàäà') then Form2.Label53.Caption:=FloatToStr(StrToFloat(form2.Label53.Caption)+StrToFloat('3')); if (Form1.label28.Caption='Ñàëàâàò Þëàåâ') then Form2.Label54.Caption:=FloatToStr(StrToFloat(form2.Label54.Caption)+StrToFloat('3')); if (Form1.label28.Caption='Äèíàìî') then Form2.Label55.Caption:=FloatToStr(StrToFloat(form2.Label55.Caption)+StrToFloat('3')); if (Form1.label28.Caption='ÖÑÊÀ') then Form2.Label56.Caption:=FloatToStr(StrToFloat(form2.Label56.Caption)+StrToFloat('3')); if (Form1.label28.Caption='ÑÊÀ') then Form2.Label57.Caption:=FloatToStr(StrToFloat(form2.Label57.Caption)+StrToFloat('3')); if (Form1.label28.Caption='Íåôòåõèìèê') then Form2.Label58.Caption:=FloatToStr(StrToFloat(form2.Label58.Caption)+StrToFloat('3')); if (Form1.label28.Caption='Ëîêîìîòèâ') then Form2.Label59.Caption:=FloatToStr(StrToFloat(form2.Label59.Caption)+StrToFloat('3')); if (Form1.label28.Caption='Ñåâåðñòàëü') then Form2.Label60.Caption:=FloatToStr(StrToFloat(form2.Label60.Caption)+StrToFloat('3')); if (Form1.label28.Caption='Ìåòàëëóðã ÌÃ') then Form2.Label61.Caption:=FloatToStr(StrToFloat(form2.Label61.Caption)+StrToFloat('3')); if (Form1.label28.Caption='Òðàêòîð') then Form2.Label62.Caption:=FloatToStr(StrToFloat(form2.Label62.Caption)+StrToFloat('3')); if (Form1.label28.Caption='Ìåòàëëóðã ÍÊ') then Form2.Label63.caption:=FloatToStr(StrToFloat(form2.Label63.Caption)+StrToFloat('3')); if (Form1.label28.Caption='Êðûëüÿ Ñîâåòîâ')then Form2.Label64.Caption:=FloatToStr(StrToFloat(form2.Label64.Caption)+StrToFloat('3')); if (Form1.label28.Caption='Àìóð') then Form2.Label65.Caption:=FloatToStr(StrToFloat(form2.Label65.Caption)+StrToFloat('3')); end; end;

Отправлен: 12.10.2006, 15:22 Вопрос задал: SA2006 (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Monah Здравствуйте, SA2006! А соблюдается ли условия sjetjik.Caption='60' И второе Если значения StrToInt(Label2.Caption) и StrToInt(Label3.Caption) равны. то произойдет выход из функции. Поставь точку прерывания на первой строке. И рекомендую сразу после begin Timer4.enable:=false; и перенд посленим end; Timer4.enable:=true; так ты защитишься от срабатывания таймера во время выполнения процедуры или на точках прерывания

Ответ отправил: Monah (статус: 3-ий класс) Ответ отправлен: 12.10.2006, 15:38

Отвечает: Хлызов Алексей Здравствуйте, SA2006! В дополнение к предыдущему оратору - при сравнениях строк лучше на всякий случай использовать Trim().

Ответ отправил: Хлызов Алексей (статус: 1-ый класс) Ответ отправлен: 13.10.2006, 04:54

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