winsock1是什么控件?
SendData的原型是什么?
function SendData(var Buffer): Integer;
是这样不?
SendData(@S1[1])

解决方案 »

  1.   

    winsock1是Twinsock控件!!
    就是socket
      

  2.   

    var   tempStr:array[0..1023] of char;     ClientSocket.Socket.SendBuf(tempStr,len);    //发送数据
      

  3.   

    copy_paste(落泊的木石三) is rightWrite(@S1[1])
      

  4.   

    用ServerSocket和ClientSocket不可以吗?
    ClientSocket.Socket.SendBuf(s1,2);//发送S1
      

  5.   

    To:Crob(我干嘛这么帅) :
    SendData(@S1[1])是什么代码 呀??
    根本就编译不过??
      

  6.   

    看看这段说明:SendData TCP Method DescriptionSends data to peer.Return ValueVoid.Syntaxobject.SendData dataParametersDataData to be sent. For binary data, byte array should be used.
    Data Type: VARIANT
    Param: IN
    Currently, the following variant types are supported.Type C++ VB Type
    Byte VT_UI1 vbByte
    Integer VT_I2 vbInteger
    Long VT_I4 vbLong
    Single VT_R4 vbSingle
    Double VT_R8 vbDouble
    Currency VT_CY vbCurrency
    Date VT_DATE vbDate
    Boolean VT_BOOL vbBoolean
    SCODE VT_ERROR vbError
    String VT_BSTR vbString
    Byte Array VT_ARRAY | VT_UI1 vbArray + vbByte
    CommentsWhen a UNICODE string is passed in, it is converted to an ANSI string before being sent out on the network.
    The user is notified of sending progress by the SendProgress and SendComplete event.