ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
29.11.2009, 22:40
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
Провел на форуме:
724939
Репутация:
108
|
|
Сообщение от Nightmarе
Подскажите, есть ли на Delphi аналог php функции gzdeflate(); ?
То есть у меня огромный текст закодирован в Base64, мне надо его сжать.
Ну а далее чтобы полученный результат можно было раскодировать обычной php функцией gzinflate();
Может модули какие есть или ещё что…
Хм, а как ты собираешься раскодировать другой функцией, если у zlib свой алгоритм... 
У меня есть пример в нем 2 функции. 1-я принимает параметром поток данных (stream) и сжимает его. Ну и наоборот. Если подходит, могу кинуть. Подходит для сжатия данных любого формата.
|
|
|
29.11.2009, 22:53
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Сообщение от =Zeus=
Хм, а как ты собираешься раскодировать другой функцией, если у zlib свой алгоритм...
У меня есть пример в нем 2 функции. 1-я принимает параметром поток данных (stream) и сжимает его. Ну и наоборот. Если подходит, могу кинуть. Подходит для сжатия данных любого формата. Мне нужно именно для совместимости с php алгоритмами.
То есть получаю данные baze64 сжимаю их в Delphi, отправляю на гейт, а он через gzinflate(); дешифрует информацию.
|
|
|
|
29.11.2009, 23:47
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме:
246020
Репутация:
105
|
|
Сообщение от =Zeus=
Хм, а как ты собираешься раскодировать другой функцией, если у zlib свой алгоритм...
У меня есть пример в нем 2 функции. 1-я принимает параметром поток данных (stream) и сжимает его. Ну и наоборот. Если подходит, могу кинуть. Подходит для сжатия данных любого формата. http://php.su/functions/?cat=zlib
http://php.su/functions/?gzdeflate
gzdeflate это функция из модуля zlib для php, алгоритмы одни и те же (даже в zlib для java micro edition).
|
|
|
|
29.11.2009, 23:48
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
Провел на форуме:
724939
Репутация:
108
|
|
Сообщение от t04
http://php.su/functions/?cat=zlib
http://php.su/functions/?gzdeflate
gzdeflate это функция из модуля zlib для php, алгоритмы одни и те же (даже в zlib для java micro edition).
Спасибо, не знал. Тогда Найтмеару подойдет?
Код:
uses ZLib;
procedure TForm1.PackStream(Var sSrc: TMemoryStream);
var UnknownPtr: pointer;
NewSize: integer;
begin
sSrc.Position:=0;
try
CompressBuf(sSrc.Memory,sSrc.Size,UnknownPtr,NewSize);
sSrc.clear;
sSrc.Write(UnknownPtr^,NewSize);
sSrc.Position:=0;
finally
FreeMem(UnknownPtr,NewSize);
end;
end;
Последний раз редактировалось =Zeus=; 30.11.2009 в 00:04..
|
|
|
|
30.11.2009, 01:23
|
|
Участник форума
Регистрация: 22.11.2008
Сообщений: 142
Провел на форуме:
636446
Репутация:
32
|
|
Всем доброго времени суток!
Задался целью научится работать с ресурсами.
А конкретнее хочу воспроизвести звук из ресурса.
Руководствовался этой статьёй.
Как ни крутил нифига не вышло.
Может у кого был опыт в подобном?
Заранее всем спасибо! |
|
|
|
30.11.2009, 01:33
|
|
Участник форума
Регистрация: 11.07.2009
Сообщений: 175
Провел на форуме:
2835808
Репутация:
185
|
|
2Flenov
Код выложи, и что конкретно не получается?
PlaySound(Pchar('.\sounds\123.wav'),0,SND_ASYNC);
Вот так правильно думаю будет
Последний раз редактировалось h(f)ucker; 30.11.2009 в 01:35..
|
|
|
|
30.11.2009, 01:53
|
|
Участник форума
Регистрация: 22.11.2008
Сообщений: 142
Провел на форуме:
636446
Репутация:
32
|
|
Почитай мой пост повнимательней.
Я хочу воспроизвести звук из ресурса.
А ты мне показываешь как из файла.
Я надеюсь, ты знаешь что такое ресурс?
Последний раз редактировалось Flenov; 30.11.2009 в 02:02..
|
|
|
|
30.11.2009, 01:59
|
|
Участник форума
Регистрация: 11.07.2009
Сообщений: 175
Провел на форуме:
2835808
Репутация:
185
|
|
"Ресурс" - пленка полиэтиленовая, термоусадочная пленка
Are u ponel?
Я тебе пример привел а не сказал как именно сделать, но ещё раз повторю выложи код!
|
|
|
|
30.11.2009, 15:10
|
|
Новичок
Регистрация: 06.11.2009
Сообщений: 2
Провел на форуме:
6374
Репутация:
0
|
|
Люди, может мне кто нибудь помочь то??
|
|
|
|
30.11.2009, 16:05
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Сообщение от =Zeus=
Спасибо, не знал. Тогда Найтмеару подойдет?
Код:
uses ZLib;
procedure TForm1.PackStream(Var sSrc: TMemoryStream);
var UnknownPtr: pointer;
NewSize: integer;
begin
sSrc.Position:=0;
try
CompressBuf(sSrc.Memory,sSrc.Size,UnknownPtr,NewSize);
sSrc.clear;
sSrc.Write(UnknownPtr^,NewSize);
sSrc.Position:=0;
finally
FreeMem(UnknownPtr,NewSize);
end;
end;
Почему-то кодирует он в бинарнй код а не в Base64
если можно, покажите пример команды чтобы сжать текст в сжатую Base64 готовую для дешифровки через php функцию
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
