Hej, mam przykład demo serwera proxy Synapse HTTP (katalog httpproxy, w folderze demos), który jest dostępny w kodzie źródłowym Synapse
http://www.ararat.cz/synapse/doku.php/download
wszystko działa dobrze, ale nie mam pojęcia, jak dodać uwierzytelnianie użytkownika do tego kodu, czy ktoś może mi pomóc? dzięki
Próbowałem dodać
sock.SocksUsername:='user';
sock.SocksPassword:='pass1234';
do tej procedury, ale nadal mogę korzystać z tego serwera proxy bez uwierzytelnienia.
procedure TServiceThread.Execute;
var
sock: TTCPBlockSocket;
ClientSock: TSocket;
begin
sock := TTCPBlockSocket.Create;
try
sock.bind('0.0.0.0','3130');
sock.SocksUsername:='user';
sock.SocksPassword:='pass1234';
if sock.LastError <> 0 then
begin
WriteLog('!!! BIND failed !!!');
Exit;
end;
sock.setLinger(true,10000);
sock.listen;
repeat
if terminated then
break;
if sock.canread(1000) then
begin
//new connection... launch TTCPHttpThrd
ClientSock := sock.accept;
if sock.lastError = 0 then
TTCPHttpThrd.create(ClientSock);
end;
until false;
finally
sock.free;
end;
end;
Delphi 
