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

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

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

delphi

  1. Lomanu4

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

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

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

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

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

    Определить серийный номер флешки с помощью Delphi довольно просто. Основная функция для определения SerialNumber является GetVolumeInformation, которая включает себя несколько параметров. GetVolumeInformation – это API функция принимающая ряд параметров, один из которых является указатель на...
  4. 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)...
  5. 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...
  6. 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 мне...
  7. S

    Браузер

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

    Stringgrid Зум:

    StringGrid зум: требует формы с StringGrid называемой сеткой и два TBitBtn. сетка функции масштабирования (Факт) передается коэффициентом реального числа, указывающий уровень масштабирования: Не 1,0 - никаких изменений 0,9 - Малый 1,1 - Изображение большего размера Эта функция в настоящее...
  9. 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...
  10. 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...
  11. 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 :=...
  12. 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; Код для...
  13. 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(...
  14. 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 + '\'...
  15. Sascha

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

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

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

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

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

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

    Удаление Объекта Из Базы Данных Ado Access

    Для того чтобы удалить загруженный в базу данных объект, звук либо картинку, по нажатию кнопки например. Прописываем в событии OnCreate на кнопке, следующий код: begin ADOTable1.Edit; (ADOTable1.Fields.FieldByName('Имя столбца') As TblobField).Clear; ADOTable1.Post; end; Если вы...
  19. Sascha

    Проигрываем .wav Звучки Без Mediaplayer

    Многие начинающие - Делфисты сталкиваются с ситуацией, когда нужно проиграть какой нибудь звук, безприменения компонента MediaPlayer. Сделать это можно достаточно просто, нужно лишь воспользоваться функцией API PlaySound. Для этого: 1) Прописываем в Uses модуль MMSystem и кидаем на форму...
Вверх Снизу