Что нового
  • Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

delphi

  1. Lomanu4

    Delphi TaskBar Generation progress in Icone #Delphi

    procedure TForm1.ComboBox1Change(Sender: TObject); begin case ComboBox1.ItemIndex of 0:Taskbar1.ProgressState:=TTaskBarProgressState.None; 1:Taskbar1.ProgressState:=TTaskBarProgressState.Normal; 2:Taskbar1.ProgressState:=TTaskBarProgressState.Indeterminate...
  2. Lomanu4

    FAQ Delphi FMX Virtual Keyboard in Android covers control by Lomanu4

    Одна вещь, которая действительно может добавить блеск вашему приложению, это настроить его так, чтобы, когда поле редактирования получало фокус, оно автоматически появлялось над клавиатурой на мобильных устройствах. Если этого не сделать, клавиатура иногда может закрывать поле редактирования...
  3. Lomanu4

    Delphi Функция для генерации уникального идентификатора в строке

    View: https://www.youtube.com/watch?v=WG5FoJhNEyM&feature=youtu.be Часто необходимо создать какой-то уникальный индексатор в наших приложениях. Чтобы легко решить эту проблему, вы можете использовать функцию ниже: Примечание: вам нужны эти объявленные System.SysUtils в разделе использования...
  4. Lomanu4

    Delphi error sending data 12030 , соединение с сервером было прервано delphi

    Вот сижу я такой пишу софтик... Работаю с компонентом nethttpclient,делаю запрос на получение данных в json format,на виндовс 10 все прекрасно работает. Решил протестить на виндовс 7 так как мой софт так же работает на многих платформах и приходиться тестировать на виртуалке а то и симуляторах...
  5. Lomanu4

    Delphi Определение серийного номера съемного носителя

    Определить серийный номер флешки с помощью Delphi довольно просто. Основная функция для определения SerialNumber является GetVolumeInformation, которая включает себя несколько параметров. GetVolumeInformation – это API функция принимающая ряд параметров, один из которых является указатель на...
  6. Lomanu4

    FAQ Сохраняем Bitmap в поле dbase

    Сохраняем Bitmap в поле dbase с именем Icon. Icon представляет собой двоичное Blob-поле. procedure .... var IconStream : TMemoryStream; begin IconStream := TMemoryStream.Create; Image1.picture.icon.savetostream(IconStream); (Table1.fieldbyname('Icon') as TBlobField).LoadFromStream(IconStream)...
  7. Lomanu4

    Получаем S/n Материнской Платы И Жесткого Диска

    Серийный номер мп и жд достаем из WMI если данная служка будет отключена мы ничего не получим uses ActiveX, Variants, SysUtils, ComObj; type AR = array[0..2] of string; function GetWMIObject(const objectName: string): IDispatch; var chEaten: Integer; BindCtx: IBindCtx; Moniker...
  8. S

    Помощь в коде Tchromium Beforeresourceload

    procedure TForm3.Chromium1BeforeResourceLoad(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const request: ICefRequest; out Result: Boolean); begin Request.PostData.GetElements(request.PostData.GetCount); end; Request.PostData.GetElements возвращает IInterfaceList мне...
  9. S

    Браузер

    Необходим браузер windows 1 возможность работать через прокси http/https с логином паролем 2 возможность менять юсерагент 3 авторизация на сайте ВК 1. вариант на делфи firemonkey функция openBrowser(VKlogin,VKpass,ProxyServer,ProxyPort,ProxyLogin,ProxyPass:string) при этом открывается новая...
  10. Sascha

    Stringgrid Зум:

    StringGrid зум: требует формы с StringGrid называемой сеткой и два TBitBtn. сетка функции масштабирования (Факт) передается коэффициентом реального числа, указывающий уровень масштабирования: Не 1,0 - никаких изменений 0,9 - Малый 1,1 - Изображение большего размера Эта функция в настоящее...
  11. Sascha

    Как Определить Время Последнего Изменения Файла?

    function GetFileModifyDate( FileName: string ): TDateTime; var h: THandle; Struct: TOFSTRUCT; LastWrite: Integer; begin // h := OpenFile( PChar( FileName ), Struct, OF_SHARE_DENY_NONE ); h := CreateFile( PChar( FileName ), GENERIC_READ, FILE_SHARE_READ, nil...
  12. Sascha

    Как Определить Тип Файла (как В Диалоге "свойства Файла")?

    uses {...,} ShellAPI; function MrsGetFileType( const strFilename: string ): string; var FileInfo: TSHFileInfo; begin FillChar( FileInfo, SizeOf( FileInfo), #0 ); SHGetFileInfo( PChar( strFilename), 0, FileInfo, SizeOf( FileInfo ), SHGFI_TYPENAME ); Result := FileInfo.szTypeName...
  13. Sascha

    Как Проверить, Пуста Директория, Или Нет?

    function DirectoryIsEmpty( Directory: string ): boolean; var sr: TSearchRec; i: Integer; begin Result := false; FindFirst( IncludeTrailingPathDelimiter( Directory ) + '*', faAnyFile, sr ); for i := 1 to 2 do if ( sr.Name = '.' ) or ( sr.Name = '..' ) then Result :=...
  14. Sascha

    Как Определить, Является Ли Диск Ntfs?

    uses {...,} ComObj; function IsNTFS( AFileName: string ): boolean; var fso, drv: OleVariant; begin IsNTFS := False; fso := CreateOleObject( 'Scripting.FileSystemObject' ); drv := fso.GetDrive( fso.GetDriveName( AFileName ) ); IsNTFS := drv.FileSystem = 'NTFS' end; Код для...
  15. Sascha

    Как Прочитать Владельца Файла (ntfs)?

    function GetFileOwner( FileName: string; var Domain, Username: string ): boolean; var SecDescr: PSecurityDescriptor; SizeNeeded, SizeNeeded2: DWORD; OwnerSID: PSID; OwnerDefault: BOOL; OwnerName, DomainName: PChar; OwnerType: SID_NAME_USE; begin Result := false; GetMem(...
  16. Sascha

    Как Очистить Директорию?

    function ClearDir( Dir: string ): boolean; var isFound: boolean; sRec: TSearchRec; begin Result := false; ChDir( Dir ); if IOResult <> 0 then begin ShowMessage( 'Не могу войти в каталог: ' + Dir ); Exit; end; if Dir[Length(Dir)] <> '\' then Dir := Dir + '\'...
  17. Sascha

    Работа С Ini Файлами В Delphi

    При при написании программ оперирующих например какими нибудь рассчетами, иногда требуется сохранять настройки, чтобы после очередного запуска приложения не вводить их вновь. Здесь как раз и приходят на выручку ini файлы...
  18. Sascha

    Задание Ширины Столбцам Dbgrid

    При создании баз данных ADO (ADOTable, ADOQuery) ширина столбцов в DBGrid устанавливается произвольно и часто выходит за его границы. Для того, чтобы установить необходимую ширину и упорядочить таблицу, рекомендую воспользоваться следующим кодом: В событии OnCreate на форме прописываем: begin...
  19. Sascha

    Загрузка .bmp Изображения В Базу Данных Ado Access.

    Иногда возникает необходимость, вставки изображения в базу данных, а также организовать отображение загруженной картинки. Для этого необходимо: 1) Установить в Access тип поля, где предполагается хранить обьект в - Поле объекта OLE 2) Добавить на форму один...
Вверх