Пишу программу на delphi ping ip адресов. Хочется реализовать чтобы если есть пинг то в компонент TListView заносились адрес и в сети он или нет. Программу дописал, но не могу это реализовать. Что если есть пинг, то заносился в строку и был зеленым , если нет пинга то красным.

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

Мне понадобилось хешировать некоторый текст методом SHA1 (не будем вдаваться в подробности). Для этого я стал искать примеры реализации на Delphi. И нашел… Код я, как смог, доработал (заработал в Delphi 2010, правильный хеш пустой строки).

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

Проблема в том, что при открытии второго файла InFileR возникает исключение (не могу получить доступ к файлу, так как он занят другим процессом), которое я вижу в except, и после этого не выполняется FreeAndNil(InFileR);, т.е. на нем тоже возникает исключение.
Что я делаю не так? Во всех примерах в интернете с TFileStream в try выполняется create, а в finally выполняется Free. Собственно Free я тоже пробовал, результат тот же.

var
  InFileL,InFileR: TFileStream;
begin
  try
    try
      InFileL:=TFileStream.Create(NameL,fmShareDenyNone);
      InFileR:=TFileStream.Create(NameR,fmShareDenyNone);
  
  //действия с файлами (в частности сравнение контрольных сумм)

    except
      on E: Exception do ShowMessage(E.Message);
    end;
  finally
      FreeAndNil(InFileL);
      FreeAndNil(InFileR);
  end;

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

Как записать информацию о файле в Memo, используя отдельно подключаемый юнит, который я нашел на просторах интернета:

unit FileInfo;

Я изучаю Delphi и мне бы хотелось вывести всю информацию о выбранном файле в memo.
Конечно, если есть варианты легче, не подключая отдельный юнит, я тоже был бы рад посмотреть.

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

Необходимо написать программу, которая при нажатии на кнопку удалила бы файл с рабочего стола или скопировала файл с рабочего стола и вставила его в папку, в которой лежит сама программ.Как получить путь к рабочему столу?

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

Есть таблица связанная с базой и графически представлена в DBGrid`е, и мне нужно сделать кнопку nодчеркивания строки и при этом чтоб было условие проверки с предыдущей строкой, по определенному полю.
В данном случае у меня поле по которому надо сделать проверку ‘VREMJA’ — дата представленая в виде AsDateTime.

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

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

ЗАДАНИЕ: Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле:

Pi/2 = (2*4)/(3*3) * (4*6)/(5*5) * (6*8)/(7*7) и т.д.

с произвольной точностью eps. Значение точности передать в функцию как аргумент. Обратиться с точностью 0,01; 0,001; 0,0001.

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

На форме есть объект (пускай Image1). В данный момент на канвасе рисуется картинка. Нужно, чтобы при наведении мыши изображение плавно появлялось, а при отведении — плавно исчезало.

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

Требуется получить все ссылки с сайта из HTML-документа. Никак не получается рекурсия для поиска по всему сайту.

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

Как сделать, чтобы функция pos искала далее, а не показывал первую найденную строку ? То есть необходимо найти второе вхождение подстроки в строку, затем третье и так далее.

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