Вверх ↑
Ответов: 4628
Рейтинг: 749
#1: 2019-02-19 18:15:41 ЛС | профиль | цитата
"StreamShare.ToString" у тебя получилось после замены "ToString" на "Share.ToString". Замени "StreamShare.ToString" на "StreamToString" (или на "StreamToStr").

Напиши в uses:
uses
Kol, Share, WinInet, WinHTTP, Windows, Debug, URI, MIMETypes,
hiCookieManager {$ifndef FPC_NEW}, hiCharset{$endif};

В строке 765 вместо
Val := CodePage1ToCodePage2(Val, CP_ACP, CP_UTF8);
сделай
Val := {$ifdef FPC_NEW}StringToUTF8(Val){$else}CodePage1ToCodePage2(Val, CP_ACP, CP_UTF8){$endif};

Это всё только для FPC ANSI 32bit. Для остальных режимов там нужны другие переделки.
карма: 26

0
Редактировалось 3 раз(а), последний 2019-02-19 18:17:56