Последние записи
- Windows 10 сменить администратора
- Рандомное слайдшоу
- Событие для произвольной области внутри TImage
- Удаление папки с файлами
- Распечатка файла
- Преобразовать массив байт в вещественное число (single)
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
14th
Фев
Получить размер файла
dolphin705:
var
x: integer;
f: textfile;
f1 : file;
begin
assignfile(f1,‘file.txt’);
Reset(f1,1);
x:=filesize(f1);
closefile(f1);
x: integer;
f: textfile;
f1 : file;
begin
assignfile(f1,‘file.txt’);
Reset(f1,1);
x:=filesize(f1);
closefile(f1);
assignfile(f,‘file.txt’);
append(f);
WriteLn(f,inttostr(x));
closefile(f);
Serge_Bliznykov:
Кстати, данный код не сможет прочитать размер файла больше 2 Гб (а это в настоящее время вполне даже актуально, хотя, автору топика это вряд ли… ).
вот код, избавленный от этого недостатка:
function SizeFile(s: string): int64;
var
SearchRec : _WIN32_FIND_DATAA;
begin
if FileExists(s) then begin
FindFirstFile(pchar(s), SearchRec);
result := SearchRec.nFileSizeHigh;
result := result shl 32;
result := result + SearchRec.nFileSizeLow
end
else
result := -1;
end;
или, можно так:
function GetFileSize2(namefile: string): Int64;
var InfoFile: TSearchRec;
AttrFile: Integer;
Error: Integer;
begin
AttrFile := $0000003F; // Any file
Error := FindFirst(namefile, AttrFile, InfoFile);
if Error <> 0 then result := -1
else begin
Result := InfoFile.FindData.nFileSizeHigh;
Result := Result shl 32;
Result := Result or InfoFile.FindData.nFileSizeLow
end;
FindClose(InfoFile)
end;
ну и для преобразования int64 -> строку:
function Int64ToStr(i64: int64): string;
begin
str(i64, result)
end;
14th
ассемблер под линукс
Подскажите компилятор ассемблера для линукс и книгу по асм под линукс
russian-stalker:
GAS(GNU Assembler) присутствует в GCC. Использует AT&T-синтаксис по-умолчанию, но с помощью директивы препроцессора можно писать и на Intel.
По нему очень мало информации, но есть две замечательные статьи:
Очень подробная, интересная статья, но сложновато написано.
Очень просто написано, но как по мне, намного менее информативная.
Так же существует NASM. Про него ничего сказать не могу, ибо не использовал. Ставить можно из официального репозитория вашего линукса.
12th
Фев
Клик мышью в свернутом webbrowser
Нажать на кнопку можно так:
1. Получаем любым из способов хендл окна, в котором кнопка располагается (к примеру FindWindow)
2. Потом последовательно получаем хендлы всех родительских элементов данной кнопки (к примеру есть:
Окно (класс TWindow, заголовок «Окно») -> В окне Панель (класс TPanel, заголовок «Панель»)-> на панели кнопка (класс TButton, заголовок «Жми»)
Ищем это окно по классу или заголовку ф-цией FindWindow, затем получаем хэндл панели, ф-цией FindWindowEx, а затем уже хэндл кнопки.. Ей то и отправляем сообщения.)
3. Добравшись до хэндла кнопки, управляем ею.
(читать всё…)
1. Получаем любым из способов хендл окна, в котором кнопка располагается (к примеру FindWindow)
2. Потом последовательно получаем хендлы всех родительских элементов данной кнопки (к примеру есть:
Окно (класс TWindow, заголовок «Окно») -> В окне Панель (класс TPanel, заголовок «Панель»)-> на панели кнопка (класс TButton, заголовок «Жми»)
Ищем это окно по классу или заголовку ф-цией FindWindow, затем получаем хэндл панели, ф-цией FindWindowEx, а затем уже хэндл кнопки.. Ей то и отправляем сообщения.)
3. Добравшись до хэндла кнопки, управляем ею.
(читать всё…)
10th
Фев
Квадратная задача
Здравствуйте люди.Трудно себе представить квадратных людей.Но следущая задача утверждает, что они есть.Затрудняюсь обьяснить задачу и поэтому прошу прочитать ее здесь .
10th
Забанить IP на vBulletin
Зашел на свой форум и увидел 57 гостей, смотрю IP они начинаются на 66.249. (и там разные). Я понимаю не так просто они туда зашли…
Как забанить эту подсеть(или как привильно)?
10th
Как найти все ссылки на веб странице
Получение всех (почти) ссылок с сайта. Думаю дальше разберетесь. (читать всё…)
10th
Чтение файла DWG
Есть файл *.dwg, хранящий график кривой. Подскажите как можно прочитать координаты точек, составляющих кривую. Пишу в Delphi 7. Желательно без использования дополнительных библиотек и компонентов. Полезная ссылка по DWG. Возможно в файле хранится сама функция, по которой пострен график? Вообщем просветите кто-что знает или подкиньте ссылку.
8th
Фев
Использование asm процедуры в Delphi
Как можно подключить и использовать нужную процедуру из *.obj файла?
И как нужно оглашать процедуру в ассемблере чтобы я мог ее использовать в Delphi?
Облако меток
css реестр ассемблер timer SaveToFile ShellExecute программы массив советы word MySQL SQL ListView pos random компоненты дата LoadFromFile form база данных сеть html php RichEdit indy строки Win Api tstringlist Image мысли макросы Edit ListBox office C/C++ memo графика StringGrid canvas поиск файл Pascal форма Файлы интернет Microsoft Office Excel excel winapi журнал ПРОграммист DelphiКупить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)
