VB语句翻译成DELPHI的，Winsock相关，双语高手进 ( 积分: 50 )

M

mythflair

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-22

• #1

Private Sub tcpserver_DataArrival(ByVal bytesTotal As Long)
Dim strdata() As Byte
Dim i, j As Integer
i = tcpserver.BytesReceived
ReDim strdata(i)

tcpserver.GetData strdata, vbByte, i
For j = 0 To i - 1
txtoutput.Text = txtoutput.Text + Hex(strdata(j)) + " "
Next
End Sub


Private Sub txtsenddata_Change()
tcpserver.SendData Right(txtsenddata.Text, 1)
End Sub

 

A

asksomeone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-23

• #2

procedure Tcpserver_DataArrival(bytesTotal:integer);
var strdata:array of byte;
i,j:integer;
begin
i:=tcpserver.BytesReceived;
setLength(strdata,i);
{tcpserver.GetData(strdata, vbByte, i)这一句不知道是不是，因为没有用过}
for j:=0 to i-1 do
begin
txtoutput.Text = txtoutput.Text + inttoHex(strdata(j)) + '';
end;

end;


procedure txtsenddata_Change;
begin
{tcpserver.SendData Right(txtsenddata.Text, 1);请高手帮看吧}
End;

 

M

mythflair

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-25

• #3

请高手指教

 

L

lovezyp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-25

• #4

Right函数是vb里的一个字符串函数，作用是从右边取n个字符
Right(txtsenddata.Text, 1)就是取txtsenddata.Text字符串第一个字符

delphi实现也很简单，不用说了吧？

 

M

mythflair

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-26

• #5

请各位帮忙

 

M

mythflair

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-27

• #6

顶顶

 

B

Buddy.Sun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-28

• #7

Right(txtsenddata.Text, 1) 'vb
RightStr(txtsenddata.Text, 1) //DELPHI