MRIM и Indy

[Pedro]

Здравствуйте, уважаемые программисты!
Решил вот попробывать сделать примитивный агент на Indy (пока только авторизацию). Делаю как-то "не по человечески" и не могу понять как отправлять пакет с параметрами.
Первый пакет отправляю так:

var
b:TBytes;
st:TMemoryStream;
ping:dword;
sendbuf,recbuf:TMRIMPacket;
begin
st:=TMemoryStream.Create;

IdTCPClient1.Host:=edit1.Text;
IdTCPClient1.Port:=StrToInt(Edit2.Text);
IdTCPClient1.Connect;
///Заголовок////
sendbuf.magic:=CS_MAGIC;
sendbuf.proto:=PROTO_VERSION;
sendbuf.seq:=0;
sendbuf.msg:=MRIM_CS_HELLO;
sendbuf.dlen:=0;
sendbuf.from:=0;
sendbuf.fromport:=StrToInt(Edit2.Text);

st.write(sendbuf,sizeof(sendbuf)); //записывю в поток
st.Position:=0;
SetLength(b,st.Size);
st.Read(b[0],st.Size);//переделываю в массив байт
st.Position:=0;
IdTCPClient1.Socket.Write(b,Length(b));//отправляю, получается отправляю 44 байта
st.Clear;


IdTCPClient1.Socket.ReadStream(st,44);//читаю 44 байта - заголовок
st.Position:=0;
st.Read(recbuf,st.Size);//записываю в буфер
st.Clear;

IdTCPClient1.Socket.ReadStream(st,recbuf.dlen);//дочитываю остаток, тут получается 4 байта, интервалы пинга

st.Position:=0;
st.Read(ping,4); //записываю в переменную
ShowMessage(IntToStr(ping));// ping получился 30, вроде правильно
st.free;

Все нормально, получаю положительный ответ и интервал 30 секунд. Далее каждые 30 секунд шлю пакет MRIM_CS_PING, тоже все нормально отправляется. Но не пойму как именно авторизоваться? Вот если делать по тому же методу что делал я, нужно сначала заголовок и все параметры записать в поток и отправить, или писать в поток и отправлять по одному, и каждый раз отправлять новый заголовок? И еще не совсем пойму в каком формате отправлять строки? Перед строкой отправлять ее длину? пробывал различные способы, но так и не получил ответ, либо программа виснет, либо закрывается соединение.
Надеюсь ктонибудь откликнется. Заранее примного благодарен...

[sanek99]

Никто не подскажет, я точно так же написал код, но вылезает ошибка,

IdTCPClient1.Socket.Write(b,Length( b)) вот в этой строке, дельфи не понимает что такое write, как можно поправить?