Текущий архив: 2004.02.10;
Скачать: CL | DM;

Вниз

Вопрос по VCLZip   Найти похожие ветки 

← →
axx ©   (2004-01-31 13:28) [0]

Мастера может кто-нибуть сталкивался с сабжем . Кидаю на форму компаненты функция CompressStream работает. Пытаюсь в длл запихать не работает причем ошибок не выдает а при попытке result.Size вываливается эксепшин.

library crc;
uses
SysUtils,VCLZip,VCLUnZip,PspCRC in "PspCRC.pas";
var
VCLZIP1:TVCLZip;
VCLunZIP1:TVCLunZip;

Function CompressStream(StreamToCompress:TMemoryStream;FName:String):TMemoryStream;
begin
Result:=TMemoryStream.Create;
VCLZip1.ArchiveStream:=Result;
VCLZip1.ZipFromStream(StreamToCompress,FName);
VCLZip1.ArchiveStream:=nil;
end;

exports CompressStream;

{$R *.RES}

begin
VCLZIP1:=TVCLZip.Create(nil);
VCLunZIP1:=TVCLunZip.Create(nil);
end.

---

← →
Cobalt ©   (2004-02-01 00:19) [1]

Использование классов в библиотеках (передачу их в длл-ые функции) чревато. Для корректной работы надо компилировать с разделяемыми пакетами (Compile with run-time Libraries (vcl60.bpl, vclx60.bpl)) и т.п.

---

← →
Cobalt ©   (2004-02-01 00:21) [2]

См. также http://delphimaster.net/view/1-1074796734/

---

Страницы: 1 вся ветка

Текущий архив: 2004.02.10;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c