procedure TForm1.ACMWaveIn1Data(data: Pointer; size: Integer);
var
mdata:array[1..10000] of char;
k:integer;
begin
for k:=1 to size do mdata[k]:=pchar(dword(data)+dword(k-1))^;
WSo.Send(mdata,size);
end;
这代码 那里有问题阿 怎么老是提示 “WSo.Send(mdata,size);”这里不对阿...
var
mdata:array[1..10000] of char;
k:integer;
begin
for k:=1 to size do mdata[k]:=pchar(dword(data)+dword(k-1))^;
WSo.Send(mdata,size);
end;
这代码 那里有问题阿 怎么老是提示 “WSo.Send(mdata,size);”这里不对阿...
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货