DELPHI 线程怎样传递参数?

Posted 2023-04-13

不知道哪里出的问题，传递后Edit1.Text显示空白，请高手指点一下，不想用CreateThread，源码如下: type pstr = ^string; var Form1: TForm1; th1: cardinal; h1: Integer; implementation $R *.dfm procedure showw(s: pstr); begin Form1.Edit1.Text := s^; end; procedure TForm1.Button1Click(Sender: TObject); var pp: pstr; s: string; begin s := '95588'; pp := @s; //showw(pp); //这么传就能显示 h1 := BeginThread(nil, 1024, @showw, pp, 0, th1); //这么传就是空白 end;

参考技术A 你得这么写，就嗖的一声传过去。
procedure
TForm1.Button1Click(Sender:
TObject);
var
pp:
pstr;
begin
new(pp);
//新的屁屁
pp^
:=
'95588';
h1
:=
BeginThread(nil,
1024,
@showw,
pp,
0,
th1);
end;

delphi与java 怎样通信

需要用到工业上的部分模块，delphi与硬件接触，java怎样与Delphi通信来控制底层的硬件呢？

参考技术A 和普通的程序开发没有什么不同，
你可以用delphi来和设备通讯（一般是COM口），
用JNI传递结果给java,
或者用数据库做中介也可以。 参考技术B 将访问硬件部分的代码封装成DLL，java通过调用dll来操作。jni本回答被提问者采纳 参考技术C jni,或者TCP/IP 参考技术D JNI
或者socket