Einzelnen Beitrag anzeigen

Rolandrevolvermann

Registriert seit: 17. Jan 2019
30 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#11

AW: VCL Twebbroser mit YouTube I-Frame API

  Alt 18. Jan 2019, 10:52
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'

Geändert von Rolandrevolvermann (18. Jan 2019 um 10:54 Uhr)
  Mit Zitat antworten Zitat