Až budete chtít něco udělat ve vlákně (třeba poslat HTTP request, aby neblokoval, třeba když není připojení k netu)
procedure TGoogleAnalytics.HttpRequest(const AUrl: string);
begin
TThread.CreateAnonymousThread(
procedure
var
HTTP: THTTPSend;
begin
HTTP := THTTPSend.Create;
{ neco dalsiho, treba zjisteni proxy apod. pro zjednoduseni vypusteno }
try
HTTP.HTTPMethod('GET', AURL);
finally
HTTP.Free;
end;
end).Start;
end;
tak prosím nezapomeňte na to
.Start za závorkou. Je tam docela důležité.
Jinak strávíte dlouhou dobu zkoumáním, proč se request neprovádí ve vlákně a bez vlákna ano...
