Hva er galt?

[Myklebust89]

procedure Tmain.openClick(Sender: TObject);
var
ini: TIniFile;
begin
if opendialog.Execute then
list.AddItem(opendialog.FileName);
mediaplayer.Filename := opendialog.Filename;
mediaplayer.Open;
songname.caption := ExtractFileName(opendialog.FileName);
end;

 

hva er galt med koden? alt funka før jeg adda denne linja: "list.AddItem(opendialog.FileName);"... feilmeldingen er:

[Error] Unit1.pas(86): Not enough actual parameters

[Fatal Error] n00b.dpr(6): Could not compile used unit 'Unit1.pas'

 

så prøvde jeg å finne ut hvor mange og hva slags parametre som er nødvendige, men fant det ikke ut !

[Format71]

Da er jeg redd du ikke kan ha forsøkt særlig hardt...

 

Har du forsøkt å sjekke hjelpefila for AddItem ?

Har du forsøkt å sjekke kildekoden til AddItem ? (Du har vel kildekoden til vcl'et?)

 

snippet fra hjelpefila:

Delphi syntax:
procedure AddItem(Item: String; AObject: TObject); virtual; abstract;

 

Et alternativ er å bruke listview'ens 'items' property og metoden Add( ). Den returnerer et nytt listviewitem hvor du kan sette caption og subitems og imagelist indexer osv.

 

-Vegar

[Myklebust89]

jeg fant absolutt ingenting når jeg søkte på hverken AddItem eller FileListBox... jeg har ikke kildekoden nei, ikke så vidt jeg veit ihvertfall...

[Format71]

Det var nå snodig.

 

Hvis du har gratisversjonen av Delphi har du heller ikke kildekoden.

 

-Vegar

[Myklebust89]

jeg har Delphi 6 Personal Edition som fulgte med HjemmePC en gang... hva skal/kan jeg gjøre da?

[Format71]

Da skal/kan du håpe du får råd til PRO versjon en gang ;-)

 

Du er ikke avhengig av kildekoden til vcl'et, men det er ofte en stor fordel.

 

Mener det skal følge med filer som viser interface delen av kildekoden. Gjorde det i tidligere versjoner i alle fall. Disse kan også være til hjelp dersom man ikke får opp noe hjelp eller kodehint.

 

Men du kom videre, gjorde du ikke?

[Myklebust89]

akkurat det med AddFile kom jeg ikke videre på, har prøvd med en del koder, men alt har blitt feil!

[Sn4keBite]

Så vidt jeg vet kan du her assosiere et objekt med et item. Hvis du ikke vil ha et objekt med her, kan du bare skrive nil. DU må altså skrive noe sånt somn "List.AddItem(OpenDialog.FileName,nil);". Og en liten kommentar til: Skal du ha flere kommandoer i en "if", må du sette "begin" og "end" inn. Så ut som det var dette du prøvde på, men ikke hadde med dette. Eksempel på kode:

 

procedure TMainForm.OpenBtnClick(Sender: TObject);

begin

  if OpenDialog.Execute then

  begin

    List.AddItem(OpenDialog.FileName,nil);

    MediaPlayer.Filename := opendialog.Filename;

    MediaPlayer.Open;

    SongNameLbl.caption := ExtractFileName(OpenDialog.FileName);

  end;

end;

 

Jeg har selv skrevet to mediaplayers. En i Delphi 6 Personal, og en i Delphi 7 Enterprise. EldoSounds er et bra komponent, som fungerer på begge Delphi-versjonene jeg har nevnt. Hvis du er interessert i det, tror jeg du kan finne det på torry.net

Endret 10. februar 2004 av Sn4keBite

[Myklebust89]

Tusen hjertelig takk, Sn4keBite... kanskje du kan hjelpe meg med en ProgressBar også?

[Sn4keBite]

Mener du som viser hvor langt sangen har kommet? Det er bare å bruke en timer, og sette Max til lengden på sangen, og oppdatere Position ved hjelp av timeren.

 

ELSounds komponentet er litt innviklet i starten, men når du får det til, er det ganske lettvint. Jeg brukte demo-en som fulgte med som hjelp. En ulempe er at du må legge ved .esp filene (dekoderene) ved programmet, men det går jo greit. Kan godt sende deg installasjonsfilen+kildekode for den andre mediaplayeren min hvis du trenger litt hjelp.

[Myklebust89]

det hadde vært skikkelig fint! jeg har faktisk sliti så lenge med det progress-opplegget at det er helt villt....