Hurtig hjælp Ønskes \"Mangler StereoButton\"

øhh, er Samples et program?

en StereoButton????

/ZIRON

Er ved at lave en cd afspiller til pc\'en, ifølge bogen som jeg laver den efter skal der bruges en \"StereoButton\" og den skulle ligge i \"Samples\" jeg er nybegynder det er derfor jeg spørger jer.
Mvh.Rebecca

hvad er det for en bog du bruge og hvad skal du knap kunne gøre????

/ZIRON

Og nej \"Samples\" er ikke et program det er en del af Component Paletten i Delphi.
Mvh.Rebecca

Hvilken version af delphi, skulle det være, kan ikke errindre en stereobutton ?

Hvilken funtion søger du, kan du ikke bruge noget andet istedet ?

/Martin

nåh martin der var du, så er jeg mere rolig :-)

/ZIRON

Hej Martin
Jeg BRUGER VER.5
I bogen står der intet om hvilken version man skal bruge, bogen hedder \"Delphi Videregående programmering\" og er skrevet af Jørn Slot.

rebecca >> hvad skal den knap kunne gøre, det må der da stå???

/ZIRON

I får lige den kode jeg skal skrive!!!!

procedure TForm1.StereoButton1Click(Sender:TObject);
var buf:Array[0..15]of char;
begin
if StereoButton1.IsOn=True then
begin
try
Shape1.Brush.Color:=clLime;
MediaPlayer1.Open;
ifMediaPlayer1.Mode=mpPlaying then
Panel7.Caption:=\'      Spiller\';
HentCDTotaler;
VisSporNummer;
VisSporTid;
VisAktuelleTid;
Except
on EMCIDeviceError do begin
MessageDlg(\'Der er opstået en fejl.Luk CD-Player.\',mtError,[mbOk],
0);
Application.Terminate;
end;
end;
case MediaPlayer1.Mode of
mpPlaying:SpeedButton25.Enabled:=False;
mpStopped,
mpPaused:SpeedButton25.Enabled:=True;
end;
end
else
begin
MediaPlayer1.Rewind;
SpeedButton25.Enabled:=True;
Panel9.Caption:=\'1\';
Panel10.Caption:=\'00:00\';
Panel11.Caption:=\'00:00\';
Gauge1.Progress:=0;
Gauge2.Progress:=0;
Panel7.Caption:=\'      Stoppet\';
Shape1.Brush.Color:=clSilver;
end;
end;

\"Og så skriver han\"
Denne procedure åbner mediaplayer og kalder de forskellige vis....procedure, der checker den aktuelle CD og viser resultaterrne i de forskellige displayes..

Mvh.Rebecca

ja okay det ser der da ikke noget glat i, hvad er din fejl???

/ZIRON

Fejlen er at jeg mangler knappen i samples

kan man evt. selv lave en knap og hvordan.

Nå jeg kommer til at smutte, vender tilbage iaften.

umelbart kan jeg ikke se hvad den knap er men prøv lige det her:

procedure TForm1.StereoButton1Click(Sender:TObject);
var
buf:Array[0..15]of char;
til : string;
begin
if til = \'ja\' then
begin
try
til := \'ja\';
Shape1.Brush.Color:=clLime;
MediaPlayer1.Open;
ifMediaPlayer1.Mode=mpPlaying then
Panel7.Caption:=\'      Spiller\';
HentCDTotaler;
VisSporNummer;
VisSporTid;
VisAktuelleTid;
Except
on EMCIDeviceError do begin
MessageDlg(\'Der er opstået en fejl.Luk CD-Player.\',mtError,[mbOk],
0);
Application.Terminate;
end;
end;
case MediaPlayer1.Mode of
mpPlaying:SpeedButton25.Enabled:=False;
mpStopped,
mpPaused:SpeedButton25.Enabled:=True;
end;
end
else
begin
MediaPlayer1.Rewind;
SpeedButton25.Enabled:=True;
Panel9.Caption:=\'1\';
Panel10.Caption:=\'00:00\';
Panel11.Caption:=\'00:00\';
Gauge1.Progress:=0;
Gauge2.Progress:=0;
Panel7.Caption:=\'      Stoppet\';
Shape1.Brush.Color:=clSilver;
end;
end;

/ZIRON

hov nej glem det :-)

/ZIRON

Også hvad jeg vil foreslå, dog ville jeg nok bruge Tag på knappen selv, istedet for at allokere en streng. og så selvfølgelig sætte den de rigtige steder, ved fejl osv.

/Martin

kan man evt bruge en anden knap, jeg har prøvet at skrive koden ind men når jeg så vil køre programmet kommer den med fejlenat den mangler den stereoknap.
Hvis en af jer vil, kan i jo få hele koden/programmet og så selv se fejlen, jeg giver gerne nogle flere point, jeg ved det er meget at be om men det er irriterende at det ikke vil virke.

Ps...Martinlind er det gået i stå med det delphilearning, hvor du skulle være lærer

rebecca >> det kan jeg godt lige prøve ziron@wanadoo.dk

martin >> jeg tænkte på med det der lærer sjov har du lavet nogle ting, for det kunne godt være jeg ville lave lidt, når nu jeg får tid fra skolen af...

/ZIRON

Den er på vej

kigger lige på det...

/ZIRON

logger af for idag.

okay sender bare til din mail...

du ved ikke hvordan den knap skal se ud???

erder ikke et billed???

/ZIRON

Ja, jeg mangler lidt indput, eleverne må selv komme med nogle øvelser, og lign.

Martin

ZIRON!!!
Den er meget enkel at se på, firkantet med et lille sort felt i

Til Martin

Kan man ikke lave et program så man kan bruge en scanner på 2 Pc\'er.
Min Far har 2 Pc\'er med netkort men han har det problem at han gerne ville kunne bruge scanneren på begge Pc\'er, kan det lade sig gøre at lave et program der kan styre det, scanneren er en gammel Amitech med scsi-kort.
Hvis du mener det kan må du gerne bruge det som elev opgave til mig eller andre.
Mvh.Rebecca

Reb. >> det er nok ikke nogen helt nem opg., det vil være noget fjernstyring du skal lave, men hvis den scanner kører med et TWAIN interface så kan du godt lave noget delphi kode der kan scanne.

www.delphi-jedi.org

Der ligger kode til TWAIN-API\'et har prøvet og det virker, ligesom hvis du trykker på scan inde fra word.

/Martin

rebecca >> så en mail er sendt tilbage :-)

/ZIRON

Tak ZIRON/Martin
kigger på det.
Mvh.Rebecca

det var så lidt og så lige et svar :-)

/ZIRON

Hej Martin
Har du evt.et forslag til hvordan man laver det, jeg giver gerne en god slat point for det.
Mvh.Rebecca

rebecca >> hvis jeg var dig ville jeg oprette et nyt spg. så alle lige kan blive opmæksom på at der er et spg. igang og flere vil kunne hjælpe...

/ZIRON

Til Ziron
Det var jo ikke mange point, hvis du vil have flere så skriv en kommentar så laver jeg et nyt spørgsmål til dig .
MVH.Rebecca

rebecca >> det vil da altid være godt med flere point, men hvis det er så overlever jeg nok også :--)

/ZIRON

ZIRON
Jeg laver et nyt sp.titel point til ZIRON

Er 50 point ok.
Mvh.Rebecca