- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我想要求用户输入密码。由于有时需要在与 VCL 运行的主线程不同的线程中输入密码,因此我尝试向主窗口发送一条消息并询问密码。然后主窗口询问用户。
我如何询问用户:
procedure TMainForm.WMGetPassword(var Msg: TMessage);
var
Password: String;
begin
if QueryPassword(Password) then // function QueryPassword(out Password: String): boolean;
begin
Password := Password + #0; // Add #0-Terminator
Move(Password[1], Msg.wParam, Length(Password) * sizeOf(Char)); // Copy the String in my buffer
Msg.Result := 1;
end
else
begin
Msg.Result := 0;
end;
end;
我如何询问主窗口:
var
PasswordBuffer: PChar;
Password: String;
begin
PasswordBuffer := AllocMem(100 * sizeof(Char));
PasswordResult := SendMessage(MainFormHWND, WM_GetPassword, Integer(PasswordBuffer), 0);
Result := (PasswordResult <> -1);
if not Result then
Exit;
SetString(Password, PasswordBuffer, 100);
ShowMessage(Password);
end;
但是之后Password
和PasswordBuffer
都是空的。我做错了什么?
最佳答案
只要线程位于同一进程中(因此它共享相同的地址空间),您的代码就应该可以工作。然而,它不必要地复杂,并且存在内存泄漏(PasswordBuffer
永远不会被释放)。
您可以在线程中使用字符串变量,并将其内部预分配缓冲区的地址传递给主线程:
type
TTestThread = class(TThread)
private
fHwnd: HWND;
protected
procedure Execute; override;
public
constructor Create(AWnd: HWND);
end;
constructor TTestThread.Create(AWnd: HWND);
begin
fHwnd := AWnd;
inherited Create(False);
end;
procedure TTestThread.Execute;
const
MAXLEN = 1024;
var
s: string;
begin
SetLength(s, MAXLEN);
if SendMessage(fHwnd, WM_GETPASSWORD, MAXLEN, LPARAM(@s[1])) > 0 then begin
s := PChar(s);
// don't use VCL here
Windows.MessageBox(0, PChar('password is "' + s + '"'), 'password',
MB_ICONINFORMATION or MB_OK);
end;
end;
在主线程中,密码被放入缓冲区,长度限制为缓冲区大小:
procedure TForm1.WMGetPassword(var AMsg: TMessage);
var
Pwd: string;
begin
if InputQuery('Password Entry', 'Please enter the password:', Pwd)
and (Pwd <> '')
then begin
StrPLCopy(PChar(AMsg.LParam), Pwd, AMsg.WParam);
AMsg.Result := 1;
end else
AMsg.Result := -1;
end;
关于string - 询问用户并将响应发送回消息接收器,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/11949312/
我正在尝试检查 Entry 中是否存在重复项,并使用内联消息提醒用户该数字存在。 $(document).ready(function(){ $("#con1").blur(function(
我有一个基于类的 View 。我在引导模式上使用 Ajax。为了避免页面刷新,我想使用此类基于 View 返回 JSON 响应而不是 HTTP 响应,但我只看到了如何为基于函数的 View 返回 JS
关闭。这个问题是not reproducible or was caused by typos .它目前不接受答案。 这个问题是由于错别字或无法再重现的问题引起的。虽然类似的问题可能是on-topi
我有一个大型内部企业基于 Web 的应用程序在 IIS6 上运行 ASP.NET 3.5,生成 401 个“未经授权”响应,然后是 200 个“Ok”响应(如 Fiddler 所述)。我知道为什么会发
感谢您研究我的问题。 我有一个node/express服务器,配置了一个server.js文件,它调用urls.js,而urls.js又调用 Controller 来处理http请求,所有这些都配置相
当我使用以下命令时,我得到正确的 JSON 响应: $ curl --data "regno=&dob=&mobile=" https://vitacademics-rel.herokuapp.co
我有一个非常简单的 RESTful 服务,它通过 POST 接收一些表单数据,其目的是在云存储(Amazon S3、Azure Blob 存储等)中简单地保留文本主体(具有唯一 ID)作为一个文件..
UDP 不发送任何 ack,但它会发送任何响应吗? 我已经设置了客户端服务器UDP程序。如果我让客户端向不存在的服务器发送数据,那么客户端会收到任何响应吗? 我的假设是; 客户端 --> 广播服务器地
我有一个电梯项目,其中 有一个扩展 RestHelper 的类,看起来像这样 serve{ "api" / "mystuff" prefix { case a
我们正在寻求覆盖 Kong 错误响应结构并编写自定义消息(即用我们的自定义消息替换“超出 API 速率限制”、“无效的身份验证凭据”等)。 我们要找的错误响应结构(代码是自定义的内部错误代码,与HTT
我正在尝试监听 EKEventStoreChangedNotification 以检查当我的应用程序处于后台时日历是否已更改。 我在 View Controller 的 initWithNibMeth
我了解 javascript,并且正在学习 ASP.NET C# 我想要做什么(完成的是javascript): document.getElementById('divID-1'
是否可以过滤所有 har 对象并仅获取 POST 请求/响应?也许在初始化 BrowserMobProxyServer 期间是这样做的方法?我需要将 har 对象保存到文件中并上传到 har 查看器。
我正在尝试向 Oauth 的 API 发送响应。遗憾的是,Symfony2 文档在解释 $response->headers->set(...); 的所有不同部分方面做得很差。 这是我的 OauthC
我正在尝试测试用例来模拟 api 调用,并使用 python 响应来模拟 api 调用。 下面是我的模拟, with responses.RequestsMock() as rsps: url
在尝试在 Haskell 中进行一些领域驱动设计时,我发现自己遇到了这个问题: data FetchAccessories = FetchAccessories data AccessoriesRes
我正在与 ANT+ USB 棒连接,并用项目 react 器替换我自己天真的“MessageBus”,因为它看起来非常合适。 USB接口(interface)本质上是异步的(单独的输入/输出管道),我
我正在将项目迁移到AFNetworking 2.0。使用AFNetworking 1.0时,我编写了代码来记录控制台中的每个请求/响应。这是代码: -(AFHTTPRequestOperation *
我有以下代码段。 ajaxRequest.onreadystatechange = function(){ if(ajaxRequest.readyState == 4){
我有问题......我在 php 中有一个监听器脚本可以执行以下操作: if ($count != 1) {echo 'no';} else { echo "yes";} 因此它会回显"is"或“
我是一名优秀的程序员,十分优秀!