Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

16th
Фев

Как узнать сколько кликов было по кнопке?

есть кнопка как узнать сколько кликов было по ней? (читать всё…)

Добавлено в Пост-обзор. Дата Февраль 16th, 2011

15th
Фев

Рассылка. Выпуск 92

redaktor От ведущего.

Приветствую вас, читатели рассылки. Поздравляю с прошедшим днем святого Валентина. Желаю всем любви и счастья. Читайте в сегодняшнем выпуске обзор интересных тем на форуме. (читать всё…)

Добавлено в Рассылка. Дата Февраль 15th, 2011

15th

Как вы относитесь к «копирастии» и пиратству в целом?

Ivan_32:
Меня интересует такой момент: Вот многие, вероятно, тут поддерживают идею пиратства, ну может не поддерживают, но уверен что не все тут платили за ту же Embacadero, за ту же MSVS, хотя бы по причине экономической неоправданности, проще говоря вышеозначенные IDE себя не смогут окупить в достаточной мере, что бы оправдать такую большую единовременную трату. (читать всё…)

Добавлено в Топик-обзор. Дата Февраль 15th, 2011

14th
Фев

Получить размер файла

dolphin705:

var
  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, 2011

14th

Анимация GIF в делфи

Где взять компонент который воспроизводит GIF АНИМАЦИЮ? (читать всё…)

Добавлено в Топик-обзор. Дата Февраль 14th, 2011

14th

ассемблер под линукс

Подскажите компилятор ассемблера для линукс и книгу по асм под линукс

russian-stalker:
GAS(GNU Assembler) присутствует в GCC. Использует AT&T-синтаксис по-умолчанию, но с помощью директивы препроцессора можно писать и на Intel.
По нему очень мало информации, но есть две замечательные статьи:
Очень подробная, интересная статья, но сложновато написано.
Очень просто написано, но как по мне, намного менее информативная.

Так же существует NASM. Про него ничего сказать не могу, ибо не использовал. Ставить можно из официального репозитория вашего линукса.

Тема на форуме

Добавлено в Пост-обзор. Дата Февраль 14th, 2011

12th
Фев

Клик мышью в свернутом webbrowser

Нажать на кнопку можно так:
1. Получаем любым из способов хендл окна, в котором кнопка располагается (к примеру FindWindow)
2. Потом последовательно получаем хендлы всех родительских элементов данной кнопки (к примеру есть:
Окно (класс TWindow, заголовок «Окно») -> В окне Панель (класс TPanel, заголовок «Панель»)-> на панели кнопка (класс TButton, заголовок «Жми»)
Ищем это окно по классу или заголовку ф-цией FindWindow, затем получаем хэндл панели, ф-цией FindWindowEx, а затем уже хэндл кнопки.. Ей то и отправляем сообщения.)
3. Добравшись до хэндла кнопки, управляем ею.
(читать всё…)

Добавлено в Пост-обзор. Дата Февраль 12th, 2011

10th
Фев

Квадратная задача

Здравствуйте люди.Трудно себе представить квадратных людей.Но следущая задача утверждает, что они есть.Затрудняюсь обьяснить задачу и поэтому прошу прочитать ее здесь .

(читать всё…)

Добавлено в Топик-обзор. Дата Февраль 10th, 2011

10th

Забанить IP на vBulletin

Зашел на свой форум и увидел 57 гостей, смотрю IP они начинаются на 66.249. (и там разные). Я понимаю не так просто они туда зашли…
Как забанить эту подсеть(или как привильно)?

(читать всё…)

Добавлено в Пост-обзор. Дата Февраль 10th, 2011

10th