我正在Delphi中编写win32服务(应该能够翻译任何其他代码,如果你不懂delphi),需要获取网站的状态.我知道如何在.NET中执行此操作,但我不确定正常的基于Windows的编程.因此,我需要查询网站并返回状态代码200,301等.我的计划是解析返回的数据,如果我的某个网站发生故障,请发送电子邮件.
有人能伸出援助之手吗?
编辑:这是我最后使用的代码 - 使用TIDHttp Indy组件.
IdHTTP.Get('http://www.example.com');
if IdHTTP.Connected then begin
ResponseCode := IntToStr(IdHTTP.ResponseCode);
ShowMessage(ResponseCode);
end;
Run Code Online (Sandbox Code Playgroud) delphi service windows-services http-status-codes http-headers
我有一个控件覆盖受保护的GetService方法并将其分配给IServiceProvider接口:
Class MyControl
Inherits Control
Implements IServiceProvider
Protected Overrides Sub GetService(t as Type) as Object Implements IServiceProvider.GetService
End Sub
End Class
Run Code Online (Sandbox Code Playgroud)
我正在努力将其转换为c#.我试过隐式v.明确但我必须得到错误的语法.
一个类继承自HashSet,以获取一组具有自定义EqualKeys(T x, T y)检查的唯一对象,而不是IEqualityComparer.
public class UniqueSet<T> : HashSet<T> where T : IKey
{
public new void Add(T item)
{
// .. check item for null, empty key etc.
if (base.Any(t => UniqueSet<T>.EqualKeys(t, item)))
{
throw new ArgumentException(..);
}
if (!base.Add(item)) throw new ArgumentException(..);
}
private static bool EqualKeys(T x, T y)
{
return ((IKey)x).Key.Equals(((IKey)y).Key, StringComparison.CurrentCultureIgnoreCase);
}
}
Run Code Online (Sandbox Code Playgroud)
代码无法编译,因为我必须替换base.Any为this.Any.
我恐怕不明白为什么会这样?
我有一些非常简单的代码,在当前工作表之后将新工作表添加到Excel文档,然后将其名称更改为在userform上的文本框中输入的名称.在新工作簿上正常工作,但是在具有许多现有工作表的工作簿中,它会创建新工作表,但不会重命名它.
这只会在您第一次运行此代码时发生,下次运行正常.让它更奇怪的是,如果你打开VBA编辑器尝试调试它,那么它也运行良好.这显然使得发现错误非常困难.
我正在使用的代码在这里:
Dim WS As Worksheet
Set WS = Sheets.Add(After:=Sheets(Worksheets.count))
WS.name = txtSheetName.value
Run Code Online (Sandbox Code Playgroud)
很简单.我想知道这个问题是否正在尝试在正确创建之前重命名工作表?有没有更好的方法来编写这段代码?
更新: 我已经开始使用msgboxes调试它,因为打开调试器会使问题停止,并且它似乎只是中途处理代码:
Dim WS As Worksheet
MsgBox (WS Is Nothing)
Set WS = Sheets.Add(After:=Sheets(Worksheets.count))
'***** Nothing after this point gets processed *******
MsgBox (WS Is Nothing)
MsgBox WS.name
WS.name = txtSheetName.value
MsgBox WS.name
Run Code Online (Sandbox Code Playgroud) 我找不到可用于为您自己的MATLAB函数编写帮助的格式.官方文档中提供的信息非常少.
您是否知道使用帮助浏览器可以看到的任何其他格式(不具有帮助功能)?就像内置功能一样.如何格式化标题(如语法,描述,示例)?子弹,桌子可能吗?或者它应该是一个单独的文件?
我尝试过用于PUBLISH和HTML的文本标记,但没有用.
我发现只有一件有趣的事情.如果您的函数包含大小写混合大小写testHelpFunction,则其名称将突出显示:

没有突出显示它是否正好testhelpfunction.
还有其他想法吗?
UPDATE
以下是我在创建您自己的帮助文件时找到的大量文档:
提供您自己的帮助和演示
(死链接替换为Web存档链接)
(已删除死链接)
再次更新:
我使用jQuery验证插件进行了混合的客户端/服务器端验证.验证发生在提交和某些变更字段上.表格通过AJAX提交.在更新数据库之前,应用程序还有另一个验证.如果由于此验证失败而未将数据更改存储到数据库,我将通过JSON将结果返回到处理AJAX表单提交的JS方法.理想情况下,我会通过类似$ .validator.showErrors(obj)之类的东西将后端传递给JS的自定义消息引发错误.正如这里讨论的那样, 遗憾的是,validator.showErrors(...)方法没有在该上下文中定义:
$(document).ready(function() {
$('.form').each(function() {
$(this).submit(function(e) {
e.preventDefault();
if ($.submitForm()) {
(...)
$.post(url, $.param(context), function(data) {
if (!data.success) {
$.validator.showErrors(...);
//$("#basicdetails").validate();
}
}, "json");
}
(...)
Run Code Online (Sandbox Code Playgroud)
您还可以看到我尝试过表单重新验证,这也应该触发相应的错误(尽管更多的是真正解决方案的黑客攻击).
我想保留静态客户端验证,并在ajax提交后能够引发可能在后端发生的任何错误.
感谢您提供任何帮助.
帕维尔
我已经在我的[第一个]创业公司工作了一个月了,虽然它可能距离alpha版本还有一个月的时间,但我想知道如何以正确的方式部署它.该站点将为新用户提供初始高负载(网络+ CPU),因此我考虑为此初始进程设置单独的服务器/队列,以便它不会减慢现有用户的站点速度.
根据我目前的研究,我目前倾向于nginx + haproxy + unicorn/thin + memcached + mysql,并在Linode上部署.但是,我之前没有任何经验; 因此,我希望利用社区的经验.
如果我的任何问题都是愚蠢或矛盾的,我会道歉; 请把它归结为我的经验不足.
我有一台有机器的服务器......
我有一个管理员和多个用户......这些都是Windows用户,不存在于数据库中.
如何重置用户密码....我使用管理员登录并提供需要重置的用户名..
我试过了
string newPassword;
u = Membership.GetUser(UsernameTextBox.Text, false);
Run Code Online (Sandbox Code Playgroud)
但这不起作用......
任何建议......谢谢
添加用户的代码:
DirectoryEntry AD = new DirectoryEntry("WinNT://" + Environment.MachineName + ",computer");
DirectoryEntry NewUser = AD.Children.Add(username, "user");
NewUser.Invoke("SetPassword", new object[] { password });
NewUser.Invoke("Put", new object[] { "Description", description });
NewUser.CommitChanges();
Run Code Online (Sandbox Code Playgroud) 由于我是编码的新手,我试图理解为什么这里有更多关于这个问题的细节.
如果你有一个文本框,并且你要限制输入说2个字符,你真的需要进一步验证输入吗?
我所拥有的是一个最大长度为2的文本框.是否有安全理由将验证器添加到文本框中.我应该在Asp.net中添加它.
在存储过程中按如下方式执行动态SQL:
DECLARE @sqlCommand nvarchar(1000)
DECLARE @city varchar(75)
SET @city = 'London'
SET @sqlCommand = 'SELECT COUNT(*) FROM customers WHERE City = @city'
EXECUTE sp_executesql @sqlCommand, N'@city nvarchar(75)', @city = @city
Run Code Online (Sandbox Code Playgroud)
如何将count(*)列值用作SP中的返回值?
c# ×4
asp.net ×2
.net ×1
delphi ×1
dynamic-sql ×1
excel ×1
excel-vba ×1
formatting ×1
hashset ×1
http-headers ×1
interface ×1
javascript ×1
jquery ×1
linode ×1
matlab ×1
scalability ×1
service ×1
sql ×1
sql-server ×1
t-sql ×1
vb.net ×1
vba ×1