Proxy server til MSN Messenger
Jeg er ved og prøve, at lave en proxyserver til min MSN Messenger, jeg har derfor indstillet min messenger til at gå gennem mit proxyprogram. Proxyprogrammet har en serversocket til at modtage tingene, den sender så videre ved hjælp af:procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
Socket: TCustomWinSocket);
var
tekst: String;
begin
tekst := socket.ReceiveText;
if Clientsocket1.Active then
begin
Clientsocket1.Socket.SendText(tekst);
Listbox1.Items.Add('Herfra: ' +IntToStr(length(tekst)) + tekst);
end
else
tekst2 := tekst;
end;
^^tekst2 er en global variabel, og benyttes kun til at lagre en evt. meddelelse som skulle være sendt fra messenger inden at proxyprogrammet har fået kontakt til messenger.
Clienten jeg sender videre med har:
Adress: 207.46.104.20
Host: messenger.hotmail.com
Port: 1863
Når den modtager data fra messenger sendes det videre til serversocket'ens første connection (er for at starte et sted, mens alligevel kun en connecting er der). Koden:
procedure TForm1.ClientSocket1Write(Sender: TObject;
Socket: TCustomWinSocket);
var
tekst: String;
begin
tekst := socket.ReceiveText;
showmessage(IntToStr(socket.ReceiveLength));
Listbox1.Items.Add('Udefra: ' +IntToStr(length(tekst)) + ' ' + tekst);
Serversocket1.Socket.Connections[0].SendText(tekst);
end;
Men af en eller anden grund virker dette ikke, messenger bliver bare ved med at søge og til sidst så laver proxyserveren fejl: Asynchronous socket error 10053 (er ClientSocket som giver denne fejlmeddelelse)
Nogen der kan hjælpe?
