Pas File Einbinden brauche dringend hilfe

[hedie]

Hallo

Ich habe mir volgende Komponente heruntergeladen VolumeController
darin befindet sich ein .pas file das die funktionen enthält

nun will ich nach dem ich es zu meinem projekt hinzugefügt habe aus einer anderen unit die befehle verwenden wie zb
mute..... was muss ich dazu tun damit ich aus unit2 die funktionen die in der unit3 existieren verwenden kann?


ich hoffe ihr helft mir

Liebe grüsse
Claudio

[TStringlist]

Zitat:

was muss ich dazu tun damit ich aus unit2 die funktionen die in der unit3 existieren verwenden kann?

Moin,

dazu musst Du nur die unit3 in die Uses-Clausel der unit2 eintragen.

[hedie]

Das hab ich versucht aber leider klappt das nicht

versuchs du mal mit dem link dies zu machen

[TStringlist]

In diesem SSVolumeController.PAS-File sind gar keine eigenständigen Funktionen drin, die man einfach so aufrufen könnte. Stattdessen ist dort aber ein Objekt "TssVolumeController" deklariert, dessen Methoden man event. schon nutzen könnte. Dazu ist es nur nötig, z.B. im "FormCreate"-Eventhandler erstmal ein solches Objekt zu erzeugen...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ASSvolumeController := TssVolumeController.Create(self);
end;

...und danach zu schauen, was passiert, wenn man irgendwelche Methoden davon aufruft.

[TStringlist]

Hallo, ich hab's mir gerade nochmal ein bisschen genauer angesehen und dabei bemerkt, dass dieses Objekt ja auch gar keine Methoden hat, die public deklariert sind, dh. also, die man selbst aufrufen könnte. ABER: Es hat 3 published Properties und diesen kannst Du ganz normal Werte zuweisen, ...was dann funktioniert,

z.B.:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  AssVolumeController.Volume := 10;
end;

Effekt bei mir: Der Ton wird um einiges leiser als er davor war.

[hedie]

Weshalb klappt das dan bei mir nicht?

Delphi-Quellcode:

procedure TForm2.Button3Click(Sender: TObject);
begin
Assvolumecontroller.volume := 10;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
ASSvolumeController := TssVolumeController.Create(self);
Mediaplayer1.Display := Form1.Panel1;

end;

In die Uses hab ich SSVolumecontroller auf genommen aber das ding gibt ne fehlermeldung an
das Assvolumecontroller kein deklarierter bezeichner ist

[Klaus01]

Hast Du wie es TStringList beschrieben hatte auch schon dies gemacht:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  ASSvolumeController := TssVolumeController.Create(self); 
end;

Grüße
Klaus

[hedie]

ja ich hab den code ja gepostet

Aber auch dort kennt er das ASSVolumeController nicht

[Klaus01]

auch die Variable irgendwo bekannt gemacht:

z.B. hier:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    ASSvolumeController :TssVolumeController;
    { Public declarations }
  end;

Grüße
Klaus

[hedie]

Das War der Fehler Vielen vielen dank


nun klappt es