Security.allowDomain("*");


try {
    var xmlSocket = new XMLSocket();
    xmlSocket.connect("Martin-Dell", 843);
    tbTest.text += "\r\n XML Socket Connected";
} catch (e:Error) {
    tbTest.text += "\r\n XML Socket Not Connected";
}

try {
    Security.loadPolicyFile("xmlsocket://Martin-Dell:843");
    tbTest.text += "\r\n Policy Loaded Successfully";
} catch (e:Error) {
    tbTest.text += "\r\n Policy Failed";
}


var socket:Socket = new Socket();
socket.addEventListener(Event.CONNECT, onConnect);
socket.addEventListener(Event.CLOSE, onClose);
socket.addEventListener(IOErrorEvent.IO_ERROR, onError);
socket.addEventListener(ProgressEvent.SOCKET_DATA, onResponse);
socket.addEventListener(SecurityErrorEvent.SECURITY_ERROR, onSecError);

try {
    socket.connect("Martin-Dell", 4444);
    tbTest.text += "\r\n Socket Connected";
} catch (e:IOError) {
    tbTest.text += "Socket Connection Failed";
}


function onConnect(e:Event):void {
    //initial message to socket server:
    var Message:String;

    Message="0000|";        // Command - Connected
    Message+=UserID + "|";      // UserID
    Message+=SystemID+ "|";     // SystemID
    Message+=mexfrom+ "|";      // mexfrom
    Message+=meyfrom+ "|";      // meyfrom
    Message+=mexto+ "|";        // mexto
    Message+=meyto+ "|";        // meyto
    Message+=UserName+ "|";     // UserName
    Message+=ShipName+ "|";     // ShipName

    socket.writeUTFBytes(Message.toString() + "<EOF>");
    socket.flush();
    tbTest.text += "\r\n Message Sent:" + Message.toString() + "<EOF>";
}

function onClose(e:Event):void {
    // Security error is thrown if this line is excluded
    socket.close();

}

function onError(e:IOErrorEvent):void {
    trace("IO Error: "+e);

    tbTest.text += "IO Error: "+e;
}

function onSecError(e:SecurityErrorEvent):void {
    trace("Security Error: "+e);
    tbTest.text += "Security Error: "+e;
}

function onResponse(e:ProgressEvent):void {
    if (socket.bytesAvailable>0) {

        //now to check what was sent to the client:
        tbTest.text +=  "\r\n Data received: " + socket.readUTFBytes(socket.bytesAvailable);
    }
}