Вывод данных в QByteArray QT 3.3.8

Код:#pragma pack(1)typedef struct p1{ short int ka; long vit; short int kv; double d; char t[60];} P1;#pragma pack()typedef vector vP1; // вектор Зон видимостиvoid Form1::calc(){ QByteArray ba; QDataStream stream(ba,IO_WriteOnly); P1 p; vP1 vv; int ii=0; p.ka=32767; p.vit=0x0; p.kv=32767; p.d=0; for (short i=0;i