Skip to content

Instantly share code, notes, and snippets.

@Al-Muhandis
Last active Feb 15, 2020
Embed
What would you like to do?
Hack in blcksock.pas (laz_synapse.lpk 40.1)
procedure TTCPBlockSocket.HTTPTunnelDoConnect(IP, Port: string);
//bugfixed by Mike Green (mgreen@emixode.com)
var
s: string;
begin
//Port := IntToStr(ResolvePort(Port));
inherited Connect(FHTTPTunnelIP, FHTTPTunnelPort);
if FLastError <> 0 then
Exit;
FHTTPTunnel := False;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment