在我的代码中,我遇到了一个问题.示例代码:
var
d1: tdatetime
begin
d1 := strtodatetime('23/02/2011 12:34:56');
end;
但它给出了错误:
'23/02/2011 12:34:56'无效的日期和时间
我在做什么有什么问题？
如何对tlistview存在的数据进行排序subitem[x]？
我想知道如何在Delphi中将big-endian数字转换为本机数字.我正在移植一些我遇到的C++代码:
unsigned long blockLength = *blockLengthPtr++ << 24;
blockLength |= *blockLengthPtr++ << 16;
blockLength |= *blockLengthPtr++ << 8;
blockLength |= *blockLengthPtr;
unsigned long dataLength = *dataLengthPtr++ << 24;
dataLength |= *dataLengthPtr++ << 16;
dataLength |= *dataLengthPtr++ << 8;
dataLength |= *dataLengthPtr;
我不熟悉C++,所以我不明白这些运算符是做什么的.
如何从我的Delphi应用程序运行此命令？
C:\ myapppath\appfolder> appname.exe/stext save.txt
我尝试了以下代码:
ShellExecute(0, nil, 'cmd.exe', 'cd C:\myapppath\appfolder', nil, SW_Hide);
ShellExecute(0, nil, 'cmd.exe', 'appname.exe /stext save.txt', nil, SW_Hide);
但它没有用.有人能提供解决方案吗？
我试图从我的程序模拟Vidalia(Tor GUI)中的"新身份"按钮.我问过这个问题,基于Rob Kennedy的回答,我在我的申请中尝试了这个:
IdTelnet1.Host:='127.0.0.1';
IdTelnet1.Port:=9051;
IdTelnet1.Connect(-1);
IdTelnet1.SendCmd('SIGNAL NEWNYM');
但它对我没用.即使我发送命令后,我也得到相同的代理.
我正在使用Indy 9.
我不知道我是否不知道如何使用TIdTelnet或不知道如何发送该特定命令.
为什么我不能执行此操作:
var
data:pbyte;
x:int64;
o:pointer;
begin
o:=data+x;
end;
我试图在我的应用程序的资源中存储一些设置,但失败了我不想使用ini文件或注册表方法我正在使用此代码
var
data :string;
procedure WriteSettings(ServerFile: string; Settings: string);
var
ResourceHandle: THandle;
pwServerFile: PWideChar;
begin
GetMem(pwServerFile, (Length(ServerFile) + 1) * 2);
try
StringToWideChar(ServerFile, pwServerFile, Length(ServerFile) * 2);
ResourceHandle := BeginUpdateResourceW(pwServerFile, False);
UpdateResourceW(ResourceHandle, MakeIntResourceW(10), 'SETTINGS', 0, @Settings[1], Length(Settings) + 1);
EndUpdateResourceW(ResourceHandle, False);
finally
FreeMem(pwServerFile);
end;
end;
function ReadSettings(ServerFile: string): string;
var
ServerModule: HMODULE;
ResourceLocation: HRSRC;
ResourceSize: dword;
ResourceHandle: THandle;
ResourcePointer: pointer;
begin
ServerModule := LoadLibrary(pchar(ServerFile));
try
ResourceLocation := FindResource(ServerModule, 'SETTINGS', RT_RCDATA);
ResourceSize := SizeofResource(ServerModule, ResourceLocation);
ResourceHandle := LoadResource(ServerModule, ResourceLocation);
ResourcePointer := …在使用循环时如何在应用程序中暂停和恢复
我可以在我的循环的开始时暂停一些睡眠(xxx),但我希望在我需要时暂停并在需要时恢复
有任何想法吗 ？
提前致谢
好的,这里有更多的解释
for i:=0 to 100 do
begin
if button1.clicked then pause //stop the operation and wait for resume button
if button2.clicked then resume //resume the operations
end;
编辑2:
好的家伙我会告诉一个例子很好地采取任何检查器假设代理检查器,我有一堆代理加载在我的tlistviwe我正在检查所有,通过使用lop for i:=0 to listview.items.count do......
我希望在我需要的时候暂停我的检查操作,并在需要时恢复
我清楚还是我还要解释一些？:S
问候
我怎么能得到行动,我在恢复后暂停我的线程(抱歉我的英文不好),我会用代码解释
function mythreadf(p:Pointer):DWORD stdcall;
var i:Integer;
begin
for i:=0 to 1000000 do begin
if myevent.WaitFor(INFINITE)=wrsignaled
then
begin
if Form1.RadioButton1.Checked then ShowMessage('Checked');
Form1.Label1.Caption:=IntToStr(i);
end;
end;
end;
我暂停和恢复我的线程使用resetevent和setevent后我通过点击resetevent按钮暂停我的线程,然后我检查radiobotton1后,再次使用setevent恢复我的线程.dont发送错误发生和应用程序关闭:(
任何人都可以在这个问题上帮助我
关于编辑1:错误图像 http://i49.tinypic.com/11r7nkn.jpg
如何在Delphi中与Tor网络通信？
我想使用tor网络进行IDHTTP1操作
可能吗？
如果是这样,任何人都可以帮助我吗？
