Dateidownload

[haentschman]

Zitat:

Vielleicht so?

...definitiv NÖ!

Delphi-Quellcode:

procedure TUpdateThread.Execute;
begin
 // Downloade Datei und und und...

 Form1.HTTPFileDownload := THTTPFileDownload.Create(nil);
 Form1.HTTPFileDownload.OnChange := Form1.IdHTTPProgressOnChange;
...

...ohne Synchronisierung auf die Form Variable im Thread zugreifen ist ein No-Go. Wieso soll der Thread die Form kennen?

[SneakyBagels]

Ist jetzt einfach abgetippt. Verwende ich schon seit etlichen Jahren so und bisher hat sich niemand beschwert (von XP bis Windows 10).
Ich greife doch nicht auf irgendeine VCL-Komponente zu, so schlimm kann es also nicht sein.

[haentschman]

Zitat:

Verwende ich schon seit etlichen Jahren so und bisher hat sich niemand beschwert (von XP bis Windows 10).

...ich empfinde das als Zufall.

Zitat:

Ich greife doch nicht auf irgendeine VCL-Komponente zu, so schlimm kann es also nicht sein.

...was ist Form1?

[SneakyBagels]

Zitat:

...ich empfinde das als Zufall.

Denke ich nicht. So schlimm kann es nicht sein, wie hier immer gepredigt wird. Denn wenn es tatsächlich so wäre, dann hätten andere und ich in den letzten, etlichen Jahren viele viele Fehler sehen müssen.

Frage:
wäre es denn besser ein Record in einer Unit ohne Form abzulegen, eine Instanz zu erzeugen und auf diese Daten zuzugreifen? Dann wäre Form1 weg.
Dann wäre es wenigstens ein wenig OOP und Synchronize bräuchte man auch nicht mehr.

[haentschman]

Zitat:

So schlimm kann es nicht sein, wie hier immer gepredigt wird. Denn wenn es tatsächlich so wäre...

An dieser Stelle bin ich raus. Ich habe mir kürzlich mein Maul verbrannt als ich das die Nachteile des WITH erklären wollte. Das brauche ich nicht nochmal. Ich hoffe daß du auch von anderer Stelle die Fehlerquellen dieser Konstellation gezeigt bekommst.

Wenn du es erklärst haben möchtest, mache bitte einen anderen Thread auf.

[SneakyBagels]

Zitat:

An dieser Stelle bin ich raus.

Das beantwortet meine Frage aber nicht, die den TE auch interessieren könnte.

[haentschman]

Tutorial Threads: https://wiki.delphigl.com/index.php/...Multithreading

Zitat:

Zitat:

Alles was aus dem Execute aufgerufen wird hat als Kontext diesen Thread!

Zitat:

Jetzt stellt sich natürlich die Frage was muss alles synchronisiert werden?
Pauschal lässt sich nur sagen, alles was irgendwo von mehreren Threads (incl. VCL-Thread) geschrieben werden kann muss synchronisiert werden. Ich erkläre euch das mal besser an einem kleinem Beispiel:

Nehmen wir einmal an wir haben einen Webspider. Dieser soll 200 Webseiten downloaden.
Wir erstellen uns einen Thread dem ich die URL übergebe und der selbständig mit dem Laden anfängt. Wenn dieser fertig ist dann sagt er dem VCL-Thread mittels eines Events, dass er fertig ist.

Grundsätzlich werden die "Werte der Berechnung z.B" nur über Events rausgegeben. Diese werden IMMER synchronisiert.

Delphi-Quellcode:

type
  TBinFertig = procedure(const Content: String) of object;

  TMyOwnThread = class(TThread)
  private
    FBinFertig: TBinFertig;
    procedure SyncBinFertig;
  public
    property BinFertig: TBinFertig read FBinFertig write FBinFertig;
  end;

implementation

procedure TMyOwnThread.SyncBinFertig;
begin
  if Assigned(FBinFertig)
    then FBinFertig(DasIstDerInhaltDerWebseite);
end;

procedure TMyOwnThread.Execute;
begin
  try
    // Download der Seite ...

    // Synchronisieren
    Synchronize(SyncBinFertig);
  except
    on e: exception do begin
      // mache hier irgendetwas mit dem Fehler.
    end;
  end;
end;