Конвертировать файл в UTF-8 - PullRequest
Новая
       104

Конвертировать файл в UTF-8

1 голос
/ 28 января 2020

Я пытаюсь создать программу для восстановления поврежденных файлов субтитров .srt. Проведя некоторые исследования, я выяснил, что некоторые веб-сайты, которые восстанавливают файлы с этой проблемой, преобразуют его в UTF-8, например subtitletools.com .

. Я использовал метод, который нашел в этой ссылке : Сохранение строки UTF-8 в UnicodeString для преобразования текста, загруженного из файла .srt. Многие страницы предлагают этот способ для конвертации. Но мне не удалось в конце концов. Что я делаю не так?

Это мой код для конвертации: 

procedure Tfrm_main.btn_convertClick(Sender: TObject);
var
  UnicodeStr: UnicodeString;
  UTF8Str: RawByteString;
begin    
  UTF8Str := UTF8Encode(memo_source.Text);
  SetCodePage(UTF8Str, 0, False);
  UnicodeStr := UTF8Str;    
  memo_result.Text := UnicodeStr;    
end;

Программа работает (результат пока странный, но с небольшой разницей) :

Вот скриншот моей программы, пытающейся преобразовать файл .srt в UTF-8:

image.srt file to UTF-8">

...