Originally Posted by
Sh4d0wf0x
It's in the misc file of the reflection include:
{$IFNDEF Aerolib}
{$include reflection/lib/misc/prosocks.simba}
{$ENDIF}
Function TReflectionMisc.GetPage(Url: string): string;
var
S: SSLSocket;
Res: ProMemoryStruct;
begin
Pro_InitSocket(S, nil, nil, nil, nil);
Pro_CreateSocket(S, '');
Pro_SetSSL(S, false, false, true);
Pro_SetURL(S, URL);
Pro_DoGetEx(S, Res);
SetLength(Result, Res.size);
MemMove(Res.Memory^, Result[1], Res.Size);
Pro_FreeSocket(S);
end;
Replace that method with:
Code:
Function TReflectionMisc.GetPage(Url: string): string;
var
S: SSLSocket;
Res: ProMemoryStruct;
begin
S.init();
S.setURLFollow(true);
S.setURL(URL);
S.doGet(Res);
SetLength(Result, Res.size);
MemMove(Res.Memory^, Result[1], Res.Size);
S.free;
end;
Source: https://villavu.com/forum/showthread.php?t=115356