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

Выпуск № 547
от 30.07.2006, 16:05

Вопрос № 50.068

Добрый день господа эксперты! Вопрос конечно наверное не в эту рассылку хотя в Делфи я тоже с такой проблемой столкнулся, но сейчас я пишу я на CBuilder 6.0 sp4 и появилась необходимость вести версию проэкта. Как вести ее и как инкрементировать при компиляции мне знакомо и я этим пользуюсь, тут как бы все гуд. А вот как ее программно можно узнать(а если точнее то и версию, билд, и все остальное ) и работать с ней чтобы можно было использовать в Form->Caption, чтобы я мог запустив программу видеть вверху с какой версией программы работаю? А то залазить в свойства файла постоянно как то непроффесионально. С уважением Александр!

Отправлен: 24.07.2006, 19:14 Вопрос задал: Кныш Александр Александрович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Coupler Здравствуйте, Кныш Александр Александрович! Поскольку рассылка все-таки по delphi, то посмотрите здесь: http://delphiworld.narod.ru/base/versioninfo.html http://delphiworld.narod.ru/base/version_info2.html

Ответ отправил: Coupler (статус: Студент) Ответ отправлен: 24.07.2006, 19:52

Отвечает: Physicist Здравствуйте, Кныш Александр Александрович! Единственный (на мой взгляд) выход без того, чтобы залазить в свойства файла - использовать прием, который часто используется в Visual C++: ресурсы перекомпилируются при каждой сборке, а в rc-файлах можно использовать макросы. Поэтому можно создать файл типа version.h, в котором определить версию файла и прочие данные и подключать его как к самой программе, так и к файлу ресурса. В C++Builder'е все чуть-чуть сложнее, т.к. нужно решить несколько вопросов: 1. Как автоматически увеличивать версию файла при перекомпиляции. В Visual C++ для этих целей есть специальные плагины или макросы. Есть ли что-то аналогичное в C++Builder'е - не знаю. 2. Как запускать BRCC32 при каждой перекомпиляции проекта. 3. Как после сборки проекта запустить RLINK32, чтобы добавить ресурс к программе. Так что работать со свойствами файла из программы все-таки проще. По-моему, не так уж трудно сразу после Application->Initialize() получить из свойств файла версию файла, занести в глобальную переменную и использовать в дальнейшем везде, где нужно...

Ответ отправил: Physicist (статус: 9-ый класс) Ответ отправлен: 24.07.2006, 20:18

Вопрос № 50.093

ЗдравствуйтеБ господа Эксперты! Помогите, пожалуйста, с такой проблемой: нашел функции для получения инфы о железе, но не могу ими воспользоваться. Мне нужно из каждой получить просто строковые данные. Список функций в приложении. Если можно, покажите подробно их работу и объясните их аргументы. Заранее спасибо! Приложение: { получение имени компьютера в буфере lpBuffer длины nSize>= MAX_COMPUTERNAME_LENGTH+1 } function GetComputerName(lpBuffer: PChar; var nSize: DWORD): BOOL; // получение типа (nTypeFlag=0) или подтипа (nTypeFlag=1) клавиатуры function GetKeyboardType(nTypeFlag: Integer): Integer; { получение в буфере lpBuffer длины nBufferLength строки с корневыми каталогами всех дисков, разделенных 0-символами; результат – длина полученной строки без заключительного 0-символа } function GetLogicalDriveStrings(nBufferLength: DWORD; lpBuffer: PAnsiChar): DWORD; { получение информации об объеме текущего диска (lpRootPathName=NULL): количестве секторов в кластере (lpSectorsPerCluster), размере сектора (lpBytesPerSector), общем количестве кластеров (lpTotalNumberOfClusters), lpNumberOfFreeClusters=NULL } function GetDiskFreeSpace(lpRootPathName: PChar; var lpSectorsPerCluster, lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters: DWORD): BOOL; { получение информации о текущем диске (lpRootPathName=NULL): метке тома (в буфере lpVolumeNameBuffer длины nVolumeNameSize), серийном номере (в переменной *lpVolumeSerialNumber), файловой системе (в буфере lpFileSystemNameBuffer длины nFileSystemNameSize), lpMaximumComponentLength=NULL, lpFileSystemFlags=NULL } function GetVolumeInformation(lpRootPathName: PChar; lpVolumeNameBuffer: PChar; nVolumeNameSize: DWORD; lpVolumeSerialNumber: PDWORD; var lpMaximumComponentLength, lpFileSystemFlags: DWORD; lpFileSystemNameBuffer: PChar; nFileSystemNameSize: DWORD): BOOL;

Отправлен: 25.07.2006, 04:25 Вопрос задал: Neiroman (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Савенко Вадим Иванович Здравствуйте, Neiroman! Вот Вам для примера две процедуры: первая выводит список дисков в ComboBox, а вторая - выводит в RichEdit информацию о диске. Удачи! Приложение: procedure DriveBoxCreate(DriveBox : TComboBox); var DriveS:array[0..255]of char; P:PChar; S: string; begin if GetLogicalDriveStrings(256,DriveS) > 256 then exit; DriveBox.Clear; P:= DriveS; while P^ <> #0 do begin S:= P; DriveBox.Items.Add(S); P:= P + 4; end; end; procedure TFormDiscInfo.FormShow(Sender: TObject); var Number, FileLength, VolFlags: DWORD; SystemName: array [0..127] of Char; Buf: array [0..255] of Char; FreeAvailable, TotalSpace, TotalFree: TLargeInteger; i: integer; S: string; P: PChar; D: string; SectorsPerCluster: DWord; // Sectors per cluster BytesPerSector: DWord; // Bytes per sector NumFreeClusters: DWord; // Number of free clusters TotalClusters: DWord; // Total clusters begin D:= 'C:'; P:= PChar(D); i:= GetDriveType(P); case i of 0: S:= S + ' [неизвестный]'; DRIVE_REMOVABLE: S:= S + ' [съемный]'; DRIVE_REMOTE: S:= S + ' [сетевой]'; DRIVE_CDROM: S:= S + ' [CD_ROM]'; DRIVE_RAMDISK: S:= S + ' [виртуальный]'; else S:= S + ' [локальный]'; end; sRichEdit1.Clear; sRichEdit1.SelAttributes.Style:= [fsBold]; sRichEdit1.Lines.Add( 'Диск ' + P + S); sRichEdit1.Lines.Add(''); GetVolumeInformation (P, Buf, 256, @Number, FileLength, VolFlags, SystemName, 128); sRichEdit1.Lines.Add('идентификатор - ' + Buf); sRichEdit1.Lines.Add('серийный номер - ' + FloatToStrF(Number, ffNumber, 18, 0)); GetDiskFreeSpaceEx(P, FreeAvailable, TotalSpace, @TotalFree); sRichEdit1.Lines.Add(('емкость - ' + FloatToStrF(TotalSpace, ffNumber, 18, 0) + ' байт') + ' ( ' + FloatToStrF(TotalSpace shr 20, ffNumber, 18, 0) + ' Мбайт )'); sRichEdit1.Lines.Add(('свободно - ' + FloatToStrF(TotalFree, ffNumber, 18, 0) + ' байт') + ' ( ' + FloatToStrF(TotalFree shr 20, ffNumber, 18, 0) + ' Мбайт )'); sRichEdit1.Lines.Add(('доступно - ' + FloatToStrF(FreeAvailable, ffNumber, 18, 0) + ' байт') + ' ( ' + FloatToStrF(FreeAvailable shr 20, ffNumber, 18, 0) + ' Мбайт )'); sRichEdit1.Lines.Add('система - ' + SystemName); if (VolFlags and FS_FILE_COMPRESSION) > 0 then sRichEdit1.Lines.Add('поддерживает сжатие') else sRichEdit1.Lines.Add('не поддерживает сжатие'); sRichEdit1.Lines.Add('максимальрая длина имен файлов - ' + IntToStr(FileLength)); if (VolFlags and FS_CASE_IS_PRESERVED) > 0 then sRichEdit1.Lines.Add('сохраняет регистр имен файлов'); if (VolFlags and FS_PERSISTENT_ACLS) > 0 then sRichEdit1.Lines.Add('поддерживает ACL'); sGauge1.Progress:= (TotalSpace - TotalFree) * 100 div TotalSpace; GetDiskFreeSpace(PChar(D), SectorsPerCluster, BytesPerSector, NumFreeClusters, TotalClusters); sRichEdit1.Lines.Add(''); sRichEdit1.Lines.Add('Секторов на кластер - ' + Format('%.0n', [SectorsPerCluster * 1.0])); sRichEdit1.Lines.Add('Байт на сектор - ' + Format('%.0n', [BytesPerSector * 1.0])); sRichEdit1.Lines.Add('Свободно кластеров - ' + Format('%.0n', [NumFreeClusters * 1.0])); sRichEdit1.Lines.Add('Всего кластеров - ' + Format('%.0n', [TotalClusters * 1.0])); end;

Ответ отправил: Савенко Вадим Иванович (статус: 4-ый класс) Ответ отправлен: 25.07.2006, 06:02

Отвечает: Пёс Yo, man! кидай на форму батон и мему. по событию на клик батона пиши, что написано в приложении если не хочешь через массивы (array [0..255] of char), тады обьявляй переменные как pansichar, а затем выделяй под них память getmem. например getmem(compname,255); Приложение: procedure TForm1.Button1Click(Sender: TObject); var mcnl:dword;//maxcompname compname:array [0..255] of char; //buffer for compname drvbuf:array [0..255] of char; i,j:integer;DrvStr: array [0..9] of char; drives:array of string; FreeBytesAvailableToCaller: TLargeInteger; FreeSize: TLargeInteger; TotalSize: TLargeInteger; VolumeName,FileSystemName:array [0..255]of char; VolumeNameSize,FileSystemNameSize:DWord;VolumeSerialNumber,MaximumComponentLength,FileSystemFlags:DWORD; begin memo1.Clear; memo1.scrollbars:=ssboth; //-------------------------------------------- mcnl:=256; getcomputername(compname,mcnl); //--------------------------------------------- GetLogicalDriveStrings(1000, drvbuf); i := 0; repeat FillChar(DrvStr, SizeOf(DrvStr), #0); j := 0; repeat DrvStr[j] := drvbuf[i]; //here you get a drive name inc(j); inc(i); until (drvbuf[i] = #0) or (j > 9); inc(i); setlength(drives,length(drives)+1); //-------------------------------------- volumename:=''; VolumeSerialNumber:=0; FileSystemName:=''; VolumeNameSize:=255; FileSystemNameSize:=255; GetVolumeInformation(drvstr,VolumeName,VolumeNameSize,@VolumeSerialNumber, MaximumComponentLength, FileSystemFlags,FileSystemName,FileSystemNameSize); //---------------------------------------------- freesize:=0; //here you get a free drive space for a specified drive GetDiskFreeSpaceEx(drvstr,FreeBytesAvailableToCaller, Totalsize,@FreeSize); //put drivename and information about drive in array drives[length(drives)-1]:=(drvstr)+'free space aviable:'+ formatfloat('#.##',(freesize/1024)/1024)+' label:'+VolumeName+' sn:'+inttostr(VolumeSerialNumber)+ ' filesystem:'+FileSystemName; until ((drvbuf[i-1] = #0) and (drvbuf[i] = #0)) or (i > 255); memo1.Lines.Add('Имя компьютера:'); memo1.Lines.Add(compname); memo1.Lines.Add('Диски и другая информация о них'); for i:=0 to length(drives)-1 do memo1.Lines.Add(drives[i]); end; --------- Пока бежал, он умудрился прописать дырочку в снегу...

Ответ отправил: Пёс (статус: 2-ой класс) Ответ отправлен: 26.07.2006, 06:01

Вопрос № 50.139

Здравствуйте эксперты! Подскажите пожалуйста как можно получить исходный код страницы в Delphi 7. Я пользовался компонентом WebBrowser, но не могу получить от него исходный код страницы в поле Memo. Может нужен другой компонент или С помощью него можно получить исходный html-код?

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

Отвечает: Dr.Alex Здравствуйте, Евгений Дмитриевич! У меня была такая же проблема. И исходный текст страницы я получал через стандартный компонент NMHTTP. У него есть метод Get(Имя_твоей_страницы) и ты получаешь в текстовом виде страницу. Можно истользовать компонент из библиотеки Indy. К сожалению не помню его назавания, но что-то связанное с HTTP.

Ответ отправил: Dr.Alex (статус: 10-ый класс) Ответ отправлен: 25.07.2006, 14:47

Отвечает: Ерёмин Андрей Здравствуйте, Евгений Дмитриевич! Это удобнее сделать с помощью компонента TidHTTP из Indy Components. А делается примерно так: var Str: String; HTTP.Host:='www.host.ru'; HTTP.Connect(); Str:=HTTP.Get('http://www.host.ru/page.html'); HTTP.Disconnect; --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 25.07.2006, 15:00

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, Евгений Дмитриевич! Например, http://delphiworld.narod.ru/base/webbrowser_page_save_to_disk.html (Сам код в приложении) А вообще тут: http://delphiworld.narod.ru/_all_articles_.html очень много примеров кода по Делфи на тему "как сделать то-то". Просто поиском (Ctrl+F) по странице можно найти. С Indy я работал - не понравилось. Когда делал автоматический обработчик кода страниц, то на Indy все время какие-то баги именно на этапе загрузки были, а сколько работал с WebBrowser - все нормально. У него один недостаток - он грузит все картинки и флеш, если они у вас не отключены в IE. и трафика больше. Кстати, если вы хотите обрабатывать код страницы, чтобы работать с элементами HTML, то лучше воспользоваться готовым OLE-объектом с его DOM-структурой, пока страница загружена в WebBrowser. Приложение: uses ActiveX, MSHTML_TLB, ComCtrls, OleCtrls; procedure TForm1.Button1Click(Sender: TObject); var HTMLDocument: IHTMLDocument2; PersistFile: IPersistFile; begin HTMLDocument := WebBrowser1.Document as IHTMLDocument2; PersistFile := HTMLDocument as IPersistFile; PersistFile.Save(StringToOleStr('c:SavedFile.html'), True); end;

Ответ отправил: Сухомлин Кирилл Владимирович (статус: Студент) Ответ отправлен: 25.07.2006, 17:03

Вопрос № 50.144

День добрый. На форме имеется 30 компонент TLabel и называются они все Q1Lab, Q2Lab,..., Q30Lab и все они невидимы. А вопрос такой. Как одним разом сделать их видимыми, в смысле не писать 30 раз if .. else, а например в одном цикле. Ведь имена отличаются только числом после Q. Спасибо заранее.

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

Отвечает: Ерёмин Андрей Здравствуйте, Попцов Иван! Очень легко, с помощью цикла и метода FindComponent(). Код в приложении. Приложение: procedure TForm1.Button1Click(Sender: TObject); Var I: Integer; begin For I:=1 To 30 Do If TLabel(FindComponent('Q'+IntToStr(I)+'Lab')).Visible Then TLabel(FindComponent('Q'+IntToStr(I)+'Lab')).Visible:=False Else TLabel(FindComponent('Q'+IntToStr(I)+'Lab')).Visible:=True; end; --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 25.07.2006, 15:12 Оценка за ответ: 5 Комментарий оценки: Спасибо. Именно то что нужно. Куда бы я без вас.

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