如果你不想作判断,可以直接用SendStream发送一个流。如果要判断,可以每次发送指定大小的数据(必要的时候可以检查返回大小,甚至要求接受方返回接受的大小,如果和发送大小不等作某种操作)。—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
             毁誉由人,望天上云卷云舒,聚散任风。';
I.Maxim := MaximStr;
I.Explain := '可用分不够可以给我发短消息';
I.Desire := '加不加分随你';
—————————————————————————————————

解决方案 »

  1.   

    补充一点:如果使用多线程并且不作判断,可以用TWinSocketStream.CopyFrom()。—————————————————————————————————
    MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
                 毁誉由人,望天上云卷云舒,聚散任风。';
    I.Maxim := MaximStr;
    I.Explain := '可用分不够可以给我发短消息';
    I.Desire := '加不加分随你';
    —————————————————————————————————