Autor Téma: CreateAnonymousThread - spíš pro pobavení  (Přečteno 228 krát)

Offline Jan Fiala

  • Plnoletý
  • ***
  • Příspěvků: 183
  • Karma: 2
    • Verze Delphi: 10.4.1
    • PSPad editor
CreateAnonymousThread - spíš pro pobavení
« kdy: 19-04-2021, 14:54:54 »
Excellent
Rated 1 time
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)

Kód: Delphi [Vybrat]
  1. procedure TGoogleAnalytics.HttpRequest(const AUrl: string);
  2. begin
  3.   TThread.CreateAnonymousThread(
  4.     procedure
  5.     var
  6.       HTTP: THTTPSend;
  7.     begin
  8.       HTTP := THTTPSend.Create;
  9.       { neco dalsiho, treba zjisteni proxy apod. pro zjednoduseni vypusteno }
  10.       try
  11.         HTTP.HTTPMethod('GET', AURL);
  12.       finally
  13.         HTTP.Free;
  14.       end;
  15.     end).Start;
  16. 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...

Offline raul

  • Hrdina
  • ****
  • Příspěvků: 403
  • Karma: 15
    • Verze Delphi: FPC :D
Re:CreateAnonymousThread - spíš pro pobavení
« Odpověď #1 kdy: 20-04-2021, 11:01:23 »
:) Stane se
Lazarus 1.6.3:), FPC, Intel/Arm, Windows/Linux