Question

delphi 函数写成线程

procedure TForm3.Button4Click(Sender: TObject);

var
outF,buff_write:Integer;
chalconfig:Integer;
audioEncoding:Integer;
i,b:Integer;
a,s2,s3 ：double;
//pkointer;
begin
outF:=44100;
chalconfig:= TJAudioFormat.JavaClass.CHANNEL_OUT_MONO;
audioEncoding:=TJAudioFormat.JavaClass.ENCODING_PCM_8BIT;
playBufferSize:= TJAudioTrack.JavaClass.getMinBufferSize(outF, chalconfig, audioEncoding);
playBufferSize:=playBufferSize*2;
at1:= TJAudioTrack.JavaClass.init(TJAudioManager.JavaClass.STREAM_MUSIC,outF,
chalconfig,audioEncoding,playBufferSize,
TJAudioTrack.JavaClass.MODE_STREAM);
i:=0;
a:=frequency1/(outF*2*3.1415926);
soundData := TJavaArray<Byte>.Create(playBufferSize);
for i := 0 to playBufferSize do
begin
s3:=128*sin(a*i);
b:=round(s3);
soundData[i]:=Byte(b);
end;
at1.play;
at1.write(soundData,0,playBufferSize);
end;

按一下Button4Click只有响一下，我需连续响，是不是必须要开线程， at1.write(soundData,0,playBufferSize);一直死循环调用此函数，
新手搞不定，如何开线程？
procedure TForm3.FormShow(Sender: TObject);
begin
I:=0;
frequency1:=1000;

end;

Answer 1

把at1.play;语句，放到at1.write(soundData,0,playBufferSize);语句的下面试试。

你的问题，跟线程无关，是你的代码逻辑有问题。为简单起见，先在主线程中顺利通过了，才去考虑使用线程。

追问

代码逻辑没有有问题，是先播放使能，再压数据，只压一次所以只响一下，
要连续响，就要线程反复压

追答

要反复压，跟线程也完全无关嘛。

最简单的办法测试：
at1.write(soundData,0,playBufferSize);

at1.write(soundData,0,playBufferSize);

at1.write(soundData,0,playBufferSize);

顺序执行几条同样的语句，看能否响多次？

追问

只响三次，我要连续输出，也就是一直响，要死循环，要能控，主程序要做其他的事，开线程
在哪里死循环

追答

delphi做多线程开发，起步很方便，但是因为多线程开发的复杂性，要注意和解决的问题会更多。

TThread对象封装了win32的线程类。起步的话，创建一个TThread对象，并把你的代码移植到TThread.Execute过程中，就开始试用吧。

放心，你会遇到问题的，所以还是建议先做一个系统的学习，似慢实快。

追问

好的，谢谢