Подскажите пожалуйста различные варианты решение вопроса.
Конечная цель — возможность выходить в интернет используя 8-10 разных ip адресов и возможность быстро между ними переключаться.
Так же возможна постоянная смена ip в пределах одного города, потому что провайдер хоть и предоставляет динамический ip, но как я понимаю он привязан к мак адресу, и при проверки показывается один и тот же публичный адрес.

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

Необходимо получить данные из таблицы без повторов (группирую по двум полям), отсортированные тоже по двум полям и (в чем у меня и получился затык) с максимальной датой.

SELECT  ID, Type, Name, Status, max(DT) FROM posts
WHERE Type = 'GT - 27'
OR Type = 'GT - 39'
GROUP BY Type, Name
ORDER BY Type, Name

В этом случае получаю записи несвязанные с полем DT (дата, время). То есть поле DT не соответствует остальным полям реальной записи.
Подскажите: куда мне копать?)
Может через подзапрсы? Все мои попытки в этом направлении провалились…

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

Каким образом работает заливка в Паинте? Как проверяется замкнутость контура? Делаю что-то вроде своей программы для рисования, хочу реализовать заливку. Решил в этот раз не изобретать какие-то там многоколесные велосипеды, вдруг есть способ проще.

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

Мне понадобилось хешировать некоторый текст методом 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;

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

Как реализовать шифрование(алгоритм — трафарет Ришелье)?

Пример:

Ключ: 2741635; 15243; 671852493; 07;28615;943;…
Открытый текст:
LETTER SENT TO THE EMPEROR GIVING FULL DETAIL
Ключ:
(2741635) (15243) (671852493) (07) (28615)(943)(2741635)
Шифртекст:
TLRTSEE ETOTN EPOEMTHER NI LUGIG VFR TLIE SAD

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

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

unit FileInfo;

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

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

Стоит задача случайно перемешать последовательность символов длинной около 70 млн символов. Подскажите как это проще всего реализовать?

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

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

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

Как сделать динамическим обратный отсчет?
Есть функция, которая вычисляет и выводит на страницу остаток времени до определенного момента, проще сказать, таймер обратного отсчета.
Проблема в том, остаток времени вычисляется по входным параметрам функции.
Вопрос:
Как сделать самовызов функции, с передачей динамических параметров?

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