今天早上我刚开始收到谷歌地图脚本错误.
行:0个字符:0错误:脚本错误代码:0 URL:
我将所有代码更改恢复为早期版本但仍然存在.
我将在下面包含该脚本,但我必须提到它在一个与IE接口的Delphi TWebBrowser中运行.
我可以运行我的程序,与页面交互,然后让它闲置.大约20秒后,没有任何用户交互,我得到上面的持久性错误.当我关闭错误消息框时,它会立即打开并显示相同的消息.
我这个项目已经工作了几个月,现在开始了.我已经回滚了几个版本,但它仍然存在.
我从哪里开始寻找？
<html>
<head>
<title>Find your Qtr minute locator</title>
<script type="text/javascript" src="https://maps.googleapis.com/maps/api/js?api=AIzaSyAa7YZpvi09ig92s_BLP2H3QVLTmoqdcQQ&v=3.exp&libraries=geometry&sensor=false"></script>
</head>
<body><!-- Declare the div, make it take up the full document body -->
<div id="map-canvas" style="HEIGHT: 100%; WIDTH: 100%"></div>
<script type="text/javascript">
var map;
var idx = 0;
var qtrArray = [];
var userGridArray = [];
var Startlatlng = "";
var llOffset = 0.00416666666667;
var babyOffset = (llOffset/2); // offsets gridSelector 1/2 qtr min
var drawGridSelectBox = false;
var findNeighbor = …我知道我以前做过这件事,但似乎无法记住.
我有一个程序,我已经设置为使用可执行文件名上的互斥锁运行单例.单位GlobalSU;
interface
function IsAppRunning: Boolean;
implementation
uses
Windows, SysUtils, Forms;
function IsAppRunning: Boolean;
var
rtn : Cardinal;
begin
result := False;
CreateMutex(nil, False, PWideChar(ExtractFileName(Application.ExeName)));
rtn := GetLastError;
if rtn = ERROR_ALREADY_EXISTS then
result := True;
end;
该程序接受某些命令行参数,这些参数指示要处理的数据.我不希望使用相同的命令行参数运行多个程序实例.但我确实希望能够使用不同的参数启动第二个实例.
我大约一年前这样做但是不记得怎么做了.我使用DPR中的命令行参数修改名称,然后使用互斥锁对其进行测试.
我尝试重命名Application.ExeName但它是只读的所以我一定是在改变别的东西.
下面是代码,它不会编译,但会添加以澄清我想要做的事情.顺便说一句 - '##'总是第三个参数的前两个字符,但我用RegEx测试它.
program EPRmailer;
uses
Vcl.Forms,
uMainMailer in 'uMainMailer.pas' {frmMainMailer},
configXML in 'configXML.pas',
GlobalSU in 'GlobalSU.pas',
CVUtils in 'CVUtils.pas',
QMConst in 'QMConst.pas',
ServerAttachmentDMu in 'ServerAttachmentDMu.pas';
{$R *.res}
var
i : integer;
begin
for i := 0 to ParamCount do …我继承了一些我需要修改的代码.原文基本上就是下面的内容.我需要在枚举列表中添加第九项,但是当我这样做时,我在"ord(byte(ts))"处得到了无效的类型转换.
program OrdTest;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils;
type
TFlag = (tsOne, tsTwo, tsThree, tsFour, tsFive, tsSix, tsSeven, tsEight); // , tsNine
TStatus = set of TFlag;
function GetStatus(i: integer): TStatus;
var
ts: TStatus;
j: smallint;
begin
try
ts := GetStatus(4); // returned from a table
j := ord(byte(ts)); // Invalid typecast
except
on E: Exception do
Writeln(E.Message)
end;
end;
end.
因为一个字节可以是任何有效的255,我不明白这个例外.
我能做些什么才能添加第九个枚举并仍具有代码功能？