
29.11.2009, 22:40
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
С нами:
8817310
Репутация:
108
|
|
Сообщение от Nightmarе
Подскажите, есть ли на Delphi аналог php функции gzdeflate(); ?
То есть у меня огромный текст закодирован в Base64, мне надо его сжать.
Ну а далее чтобы полученный результат можно было раскодировать обычной php функцией gzinflate();
Может модули какие есть или ещё что…
Хм, а как ты собираешься раскодировать другой функцией, если у zlib свой алгоритм...
У меня есть пример в нем 2 функции. 1-я принимает параметром поток данных (stream) и сжимает его. Ну и наоборот. Если подходит, могу кинуть. Подходит для сжатия данных любого формата.
|
|
|

29.11.2009, 22:53
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Сообщение от =Zeus=
Хм, а как ты собираешься раскодировать другой функцией, если у zlib свой алгоритм...
У меня есть пример в нем 2 функции. 1-я принимает параметром поток данных (stream) и сжимает его. Ну и наоборот. Если подходит, могу кинуть. Подходит для сжатия данных любого формата.
Мне нужно именно для совместимости с php алгоритмами.
То есть получаю данные baze64 сжимаю их в Delphi, отправляю на гейт, а он через gzinflate(); дешифрует информацию.
|
|
|

29.11.2009, 23:47
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
С нами:
10175096
Репутация:
105
|
|
Сообщение от =Zeus=
Хм, а как ты собираешься раскодировать другой функцией, если у zlib свой алгоритм...
У меня есть пример в нем 2 функции. 1-я принимает параметром поток данных (stream) и сжимает его. Ну и наоборот. Если подходит, могу кинуть. Подходит для сжатия данных любого формата.
http://php.su/functions/?cat=zlib
http://php.su/functions/?gzdeflate
gzdeflate это функция из модуля zlib для php, алгоритмы одни и те же (даже в zlib для java micro edition).
|
|
|

06.12.2009, 20:44
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
У кого нибудь есть нормальный рабочий обусификатор .pas файлов для Delphi ???
Чтобы он шифровал\переименовывал имена функций, процедур, текстовых значений в одинарных ковычках и т.д...
Не могу найти нормального ;(
|
|
|

18.12.2009, 16:46
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Вопрос по API функции CreateThread, как через неё сделать 10 потоков?
Вот команда на запуск функции:
h1:=beginthread(nil,1024,@incedit1,nil,0,th1);
Не могу только понять, что именно отвечает тут за количество потоков, то ли h1, то ли 1024, то ли 0....
|
|
|

12.11.2009, 17:50
|
|
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
С нами:
8871700
Репутация:
41
|
|
Решение не оптимальное, но должно работать
i:=1;
while s[i]<>'@' do
begin
m:=m+s[i];
i:=i+1;
end;
for j:=i to length (s) do
if s[i]='1' or '2' or '3' or '4' or '5' or '6' or '7' or '8' or '9' or '0' then
p:=p+s[i];
|
|
|

12.11.2009, 17:59
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
С нами:
8817310
Репутация:
108
|
|
Сообщение от Thenno
Решение не оптимальное, но должно работать
i:=1;
while s[i]<>'@' do
begin
m:=m+s[i];
i:=i+1;
end;
for j:=i to length (s) do
if s[i]='1' or '2' or '3' or '4' or '5' or '6' or '7' or '8' or '9' or '0' then
p:=p+s[i];
Извини, но твой вариант очень медленный. В данном случае если автор хочет проверять списки (как я понимаю), то чем меньше кода тем лучше. И пароль не всегда будет состоять из цифер, так что проверка на 1-9 ни к чему. Хотя выбирать автору вопроса.
Последний раз редактировалось =Zeus=; 12.11.2009 в 18:04..
|
|
|

12.11.2009, 18:05
|
|
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
С нами:
8871700
Репутация:
41
|
|
Сообщение от =Zeus=
Извини, но твой вариант очень медленный и неоправданный. Хотя выбирать автору вопроса.
Знаю, я об этом и писал. Громоздкий очень, а точно медленный?
P.S насчет цифр - этот момент можно оформить как первую чать.
|
|
|

12.11.2009, 23:31
|
|
Познающий
Регистрация: 05.11.2008
Сообщений: 79
С нами:
9217193
Репутация:
12
|
|
Всем привет.
Помоги плз с компонентом
В инсте задали улучшить RadioGroup. Добавил пару свойств. при подключении модуля к проге все работало на ура. как только установил компонент начались проблемы.
Вот первая из них:
Мне необходимо каждый раз при изменении Caption записывать его в переменную удалять старый Caption и на канвасе писать новый. проблема в следующем: как перехватить его при изменении к примеру в инспекторе обьектов.
я делал так: обьявлял в паблишед новое свойство Caption и просто считывал его в переменную при изменении. но при таком подходе стандартный Caption не изменяется, т.е. сразу после добавления компонента на форму у Caption нету текста, а у объекта есть. вообщем может че не так обьяснил, ну помогите перехватить Caption при изменении)
|
|
|

13.11.2009, 10:26
|
|
Banned
Регистрация: 25.11.2007
Сообщений: 62
С нами:
9715564
Репутация:
89
|
|
=Zeus=, можно регулярками. На 100 тыс. записей - 1-2 сек. на обработку.
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|