msn messenger

Tags:    delphi

nogen der ved hvordan man kan lave en messenger clone? Jeg har selv prøvet men det gik ikke så godt..

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
data: string;
begin
data := Socket.ReceiveText;
memo1.Lines.Add(data);
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('connected');
ClientSocket1.Socket.SendText('VER 0 MSNP7 MSNP6 MSNP5 MSNP4 CVRO');
end;

så haved jeg håbet på at der kom et svar fra servern i memoen
i kan se hvordan messenger fungere her: http://www.venkydude.com/articles/msn.htm



4 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma
Sorter efter stemmer Sorter efter dato
Jeg er ikke befærdet i Delphi, har faktisk bare lige installeret det hjemme og ikke haft tid siden.

Men jeg lavede engang starten på et Messenger API i Java, som virkede fint (connect, modtag besked, svar, osv) .. ikke helt færdigt men brugbart nok til at jeg kunne lave en robot der tog beskeder og svarede med samme besked (derfra kan man så lave sögninger eller hvad ved jeg) ..
protokollen fandt jeg samme sted som du, venkydude artikel, og den er god nok, du skal bare være virkelig detaljeret med hvor der skal være new-line og hvor ikke.

Håber det hjælper lidt.




Hej,

Det kan du godt, og jeg har endda set et komponent til dette på torry.net
Jeg ved ikke om du kan finde en oversigt over protokollen på msdn.microsoft.com, men ellers så kig lige i det komponent :)

Med venlig hilsen
Ken Christensen



Burder jeg ikke få noget tekst fra servern når jeg sender 'VER 0 MSNP7 MSNP6 MSNP5 MSNP4 CVRO'?



lukker det bare så



t