Ich habe mich nun mal in das Thread Thema bzgl. Delphi eingelesen.
Mein Plan:
Ich habe z.B. eine procedure
Code:
procedure youtube_abspielen(pfad:String)
Diese möchte ich in einen Thread packen. Dazu habe ich mir folgenden Type gebaut
Code:
Type
TYoutube = class(TThread)
TProc: procedure(const AStr: String) of object;
private
Pfad : String;
Funktion : TProc;
protected
procedure Execute(); override;
public
property Param1 : String read Pfad write Pfad;
property Proc : TProc read Funktion write Funktion;
End;
Die Excecute macht folgendes
Code:
procedure TYoutube.Execute;
begin
try
TProc(pfad);
Except
end;
end;
Im Programm dachte ich mir rufe ich das folgendermaßen auf:
Code:
MyYoutube := TYoutube.Create(False);
MyYoutube.TProc := youtube_abspielen('Hier ist das große Fragezeichen'); //Hier klappt es nicht
MyYoutube.Param1 := 'Ein_String';
Es hakt soweit ich das beurteilen kann bei der Zuweiseung der Procedure an die Member.
PS: Wenn ich der Procedure einen String mitgebe kommt folgende Fehlermeldung:
E2010 Incompatible types: 'Procedure of object' and 'procedure, untyped pointer or untyped parameter'