Ich hab mir da jetzt einiges angesehen werde da aber nicht unbedingt schlau :/
zB
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;
Wie würde ich hier zB meine "write" funktion einbauen ? Synchronize kann ja nicht mit Parametern umgehen soviel ich weiß oder?