Автор темы
привет всем
как программно упровлять кодировкой Twebbrowser?
не помагает
как программно упровлять кодировкой Twebbrowser?
Код:
procedure TForm1.FormCreate(Sender: TObject);
var url:String;
begin
url:='http://192.168.64.9/experiment/t_test.nsf/(delphi-1)/1/question?OpenField';
WebBrowser1.Navigate(url);
end;
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
Headers:='<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />';
end;
