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

made in programmersforum 4

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

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

16th
Фев

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

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

Добавлено в Пост-обзор. Дата Февраль 16th, 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

12th
Фев

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

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

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

10th
Фев

Чтение файла DWG

Есть файл *.dwg, хранящий график кривой. Подскажите как можно прочитать координаты точек, составляющих кривую. Пишу в Delphi 7. Желательно без использования дополнительных библиотек и компонентов. Полезная ссылка по DWG. Возможно в файле хранится сама функция, по которой пострен график? Вообщем просветите кто-что знает или подкиньте ссылку.

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

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

8th
Фев

Использование asm процедуры в Delphi

Как можно подключить и использовать нужную процедуру из *.obj файла?
И как нужно оглашать процедуру в ассемблере чтобы я мог ее использовать в Delphi?

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

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

8th

Растягивание TImage без масштабирования

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

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

4th
Фев

Запрет выхода курсора за форму

Нужно сделать так чтобы курсор не выходил за форму, а останавливался у края (как бэ ударяясь). Помогите пожалуйста, если кто знает как осуществить. (читать всё…)

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

3rd
Фев