有人帮我把下面代码用 delphi写出来吗 ？ (50分)

E

errun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-30

• #1

ReadPort1 (BYTE* pData, size_t iLen);

unsigned char databuff[4];
DWORD st= ReadPort1 (databuff,4);

 

Y

yanyandt2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-30

• #2

var
databuff:array[0..4]of char
begin
st := ReadPort1(databuff,4);
end;

 

牛

牛头12236

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #3

我也是学 C++ 的，多交流啊。

function ReadPort1(pData: PBYTE
iLen: size_t): DWORD;

databuff: array[0..3] of char;

DWORD st;
st := ReadPort1((PBYTE)@databuff, 4);