Project from Ansi to Unicode

[WojTec]

I found nice unit to work with torrents:

Code:

http://torrentspy.cvs.sourceforge.net/viewvc/torrentspy/TorrentSpy-0.2-delphi/src/

So, TorrentFile.pas and included ones are not Unicode ready. I can't make it working with D2010+ (I only can exchange MessageDigests.pas with DEC). Could you help, please?

Delphi-Quellcode:

// Test code: Ansi - oke, Unicode - empty

var
  T: TTorrentFile;
  F: TStream;
begin
  if OpenDialog1.Execute then
  begin
    T := TTorrentFile.Create;
    F := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
    try
      T.Load(F);
      ShowMessage(T.Announce + #13#10 + T.CreatedBy + #13#10 + T.CreationDateAsString);
    finally
      T.Free;
      F.Free;
    end;
  end;
end;

[jaenicke]

After a quick look I think you just have to replace String with AnsiString and PChar with PAnsiChar inside the unit.

[WojTec]

So, I made some modifications, result attached, but don't working as expected, eg. name is empty or length is zero or wrong hash, but announce or agent are good. Same project on Ansi compiler is oke

[jaenicke]

You forgot to exchange Char with AnsiChar in unit BCode. If I do so it works.

[WojTec]

Yap, I forgot Thank you, now working

But now there is next problem, because can use Unicode in file names and unit is Ansi, can't read Unicode names. I saw maybe 2 times Unicode torrents, but it is possible. How to enable support for Unicode strings inside?

Here Torrent_file#File_structure is information that strings are Unicode at all. Now I don't understand, why Ansi is working, but Unicode is not working

[jaenicke]

You find the answer in your own link:

Zitat:

All strings must be UTF-8 encoded.

Perhaps it already works, if you use UTF8String instead of AnsiString, but perhaps you have to decode the UTF-8 format explicitly or perhaps it has to be read differently (I did not have a look now). Delphi uses UTF-16, so it does not understand UTF-8, if you don't tell it to read something as UTF-8.

[WojTec]

Exchange type Ansi to UTF8 is working, but what with PAnsiChar typecast and AnsiChar (working, but there is no additional UTF8 routines required?)?

[WojTec]

Also another question: has Delphi build-in routines to replace Hashes.pas unit?