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

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

Проблема в том, что при открытии второго файла 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;

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