Вверх ↑
Этот топик читают: Гость
Ответов: 20
Рейтинг: 0
#1: 2020-07-27 12:46:53 ЛС | профиль | цитата
При использовании zlib элемента для архивации в программе, надо чтобы zlib.dll с программой в одной папке находились или она необязательна?
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 1617
Рейтинг: 116
#2: 2020-07-27 13:12:02 ЛС | профиль | цитата
Библиотека обязательна, если она уже не лежит в путях по умолчанию(c:\Windows\system\, или c:\Windows\system32\) или компонент уже не содержит вшитую dll.

Редактировалось 1 раз(а), последний 2020-07-27 14:26:49
карма: 4

0
Ответов: 20
Рейтинг: 0
#3: 2020-07-27 13:48:52 ЛС | профиль | цитата
Компонент zlib содержит вшитую dll?
карма: 0

0
Ответов: 1617
Рейтинг: 116
#4: 2020-07-27 14:21:03 ЛС | профиль | цитата
Gik, откуда я знаю, содержит этот компонент у тебя вшитую dll или нет? Я не баба Ванга!
У меня все подобные компоненты со вшитыми dll - не один раз выкладывал их и sqlite3 тоже.

Редактировалось 1 раз(а), последний 2020-07-27 14:23:38
карма: 4

0
Ответов: 20
Рейтинг: 0
#5: 2020-07-27 14:23:56 ЛС | профиль | цитата
Компонент из обычной Alt build 4, не редактированный.
карма: 0

0
Ответов: 1617
Рейтинг: 116
#6: 2020-07-27 14:26:01 ЛС | профиль | цитата
Чего тогда мусолим?
В первом моём посте всё изложено!
карма: 4

0
Ответов: 20
Рейтинг: 0
#7: 2020-07-27 14:29:28 ЛС | профиль | цитата
Не могу понять, нормально он работает с fpc 3.2.0 или нет.
карма: 0

0
Ответов: 1617
Рейтинг: 116
#8: 2020-07-27 14:36:28 ЛС | профиль | цитата
Она(библиотека) и с C++ нормально работает и с любыми другими языками!
карма: 4

0
Главный модератор
Ответов: 2928
Рейтинг: 385
#9: 2020-07-27 14:52:56 ЛС | профиль | цитата
Анекдот
Папа-программист сидит за компьютером. Рядом стоит маленький сын и жует яблоко. Вдруг он спрашивает:
— Папа, а почему, если укусить яблочко, оно потом становится коричневым?
Отец, не поворачивая головы от компьютера:
— Видишь ли, в яблоке содержится железо. После того, как плод лишается кожуры, железо окисляется под воздействием кислорода, образуется оксид железа, который имеет темную окраску.
Пауза минут на десять, после чего сын робко спрашивает:
— Пап, а с кем это ты сейчас разговаривал?
карма: 7
Дорогу осилит идущий. HiAsm.NET is based on HiAsm 5
0
Ответов: 4567
Рейтинг: 493
#10: 2020-07-27 16:25:42 ЛС | профиль | цитата
ну конечно, анекдоты проблему решают
ZipperExhttps://forum.hiasm.com/getfile/38365
карма: 6

0
Ответов: 4234
Рейтинг: 661
#11: 2020-07-28 06:14:58 ЛС | профиль | цитата
Gik писал(а):
Компонент zlib содержит вшитую dll?

В официальном FPC приложению требуется dll в папке с программой. В D4 - не требуется (не "вшита" в программу, но что-то подобное). В новом FPC - тоже не требуется.
карма: 22

0
Ответов: 20
Рейтинг: 0
#12: 2020-07-28 11:35:32 ЛС | профиль | цитата
Записывал видео с экрана.
Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
Height=131
}
Add(ScreenShort,15488511,448,168)
{
Point(Region)
link(onCapture,13830761:doAdd,[(726,174)(726,230)])
}
Add(SDialog,9365672,378,259)
{
Filter="video files (*.video)|*.video|All files (*.*)|*.*"
FileName=""
link(onExecute,5828853:doSave,[(656,265)(656,391)])
}
Add(Hub,9246599,308,224)
{
OutCount=5
link(onEvent1,2044624:doStop,[(332,230)(332,195)])
link(onEvent2,2089660:doEnum,[(452,237)(452,349)])
link(onEvent3,9365672:doExecute,[(343,244)(343,265)])
link(onEvent4,5986316:doStop,[(334,251)(334,356)(226,356)(226,461)])
link(onEvent5,4992888:doClear,[(343,258)(343,461)])
}
Add(Timer,2044624,343,182)
{
Interval=40
Enable=1
link(onTimer,15488511:doCapture,[(422,188)(422,174)])
}
Add(BitBtn,4548388,168,182)
{
Left=20
Top=55
Width=30
Height=30
Hint=
Caption=""
Flat=1
Bitmap=[ZIP3609000078DAED92BF6AC25014C64FC7820FD0AD1D4B1EC0C125D8A1382882924587E2222E823E804611517076E8A4ABE23B38BB294E8A52441D4CFA279A74698734E75C13A3B5255A0A167AE1E3DE73EE3DBFF3E5E6DE04DCE740C36DE8DAD0C55A6770C536D6FBF62149D249693C96603239ACA65E7F866AF585D6958A02D9AC42398FE715221195341A49100CAA9048AC20165B41B1A858F5F3B904F1B80A2ED71BCD18EFE3B75A4F54BBDB135528B09E663C9B6DEA9109F06E09E35DBED7AB4128A442B9AC58399F4F83546A498A4655E876E5BDDF8FBEED7C8CBFBA9FDB5BCDCA954A0AF4FB32299351A0D1D8F85F2C0EF31F0868904CAE201C56F7FA1F0C64F0FB35C8E71548A79790CB39BFFFE954228FC3A1FC2967CACC773A8FD0EBC927F7AEFFF5BD7E329CF2755D3F6A76C26FDE714779C73A277CFD410481E7406F8B86AF7B4B82518F0C7BCE3CDB6C0B143BE2D7385653C31E1B211B7B50BCDE6B1A122E8D5964B1333E30FF22D0DA14F5C4BC2D8767189FC58EF83B35661FE46FF5158FE3A347FA5F3CBB1373460EB1786E6BCF3ACB7327F17E7EFBFDFF557D00139AE087]
Point(doHint)
link(onClick,2624211:doEvent1,[(226,188)(226,139)])
}
Add(BitBtn,13200262,175,308)
{
Left=50
Top=55
Width=30
Height=30
Hint=
Caption=""
Flat=1
Bitmap=[ZIP3609000078DADD545B4B545114FE64D494342FA40E829A3E582A1633D448220D8A88794DCD322F0D1A8C520A0AE54BE928620A3EFBD043E9ABE26FA87908427AC80B298A3A8D3A13E71C9D3933734CC88769EF3D37F14C342285B4E163EDB536EBFBD65EFB5252AD89061B1A826B044A2FC270C5B3E05D3F3E789E3F57D8DCE461369F2E677ADA86C9493B9B4F4C88181C1459ACB0F000CDCD2E868D0D1EB5B52E747539D1DEEEC4E8A8E8CFB75878E8F52EC4C4FC6496FAC1F8E7E6F659EE494D8A91118FA6CFDFDD0DE4534EE0C80FEA9FE42F2E96505FEFC2F8B8E88F95974BE8ED7530B4B4B8B0B02004DD3FADFB383FF57FD79FB232C91F1B1B13B1BC2C300C0C88989909D4CF71A7ABBFBA5A424F8F130D0DAEA0F5AFAD09A8AA92303C2CA2AFCF81A1A1D0FBBFB3C3B31AD7D70559CC075F7C7E7E0F8B8BC2B9BBD77F02C771FF24E76F23296915F1F11BC8C8D8466AEA37A4A4987039C984C4441312124C888DDD4264E4BA2C2FF4F1095959DB2829DE8746C343A5E2909FCF21278743763687B4342BE2E2B682F2BBDDEE10AC11D76F58F0A85942458588D2523BB45A3BF94B6C2828B0232F4F4072B259C63FABCB0DB17E23546A0B74ED2EDCABB3A3B2D246DE247DFF3668EFD8A056F1AC6F27F9DD26031AB5B9707F30903ADFF8D14874A9B6CF572ABF903AAD78FA4C227B10C97BB4937F8FE854D871B79CECE3B680F474B3EC0EB9A77219FFEC14D5088072530DE6933565C247141559F1E2F9013A3A1C686D15D1D424E23ED169A817C9B9EC91F391F7C73D054FFD06B0B90F4C93C6BDBEF2929170583164F881EE6E273AF50E3C213A6D8F45B4B539C899ECE36A76107EC2DB9841B87CFC8600FF715DE54523EAEA38BC7D7784D1D7874CE7D5CB03F4F7531C42A77340ADDE919FAFD673BED4D29EF82CD564BADE7D44477CC6CD5BDBD077DAF0E0A140FACF33BD9A1A0A9EDCA5EFC8CCDC3AC3FD790F856215E1E14BC42EE142C412A2A2BE12AC3028142B080B5B39C3FD97DBFFF97FFB05AE7CA3F4]
Point(doHint)
link(onClick,9246599:doEvent1,[(257,314)(257,230)])
}
Add(Label,8707688,546,448)
{
Left=310
Top=20
Width=12
Height=23
Font=[Times New Roman,12,0,0,204]
Caption="0"
}
Add(Timer,5986316,238,448)
{
Enable=1
link(onTimer,13488541:doOperation,[])
}
Add(Math,13488541,301,448)
{
Op1=0.00001
link(onResult,4992888:doValue,[])
link(Op2,3686164:Var1,[(314,436)(342,436)(342,492)])
}
Add(Memory,4992888,364,448)
{
Default=Real(0)
link(onData,8950853:doOperation,[])
}
Add(Hub,2624211,252,133)
{
OutCount=4
link(onEvent1,538961:doClear,[(651,139)(651,125)])
link(onEvent2,5828853:doClear,[(584,146)(584,405)])
link(onEvent3,2044624:doTimer,[(304,153)(304,188)])
link(onEvent4,5986316:doTimer,[(278,160)(278,331)(226,331)(226,454)])
}
Add(ArrayEnum,2089660,581,343)
{
link(onItem,13738512:doEvent1,[(667,349)(667,440)])
link(Array,11377546:Var1,[(587,187)])
}
Add(ArrayRW,13830761,973,210)
{
link(Array,11377546:Var2,[])
}
Add(GetDataEx,11377546,973,182)
{
link(Data,538961:Array,[(979,166)(1042,166)])
}
Add(DateConvertor,2690131,483,448)
{
Mode=9
Format="HH:mm:ss"
link(onResult,8707688:doText,[])
}
Add(Math,8950853,427,448)
{
Op2=584389
link(onResult,2690131:doConvert,[])
link(Op1,3686164:Var3,[(433,436)(349,436)])
}
Add(GetDataEx,3686164,343,487)
{
Angle=1
link(Data,4992888:Value,[(370,492)])
}
Add(BitmapArray,538961,1036,119)
{
Bitmaps=[]
Point(doSave)
Point(doLoad)
Point(Bitmap)
Point(BitmapName)
Point(EndIdx)
}
Add(BitmapStream,3284349,812,413)
{
link(Stream,12778982:Stream,[])
}
Add(ZLIB,2147729,882,490)
{
link(onStream,12304336:doAdd,[])
link(Stream,1291733:Stream,[(888,418)(916,418)])
}
Add(Hub,13738512,763,434)
{
OutCount=6
link(onEvent1,12778982:doOpen,[(795,440)(795,335)])
link(onEvent2,3284349:doWrite,[(795,447)(795,426)])
link(onEvent3,12778982:doClose,[(795,454)(795,342)])
link(onEvent4,1291733:doOpen,[(843,461)(843,321)])
link(onEvent5,2147729:doCompress,[(829,468)(829,496)])
link(onEvent6,1291733:doClose,[(843,475)(843,328)])
}
Add(ArrayRW,12304336,945,476)
{
link(Array,5828853:Array,[])
}
Add(StreamArray,5828853,945,385)
{
Streams=[]
}
Add(FileStream,1291733,910,315)
{
FileName=".\\temp.video"
Point(doCopyFromStream)
}
Add(FileStream,12778982,812,329)
{
FileName=".\\temp.video"
Mode=1
Point(doCopyFromStream)
}
Add(Label,12434598,126,105)
{
Left=20
Top=20
Width=283
Height=23
Font=[Times New Roman,12,0,0,204]
Caption="Количество времени"
}


Раньше с помощью zlib архивиравалось. Теперь с новым fpc 3.2.0-64 не хочет.
Может схема неправильная.

Редактировалось 1 раз(а), последний 2020-07-28 11:46:24
карма: 0

0
Ответов: 4234
Рейтинг: 661
#13: 2020-07-29 22:23:26 ЛС | профиль | цитата
А в FPC 32-bit?
Попробуй в файле HiAsm\Elements\Delphi\code\hiStreamArray.pas в строке 85 вместо
Data := cardinal(Strm);
поставь
Data := NativeInt(Strm);
Отпиши будет ли работать.
карма: 22

0
Ответов: 20
Рейтинг: 0
#14: 2020-07-30 09:20:05 ЛС | профиль | цитата
Ничего не изменилось. И с 32 и 64 бит тоже самое.
карма: 0

0
14
Сообщение
...
Прикрепленные файлы
(файлы не залиты)