Напиши в uses:
uses
Kol, Share, WinInet, WinHTTP, Windows, Debug, URI, MIMETypes,
hiCookieManager {$ifndef FPC_NEW}, hiCharset{$endif};
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. Для остальных режимов там нужны другие переделки.
Поиск
Друзья
Администрация