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. :wall: Same project on Ansi compiler is oke :pale:

[jaenicke]

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

[WojTec]

Yap, I forgot :oops: Thank you, now working :-D

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?