Postanowiłem napisać prosty server proxy. Poszło prosto i szybko ale nie działa ;-P
Schematycznie jego praca ma wyglądać tak:
Klient (np. przeglądarka) -> MÓJ PROXY -> Server docelowy.
Oto moje wypociny
procedure TForm1.ProxyClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
i,Lng: Integer;
Buffer: array[0..1024] of char;
begin
Lng := Socket.ReceiveLength;
Socket.ReceiveBuf(Buffer, Lng);
ProxyServer.Socket.SendBuf(Buffer,Lng);
end;
procedure TForm1.ProxyServerClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
i,Lng: Integer;
Buffer: array[0..1024] of Char;
begin
Lng := Socket.ReceiveLength;
Socket.ReceiveBuf(Buffer,Lng);
ProxyClient.Socket.SendBuf(Buffer, Lng);
end;
procedure TForm1.ProxyServerAccept(Sender: TObject; Socket: TCustomWinSocket);
begin
ProxyClient.Active:=True;
end;
Aby przetestowac go, włączyłem server na porcie 8904 i ustawiłem:
ProxyClient.Address=onet.pl
ProxyClient.Host=onet.pl
ProxyClient.Port=80
Wklepałem w przegladarce 'localhost:8904' ale nic się nie ładuje :|