HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #1  
Старый 29.11.2009, 22:40
=Zeus=
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
С нами: 8817310

Репутация: 108
По умолчанию

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

  #2  
Старый 29.11.2009, 22:53
Nightmarе
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами: 10018169

Репутация: 1680


По умолчанию

Цитата:
Сообщение от =Zeus=  
Хм, а как ты собираешься раскодировать другой функцией, если у zlib свой алгоритм...
У меня есть пример в нем 2 функции. 1-я принимает параметром поток данных (stream) и сжимает его. Ну и наоборот. Если подходит, могу кинуть. Подходит для сжатия данных любого формата.
Мне нужно именно для совместимости с php алгоритмами.
То есть получаю данные baze64 сжимаю их в Delphi, отправляю на гейт, а он через gzinflate(); дешифрует информацию.
 
Ответить с цитированием

  #3  
Старый 29.11.2009, 23:47
t04
Участник форума
Регистрация: 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).
 
Ответить с цитированием

  #4  
Старый 06.12.2009, 20:44
Nightmarе
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами: 10018169

Репутация: 1680


По умолчанию

У кого нибудь есть нормальный рабочий обусификатор .pas файлов для Delphi ???
Чтобы он шифровал\переименовывал имена функций, процедур, текстовых значений в одинарных ковычках и т.д...
Не могу найти нормального ;(
 
Ответить с цитированием

  #5  
Старый 18.12.2009, 16:46
Nightmarе
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами: 10018169

Репутация: 1680


По умолчанию

Вопрос по API функции CreateThread, как через неё сделать 10 потоков?
Вот команда на запуск функции:
h1:=beginthread(nil,1024,@incedit1,nil,0,th1);

Не могу только понять, что именно отвечает тут за количество потоков, то ли h1, то ли 1024, то ли 0....
 
Ответить с цитированием

  #6  
Старый 12.11.2009, 17:50
Thenno
Участник форума
Регистрация: 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];
 
Ответить с цитированием

  #7  
Старый 12.11.2009, 17:59
=Zeus=
Участник форума
Регистрация: 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..
 
Ответить с цитированием

  #8  
Старый 12.11.2009, 18:05
Thenno
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
С нами: 8871700

Репутация: 41
По умолчанию

Цитата:
Сообщение от =Zeus=  
Извини, но твой вариант очень медленный и неоправданный. Хотя выбирать автору вопроса.
Знаю, я об этом и писал. Громоздкий очень, а точно медленный?
P.S насчет цифр - этот момент можно оформить как первую чать.
 
Ответить с цитированием

  #9  
Старый 12.11.2009, 23:31
sadfeel
Познающий
Регистрация: 05.11.2008
Сообщений: 79
С нами: 9217193

Репутация: 12
По умолчанию

Всем привет.
Помоги плз с компонентом
В инсте задали улучшить RadioGroup. Добавил пару свойств. при подключении модуля к проге все работало на ура. как только установил компонент начались проблемы.

Вот первая из них:

Мне необходимо каждый раз при изменении Caption записывать его в переменную удалять старый Caption и на канвасе писать новый. проблема в следующем: как перехватить его при изменении к примеру в инспекторе обьектов.

я делал так: обьявлял в паблишед новое свойство Caption и просто считывал его в переменную при изменении. но при таком подходе стандартный Caption не изменяется, т.е. сразу после добавления компонента на форму у Caption нету текста, а у объекта есть. вообщем может че не так обьяснил, ну помогите перехватить Caption при изменении)
 
Ответить с цитированием

  #10  
Старый 13.11.2009, 10:26
Пуховой
Banned
Регистрация: 25.11.2007
Сообщений: 62
С нами: 9715564

Репутация: 89
По умолчанию

=Zeus=, можно регулярками. На 100 тыс. записей - 1-2 сек. на обработку.
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/Wi-Fi/Wardriving 2569 10.05.2026 13:27
[jQuery] - Задай вопрос, получи ответ Isis PHP 62 25.12.2009 03:25



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.