Socket数据接收问题!在线等待... (100分)

W

wlandll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-20

• #1

定义静态字符数组接收时是正确的：
var
RecvData:array[1..46] of char;

Recv(ICBC_BANK_SOCKET,RecvData,length(RecvData),0);
可是用动态数组接收时总是报错：
var
RecvData:array of char;
SetLength(RecvData,46);
Recv(ICBC_BANK_SOCKET,RecvData,length(RecvData),0);

动态数据是不是需要初始化， 该如何初始化。

 

W

wlandll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-20

• #2

怎么 没人帮忙啊!求助!

 

K

kouchun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-20

• #3

动态数据是需要初始化;
用setlength方法:
SetLength(var S; NewLength: Integer);
你的程序應是這樣吧:
var
RecvData:array of char;
begin
SetLength(RecvData,46);
Recv(ICBC_BANK_SOCKET,RecvData,length(RecvData),0);
end;

 

W

wlandll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-20

• #4

楼上的写的和我的一样，我只是省略了begin end

 

Q

qiulp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-20

• #5

那你的RecvData都是定义成过程局部变量么？不定义成局部变量试试[]

 

W

wlandll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-20

• #6

To:qiulp，全是过程的内部变量，这有关系吗？

 

C

CrazyCat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-20

• #7

SetLength(RecvData,46);
设置完后应该是0..45,你看下是不是这个问题,具体的我没试,我写的也和你一样的,但我设置的比较大,65536.
我的想法可能不对，没试的！

 

C

chenxz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-20

• #8

调用fillchar看看。

 

W

wlandll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-20

• #9

fillchar过了，好象也不行！

 

B

black_horse1220

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-21

• #10

不知道你在这里为什么要用动态数组，动态数组在SetLength之后，返回给RecvData的是一个地址指针，而Recv要的是具体已经开辟好的空间，所以报错了。

你是想不定长的接收字符吗？如果是那样的话，你可以定义一个长度参数传进来，然后截取你要的字符就可以了。

procedure TForm1.RecvDataPro(nLen:Integer);
var
RecvData:array[1..1000] of char; //这时将长度定长一点
begin
Recv(ICBC_BANK_SOCKET,RecvData,nLen,0);
end;
接收nLen长度的字符.

 

W

wlandll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-25

• #11

接受答案了.