sorry, actually it's this
procedure TForm1.WSocket2DataAvailable(Sender: TObject; ErrCode: Word);
Var a: string;
begin
a:= WSocket2.ReceiveStr;
// if length(a) = 0 then Exit;
Inc(rec,1);
caption:= 'Received packets = '+inttostr(rec);
memo1.lines.add('Data: '+a);
end;-- To unsubscribe or change your settings for TWSocket mailing list please goto http://www.elists.org/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
