Xe3 port in progress...

[csm101]

Hi, I am going to port TVCLZip to XE3, since I need it inside a DLL I have to compile for 64 bit windows... and since the original author seems to have lost any interest, i will do it by myself.

If someone here is interested... the first step is to get rid of all ASM code, since the 64 bit compiler refuses it it is easiery than you may think.

First of all: kpCntn.pas (which seems the most scary since it uses a lot of ASM) contains a lot of useless code: it was added only to use one of its classes that implements a simple TObject container.

Just totally remove that unit from the sources and replace it with the much smaller unit I am attaching here: it contains a replacement class that does exactly the same things.

then: there is a lot of ASM code that is NOT really linked when compiling on a modern delphi compiler: most of the asm code is there only for 16 bit versions of delphi and is excluded by $IFDEF Win32 defines, so you can delete it right away from the sources.

there is another simple function that has a direct equivalent in delphi api.
This is just a quick post... It's very late now and I have to leave the office, anyway, if someone shows interest on this topic I will keep you updated.

Attachments:

[arny73]

Hello!

Yes, I am interested as well. Just installed XE4 and started to port my application.

Thank you for the module you posted. I will start migrating and if I have any modifications, I will post them as well here.

[whisper1980]

Thanks csm101! I too am interested. We have begun porting over from D2007 (finally!) onto XE3 and/or XE4 if it is not too soon for other 3rd party control support.

If these guys had no intention of continued support, it would have been helpful to have it moved to SourceForge to be publicly supported. I also share my thoughts that I hope all is well with them and nothing tragic happened.

[sheila7276]

I'm trying compile at 64 bit.

how i can to use kpSortedList ? don't exist in original source.



Delphi XE4 64 bit show me any error :

kpSortedListkpDiskIOWin9x.pas

function GetOpenFileList(const ADrive: UINT; AList: TStrings): Boolean;
var
Reg : TDEVIOCTL_REGISTERS;
FileIndex : Integer;
FileName : String;
RootPathName : String;
MaximumComponentLength : DWord;

fl : dword; // NEW xe4
begin
// get max file name length
if ADrive = 0 then
RootPathName := ''
else
RootPathName := Chr((Ord('A') - 1) + ADrive) + ':\';

// ORIGINAL : Result := GetVolumeInformation(Pointer(RootPathName), Nil, 0, Nil,MaximumComponentLength, PDWord(Nil)^, Nil, 0);

Result := GetVolumeInformation(Pointer(RootPathName), Nil, 0, Nil,MaximumComponentLength, fl, Nil, 0);


fixed.



and this error :

Unit kpCntn;


Procedure CallStreamProc(Obj:tObject; S:tStream; SProc:Pointer);
begin
asm <------------- error
{$IFDEF WINDOWS}




Hint ?

[bdirks]

Has anyone here succeeded in porting VCLZip to XE3, 4 or 5? I'd sure like to get my hands on that code. I bought VCLZip several years ago and wrote a ZIP tool that I use every day. It still works but I'd like to update it but can't with Delphi XE5.

[fanny]

Does anyone have it working with XE2 and up? Compiling 64 bit? If yes please post to help others out.
Thanks...