Hi all, first of i notice that my English is very bad,so i'm sorry for
this.
I want to comminicate over Msn Messenger using Delphi and Indy. I wrote some
code but i didnt connect messenger.hotmail.com port 1863. In my code i am
sending at the following commands to server.
1 - VER 1 MSNP9 CVR0
2 - CVR 2 0x0413 winnt 5.1 i386 MSNMSGR 6.1.0211 MSMSGS
myhotmailaccount@hotmail.com
3 - USR 3 TWN I myhotmailaccount@hotmail.com
4 - OUT 4
5 - VER 5 MSNP9 CVR0
6 - CVR 6 0x0413 winnt 5.1 i386 MSNMSGR 6.1.0211 MSMSGS
myhotmailaccount@hotmail.com
7 - USR 7 TWN I myhotmailaccount@hotmail.com
8 - USR 8 TWN S
t=6KQmfeUR3BXbMzu1pPbL7Ge77BgHPqLw4svfsZ5HdzSV10101r0hikUO3x1yE!I5p*gjDETBEFQxG2!gJKFpASFQ$$&p=61Kd3YNKSC!90*QenrsLf*udTmdRHsKN6rMxhwdjVXa0l0mzmCMptXgVC7zZ*DyN!9!g5X45o4Hu9wM5j3ZcpVAiPoVF2ykURf*vduRNL6bgmUJXroCZMXwMQhUEGgjkb8Qmg8orptlDeKKHjLp3zmTXmC*hev2aajYQ6XnW3ynQKmmc7zhxcUFG2UbYONdex0tBSOA3T!jk9Vo20Q1PKfpA$$
9 - SYN 9 0
After i pass some steps i disconnect from the server. I didnt connect :(
What must i do ?
This my my simple code to connect MSN Server:
Listbox.Items has below choises (1 to 9)
id : TIdTCPClient;
formcreate....
begin
id.connect();
end;
procedure TForm1.Button1Click(Sender: TObject);
var
sReceived : String;
begin
id.WriteLn(ListBox1.Items[ListBox1.ItemIndex]);
sReceived := id.ReadLn();
Memo1.Lines.Add(sReceived);
ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
end;
Thank you for your helps.
