求助！

[wg961423]

//这是两个Delphi的过程。
procedure TForm1.ACMWaveIn1Data(data: Pointer; size: Integer);
var
mdata:array[1..140] of char;
k:integer;
begin
for k:=1 to size do mdata[k]:=pchar(dword(data)+dword(k-1))^;
NMUDP1.SendBuffer(mdata,size);
end;

procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
var
mdata:array[1..140] of char;
data:Pchar;
begin
NMUDP1.ReadBuffer(mdata,NumberBytes);
data:=pchar(dword(@mdata));
inc(PlayPackets);
if NumberBytes=-1 then inc(ErrorPackets)
else ACMWaveOut1.PlayBack(data,NumberBytes);
end;

//怎么改成C++ Builder的？
void __fastcall TForm1::In1Data(Pointer data, int size)
{
//怎么写？
}

void __fastcall TForm1::NMUDP1DataReceived(TComponent *Sender,
int NumberBytes, AnsiString FromIP, int Port)
{
//怎么写？
}

[wg961423]

帮我顶！

[codecb]

char mdata[140];
int k;
for (k=1,k<=size,k++)
{
mdata[k]=pchar(dword(data)+dword(k-1))^;
}



char mdata[140];
pchar data;
NMUDP1->ReadBuffer(mdata,NumberBytes);
data->pchar(dword(&mdata));
PlayPackets++;
if (NumberBytes=-1)
{
ErrorPackets++;
}
else
ACMWaveOut1->PlayBack(data,NumberBytes);

[MikeWKL]

void __fastcall TForm1::In1Data(Pointer data, int size)
{
char mdata[140];
int k;

for (k=1;k<=size;k++)
{
mdata[k] = pchar(dword(data)+dword(k-1))^;
NMUDP1->SendBuffer(mdata,size); //这里NMUDP1定义是指针类型的吧？
}

}

void __fastcall TForm1::NMUDP1DataReceived(TComponent *Sender,
int NumberBytes, AnsiString FromIP, int Port)
{
char mdata[140];
pchar data;

NMUDP1->ReadBuffer(mdata,NumberBytes);
data = pchar(dword(&mdata));

PlayPackets++; //PlayPackets应该是public类型的吧？

if (NumberBytes = -1)
ErrorPackets++;
else
ACMWaveOut1->PlayBack(data,NumberBytes);

}

[zywx]

yes!

[s98231106]

yes

[wg961423]

UP

[yingyys]

都写好了

[Behard]

mdata[k] = pchar(dword(data)+dword(k-1))^;
是什么意思？（看不懂）

[wg961423]

各位老大，pchar(dword(data)+dword(k-1))^;能在C++Builder中用吗？

[wg961423]

C++Builder 不认pchar、^。