Если у вас установлено несколько версий Delphi, вы можете использовать мой батник (вернее, cmd-шник) для компиляции любой версией. Ну и ещё несколько вспомогательных…

Файлы:

• dcc.cmd — основной файл для компиляции, имеет много опций, запускайте без параметров и смотрите возможные варианты опций.
• cleanupdpr.cmd — очистка от лишних файлов (как работает см. ниже).
• d64.cmd — запуск dcc.cmd с опцией /64
• d7.cmd — запуск Delphi 7 IDE
• d07.cmd — запуск Delphi 2007 IDE
• d102.cmd — запуск Delphi 2007 IDE
• dccAll.cmd — компиляция всеми компиляторами (после каждого пауза с вопросом: продолжить или нет)
• dccAllE.cmd — компиляция всеми компиляторами (пауза с вопросом только в случае ошибки)
• dccAllS.cmd — компиляция всеми компиляторами (пауза с вопросом только в случае успешной компиляции)
• dccAllF.cmd — компиляция всеми компиляторами (аналогично dccAllE.cmd) с созданием папки под каждый компилятор, т.е. на выходе получаем файл, скомпилированный каждым компиляторов в отдельную папку
• bds2007.bat — запуск Delphi 2007 IDE (учитывая, что там есть косяки с файлом EditorLineEnds.ttr в %TEMP%)

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

Вот такой код позволяет читать данные из cfg-файла:

for /f "eol=# delims== tokens=1*" %%i in (%~dpn0.cfg) do (
    set %%i=%%j
)

записанные в таком формате:

# это коммент
mainpath=%ProgramFiles(x86)%\MyDir
mainexe=MyProg.exe

Но тут есть проблема.
Мы получаем переменные окружения со значениями:
mainpath=%ProgramFiles(x86)%\MyDir
mainexe=MyProg.exe
Т.е. как есть. Строка «%ProgramFiles(x86)%» не раскрывается в «C:\Program Files (x86)»
Соответственно if exist %mainpath%\%mainexe% set found=1 не сработает.

Что можно изменить в этом коде, чтобы %-переменные раскрывались?
p.s. Мне не нужно просто вывести на экран значение через cmd /c echo %mainpath%, мне надо заполучить эти значения в переменную окружения…

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

через сервер отправляю информацию а на другом через клиент получаю

 byte[] buffer = new byte[48];
                        client.Receive(buffer);
                    
                        string komanda;
                        komanda = Encoding.UTF8.GetString(buffer);

допустим отправил слово HELLO_ME получаю на клиенте
HELLO_ME -с пробеломи ( то есть слово а потом пробелы. если длина слово 8 после этого слова +40 пробелов если 10 + 38 пробелов и тд)
пытался TRİM-ом и REPLACE- ом не получилась
то есть не удаляет не нужные символы(пробелы или невидимые байты и тд)
как решить проблему?
получаемое слово может быть любой длины HELLO_ME THİS_İS_ME и тд
как удалить лишнюю часть после слово

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

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

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

Как сделано в известных соц.сетях, когда вводишь адрес:
vn.com/vasya
на самом деле отрабатывает
vn.com/profile.php?id=vasya
А если вручную ввести второй адрес, то отобразится все равно первый!
Как они это делают?

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

Как заменить текст с условием? То есть если строка в колонке number равна 5 символам то заменяем ее на «Москва». СУБД MySQL.

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

Подскажите пожалуйста различные варианты решение вопроса.
Конечная цель — возможность выходить в интернет используя 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, правильный хеш пустой строки).

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