Welcome, Guest
Username: Password: Remember me
Forgot your password? Forgot your username? Create an account
Forum
CodeTyphon Studio
Using CT on MS Windows
pl_abbrevia Win7 umlauts
CodeTyphon MS Windows (Win7, Win8.x, Win10 and Win11) OS Development, discussions and problems
  • Page:
  • 1

TOPIC:

pl_abbrevia Win7 umlauts 6 years 10 months ago #10831

  • Florian Immenroth
  • Florian Immenroth's Avatar Topic Author
  • Offline
  • New Member
  • New Member
  • Posts: 11
  • Thank you received: 0
Hello,

i want to create a zip-archive with pl_abbrevia. Unfortunately all files with umlauts in filename or path won't be added?
Is this a bug or am I doing anything wrong?
procedure TForm1.Button1Click(Sender: TObject);
var zip2: TAbZipper;
begin     
    ZIP2 := TAbZipper.Create(nil);
    Zip2.ArchiveType := atZip;
    ZIP2.FileName := 'c:\0\testzip.zip';
    zip2.BaseDirectory := 'C:\';
    zip2.AddFiles('C:\test\ä.txt', faAnyFile);
    zip2.Save;
    zip2.CloseArchive;
end;

I am using CodeTyphon 5.9 x86.

Thanks
Florian

Please Log in or Create an account to join the conversation.

pl_abbrevia Win7 umlauts 6 years 10 months ago #10832

  • usbdoo
  • usbdoo's Avatar
  • Visitor
  • Visitor
ä change this.
ä.txt

zip2.AddFiles('C:\test\ä.txt', faAnyFile); < wrong


zip2.AddFiles('C:\test\a.txt', faAnyFile); < correct

Please Log in or Create an account to join the conversation.

Last edit: by usbdoo.

pl_abbrevia Win7 umlauts 6 years 10 months ago #10833

  • Florian Immenroth
  • Florian Immenroth's Avatar Topic Author
  • Offline
  • New Member
  • New Member
  • Posts: 11
  • Thank you received: 0
Thanks for your reply.

But the filename is 'ä.txt'.... Renaming the files is no Option for me.

Please Log in or Create an account to join the conversation.

pl_abbrevia Win7 umlauts 6 years 10 months ago #10834

  • Florian Immenroth
  • Florian Immenroth's Avatar Topic Author
  • Offline
  • New Member
  • New Member
  • Posts: 11
  • Thank you received: 0
Update...:

Wehr I try adding the file as a stream it is working as expected:
fs:=TFileStream.Create('C:\test\ä.txt', fmOpenRead or fmShareDenyWrite);
zip2.AddFromStream('C:\test\ä.txt',fs);

Is it a bug in some part of pl_abbrevia?

Please Log in or Create an account to join the conversation.

pl_abbrevia Win7 umlauts 6 years 10 months ago #10835

  • Florian Immenroth
  • Florian Immenroth's Avatar Topic Author
  • Offline
  • New Member
  • New Member
  • Posts: 11
  • Thank you received: 0
Ok, after debugging I found the malicious code and also found a bugfix on sourceforge:

sourceforge.net/p/tpabbrevia/bugs/170/

Perhaps PL-Team can include this fix in next release?

Thanks
Florian

Please Log in or Create an account to join the conversation.
  • Page:
  • 1
Forum
CodeTyphon Studio
Using CT on MS Windows
pl_abbrevia Win7 umlauts