gpt4 book ai didi

javascript - Indy TIdHTTPServer OnCommandGet html 中的 javascript 未执行

转载 作者:行者123 更新时间:2023-11-28 04:53:49 24 4
gpt4 key购买 nike

我有一个 TIdHTTPServer将 html 文件中的 javascript 代码发送到带有标签 <script language="javascript"> 的浏览器在<head>标签。我无权访问 html 文件,因此无法更改其内容。我用 HTTPServerCommandGet像这样将此文件的内容发送到浏览器:

procedure TMainForm.HTTPServerCommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
responseMemoryStream : TMemoryStream;
begin
responseMemoryStream := TMemoryStream.Create;
try
AResponseInfo.ContentType := 'text/html';
AResponseInfo.ContentEncoding := 'UTF-8';
AResponseInfo.CharSet := 'UTF-8';
responseMemoryStream.LoadFromFile(ExtractFilePath(Application.ExeName) + 'index.html');
AResponseInfo.ContentStream := TMemoryStream.Create;
TMemoryStream(AResponseInfo.ContentStream).LoadFromStream(responseMemoryStream);
finally
responseMemoryStream.Free;
end;
end;

然后我制作 GET来自 Internet 浏览器的命令有时会加载 javascript,但有时不会 - 当我使用 Firefox 时没有问题,但是当我使用 Chrome 时IE javascript 永远不会执行。有没有办法用 AResponseInfo 以某种方式强制执行 javascript 代码?变量或我无能为力来解决这个问题?

这是 index.html 的一部分看起来像:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="keywords" content="" />
<meta name="description" content="" />
<meta charset=utf8 />
<title>My title</title>
<script type="text/javascript" src="http://maps.googleapis.com/maps/api/js?sensor=false"></script>
<script language="javascript">
var map;
var flag_for_map_massage = 0;
var map_marker = 0;
function initmap()
{
var html;
var map_divtxt = "<div id=\"map_canvas\" style=\"width:200px;height:150px;\" ></div>";
document.getElementById("google_map").innerHTML = map_divtxt;
var latlng = new google.maps.LatLng(100.12345, 200.12345);

var options = {
zoom: 17,
center: latlng,
mapTypeId: google.maps.MapTypeId.ROADMAP
};
var map1 = new google.maps.Map(document.getElementById("map_canvas"), options);

var html = "<table>" +
"<tr><td>GMBH Address</td> </tr>";

infowindow = new google.maps.InfoWindow({
content: html
});
var marker1 = new google.maps.Marker({
position: new google.maps.LatLng(100.12345, 200.12345),
map: map1

});
// infowindow.open(map1, marker1);
google.maps.event.addListener(marker1, "click", function() {
infowindow.open(map1, marker1);
});
}

</script>
</head>
<body onload="initmap();">
<div class="entry">
<div id="google_map">
</div>
</div>
</body>
</html>

最佳答案

您的服务器所能做的就是将 HTML 传送到浏览器,仅此而已。处理 HTML、检索外部资源、执行脚本等是浏览器的责任。如果浏览器运行不正常,那么 HTML/脚本可能一开始就有错误。这与您的服务器无关(除非您破坏了您发送的数据)。

话虽如此,您不需要在 OnCommandGet 代码中使用两个流,这太过分了。一串流就够了。此外,utf-8 不是有效的 ContentEncoding 值,因此您需要将其删除。

试试这个:

procedure TMainForm.HTTPServerCommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
AResponseInfo.ContentType := 'text/html';
AResponseInfo.CharSet := 'utf-8';
AResponseInfo.ContentStream := TMemoryStream.Create;
TMemoryStream(AResponseInfo.ContentStream).LoadFromFile(ExtractFilePath(Application.ExeName) + 'index.html');
end;

或者:

procedure TMainForm.HTTPServerCommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
AResponseInfo.ContentType := 'text/html';
AResponseInfo.CharSet := 'utf-8';
AResponseInfo.ContentStream := TIdReadFileExclusiveStream.Create(ExtractFilePath(Application.ExeName) + 'index.html');
end;

当然,请确保您关注 ARequestInfo.Document 属性并且仅在浏览器实际请求 index 时才提供 index.html .html 而不是您服务器上的其他文件。

关于javascript - Indy TIdHTTPServer OnCommandGet html 中的 javascript 未执行,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/27125796/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com