严格用于保留的地址范围,因此IPv4足够好.我还不知道我是否会使用A,B或C级(可能是C,但......)所以能够处理所有这些都是一个奖励.
如果我还能输入像"localhost"这样的东西,还有额外的奖励,虽然我可以没有那个.
因此,最低要求是指定192.xxx.xxx.xxx并确保xxx不超过255.
当然,我可以用一些面具编辑来敲打一个,但肯定有人之前发明了那个特殊的(FOSS)轮子？
自我注意:如果你必须编写它,这个页面看起来很有用
Delphi XE2,所以我猜那是Indy 10(？).
一台服务器,10个客户端.我想获取发送每个命令的客户端的IP地址.
顺便说一下,这是一个封闭的局域网,我可以分配静态IP地址(192.168.1.xxx).
我想我可以在每台机器上放一个.INI文件给它一个唯一的号码,然后把它作为每个命令的前缀传递(或者甚至将它自己的IP地址作为前缀传递).
但我希望我可以简单地访问TIdCommand的一些数据来获取发件人的IP地址......？
我已经死了
type TProcedure = procedure(const messageText : String) of object;
然后有一个decodeProcedure : TProcedure; 在不同地方分配的那种类型的变量.
当我在一个breakpint停止时,我怎么能看到变量指向哪个程序？
如果我Debug/evaluate或add watch我收到错误E2035 Not enough actual parameters
(德尔福XE 2)
德尔福XE2启动器对我来说,但也许一般的答案将帮助其他人......
在NetBeans中,我可以将我的curosr悬停在变量或函数调用上,然后按ctrl + B转到它的声明....如何在Delphi中执行此操作？
关于Delphi中异常处理的两个非常基本的问题.
1)什么时候Try？我的猜测是我不需要一个Try条款
但我确实需要 Try
我错过了什么吗？
2)尝试......最后还是尝试......除了......或两者兼而有之？多年来我一直认为这是一个或者两个选择,直到@RRUZ 用一些代码 回答了我的一个问题
try
CoInitialize(nil);
try
SetStaticIpAddress('Network card name','192.168.1.1','255.255.255.0');
finally
CoUninitialize;
end;
except
on E:EOleException do
Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode]));
on E:Exception do
Writeln(E.Classname, ':', E.Message);
end;
问题:是否只是去捕捉异常CoInitialize(nil);或来自SetStaticIpAddress('Network card name','192.168.1.1','255.255.255.0');？
换句话说,是否有可能通过尝试最终尝试除了？
[更新]#2的答案似乎是肯定的.此代码显示两个对话框...
procedure TForm3.FormCreate(Sender: TObject);
var x, zero : Integer;
begin
zero := 0;
try
try
x := 42 div zero;
finally
MessageDlg('Divide by zero finally', mtInformation, [mbOK], 0);
end;
Except …它似乎工作,但我正试图找到内存泄漏,我不是很擅长那种东西:-(
const UNIX_START_DATE: TDateTime = 25569.0;
function UnixToDateTime(USec: Longint): TDateTime;
begin
Result := (Usec / 86400) + UNIX_START_DATE;
end;
我实际上并没有调用TDateTime.Create()- 但是编译器(意味着我必须将它释放到soemwhere)？或者,因为TDateTime基本上只是一个douuble,编译器只是将它推到堆栈上以分配给调用者？
我已将ShowHint设置为true,将HintMode设置为hmToolTip,但是当我将光标悬停在控件上时,我的OnGetHint()事件处理程序甚至没有断点.
知道我做错了什么吗？
.
另外,有没有人对良好的文档,教程等有任何提示？例如,我在哪里可以找到HintMode属性的各种值实际意味着什么？
网站上的文档非常不完整,"使用其他资源如新闻组或Delphi Gems留言板查找说明"这一短语在HMTL帮助中发生了789次 - 通常我真正需要帮助的地方: - /
[更新]事实上,如果记录在案,我会愿意使用另一个组件,即使是少一个组件.
谢谢 !
这对我来说是新的东西,问题可能是关于Delphi IDE而不是代码.
我想开发一个DLL和两个将使用它的应用程序.
我做了一个非常基本的DLL和一个快速的虚拟应用程序来测试它.到现在为止还挺好.但是,所有源都在一个目录中.
我觉得我可能应该有一个包含三个项目(DLL + 2个应用程序)的组项目.
但是如何在开发阶段让应用程序使用我的DLL？
我正在开发它的过程中,我不想将它复制到Windows系统目录中,但当我将它的目录添加到应用程序的搜索路径时,却找不到它.
如何配置我的应用程序项目以使用仍处于开发DLL中？
[更新]哇,我最快的投票.等一下!而且,像往常一样,除了寻求帮助之外,甚至没有评论我是如何冒犯的.
我用谷歌搜索了,我已经阅读了帮助.但是我看不出怎么做,所以我正在寻求帮助.
我试图分页一个有500个条目的表,每页有10个条目.为了实现这一点,我遇到了一个GitHub 页面.
但它没有用.我想知道我在这里失踪了什么.
我的代码,
<!DOCTYPE html>
<html ng-app="plunker">
<head>
<meta charset="utf-8" />
<title> Pagination example </title>
<link rel="stylesheet" href="style.css" />
<script src="https://code.angularjs.org/1.3.15/angular.js"></script>
<script src="script.js"></script>
<body ng-controller="PageDetails as pg">
<table dir-paginate="comments in pg.comment | itemsPerPage: 10" >
<thead>
<tr>
<th>POST_ID</th>
<th>ID</th>
<th>NAME</th>
<th>EMAIL</th>
<th>BODY</th>
</tr>
</thead>
<tbody>
<tr ng-repeat="comments in pg.comment">
<td>{{comments.postId}}</td>
<td>{{comments.id}}</td>
<td>{{comments.name}}</td>
<td>{{comments.email}}</td>
<td>{{comments.body}}</td>
</tr>
</tbody>
</table>
<dir-pagination-controls></dir-pagination-controls>
</body>
</html>
的script.js
(function() {
angular.module('plunker', []);
angular.module('plunker').controller('PageDetails', PageFn);
function PageFn($http) {
var pg = this;
pg.comment = [];
details(); …我正在使用一些非常标准的代码：
1 if not os.path.exists(args.outputDirectory):
2 if not os.makedirs(args.outputDirectory, 0o666):
3 sys.exit('Fatal: output directory "' + args.outputDirectory + '" does not exist and cannot be created')
我删除了目录，检查 at1下降到2. 我更进一步，并在3.
但是，当我检查时，该目录已成功创建。
drwxrwsr-x 2 userId userGroup 4096 Jun 25 16:07 output/
我错过了什么？？
delphi ×8
angularjs ×1
delphi-xe2 ×1
dll ×1
indy ×1
javascript ×1
mkdirs ×1
pagination ×1
python ×1
python-3.x ×1
try-except ×1
try-finally ×1
vcl ×1