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

made in programmersforum 8

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

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

20th
Фев

F.A.Q. по WordPress

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

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

17th
Фев

Одиночный клик в списке вместо двойного

Данный вопрос относится к скользкой теме usability. Скользкой потому что, как известно, у разных людей могут быть прямо противоположные предпочтения о том что ‘нормально’ и что нет. Поэтому мне бы хотелось, чтобы мой выбор был подкреплён статистикой. (читать всё…)

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

16th
Фев

Как сделать ограничение на использование программы по дате?

как в Delphi 7 сделать ограничение на использование программы по дате?
например: сделать так чтобы программа отказалась запускаться 1 мая 2009 года. Как сделать с реестром или что??? Если можно киньте пример (код программы) в которой стоит ограничение по дате. (читать всё…)

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

10th
Фев

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

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

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

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

10th

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

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

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

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

3rd
Фев

Формирование ответа на AJAX-запрос

Последние время меня начали мучить сомнения по поводу моих методов обработки ответа на AJAX-запрос. Я использую следующую схему:
— на пришедший запрос Я на сервере формирую строку, типа: «alert(&# 39;users&# 39; );»
— затем прогоняют полученный ответ на клиенте через eval.

Вопрос:
— Правильно ли Я делаю? Как поступаете Вы? Как формируете строку на сервере? (читать всё…)

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

2nd
Фев