www.nsoft-s.com

function my_login(UIN:Integer; Pass:String):WideString;
var
  JSONobj: ISuperObject;
begin
  JSONobj := SO();
  JSONobj.I['UIN']    := UIN;
  JSONobj.S['Pass']   := Pass;
  JSONobj.S['Email']  := '[email protected]';
  JSONobj.S['Nick']   := 'SV';
  JSONobj.I['State']  := 0;
  JSONobj.S['Domain'] := '';

  result := JSONobj.AsJSon;
  JSONobj.Clear(true);
  JSONobj := nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
   IdTCPClient1.Host := Edit3.Text;
   IdTCPClient1.Port := StrToInt(Edit4.Text);

   IdTCPClient1.Connect;

   //Отправляем серверу что мы хоть подключиться
   IdTCPClient1.Socket.WriteLn('mc5.6' + '{"Secured":""}');

   //Отправляем приветствие
   IdTCPClient1.Socket.WriteLn(MagicString + cs_hello + SendingFlags + my_hello);

   //Логинимся
   IdTCPClient1.Socket.WriteLn(MagicString + cs_login + SendingFlags + my_login(StrTOInt(Edit1.Text), Edit2.text));

   //Пингуем сервер, иначе отключит
   IdTCPClient1.Socket.WriteLn(MagicString + cs_ping + SendingFlags + my_ping);

   MyThread:=TMyThread.Create(False);
   MyThread.Priority:=tpNormal;

   if Timer1.Enabled = False then
     Timer1.Enabled := True;

   Form1.Caption := 'Online';
   Button1.Enabled := False;

   for i:= 0 to Form1.ComponentCount - 1 do
    if Form1.Components[i] is TEdit then
     (Form1.Components[i] as TEdit).Enabled := False;
end;