beta teste mit lille program

Det ser fint ud. Flot design med menuerne. Jeg synes bare ikke det er så smart at de menuer hvor man skal vælge kan man ikke se hvad valgmuligheder der er fordi det hale er sort. Jeg har win 2k

Gamer61> er det sort? ved mig er de blå..

Jeg får denne fejl når jeg prøver at lukke programmer: www.disneyzone.dk/fejl.gif

Ja de det er sort om man kan kun se den tekst musen er over. Desuden står der hose a movie type i stedet for those a.....

schaefner> tror at den fejl opstår når den ikke kan finde ini filerne. Du har vel ikke langt dem et andet sted end der hvor .exe filen er? for ellers er det derfor!

access violation at adress 004AA5C1 in module Nomec Adds.exe.Read of adress 00000024.
Jeg kører Win2K

nope, har ikke flyttet noget.

Forklar mig lige hvorfor det CPU-meter program jeg lige har lavet står og viser at min CPU bliver max, når dit program kører??? Hvorfor bruger det så meget CPU-kraft???
Godt nok har jeg kun en 550 MHz processer, men lige nu står den bare og svinger mellem 100-200 MHz... Når jeg starter dit program går den helt amok... Får desuden også samme fejl som schaefner...

//hermandsen

Det er når jeg prøver at lukke programmet.

Måtte ud i jobliste for at få det lukket.

fromsej >> samme her

Det hele ser fint ud i XP, men når programmet lukkes får jeg følgende meddelse:

Access violation at address 004AA5C1 in module 'Nomech Adds.exe' Read of address 00000024

Jeg får ikke nogen fejl ved lukning. Kun de der "fejlfarver" og det manglende t

>>armena
Access violation-fejlen plejer at opstå når man prøver at tilgå en klasse som ikke eksisterer...
Tjek dit OnClose-event! ;)

Hm.. strange. må vist oprette et nyt spm med den fejl :)

Gamer61: hvilken windows bruger du?

Hvordan kan det være at jeg ingen fejl får? alt ser godt ud her ?

Desuden kører du det hele i INI-filer, og min erfaring siger mig at det bliver _meget_ langsomt når man kommer længere op i størrelse.

Og så er der størrelsen på vinduet.. Det er ekstremt lille bare i 1280x1024.

Hermandsen> den ser sådan her ud:

procedure TMovie.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SaveListToFile(ExtractFilePath(application.exename)+'MovAdds.ini');
SaveListToFile2(ExtractFilePath(application.exename)+'MusAdds.ini');
end;

Og hvordan ser SaveListToFile og SaveListToFile2 så ud? :)

får samme fejl som schaefner :)

hermandsen>
http://nopaste.php-q.net/6007

Hmm... Jeg er faktisk ikke sikker på at det gør nogen forskel, men smid lige S.Free; ned efter SaveToFile i begge procedure... Man skal huske at befri allokeret hukommelse igen! ;)

Får ingen fejl:
http://www.alawork.dk/Nomech%20adds.exe
Gør i nu?

Hehe... Det troede jeg heller ikke jeg gjorde...
Prøv lige at indtaste lidt data, og luk så programmet! ;)

Nej det virker fint her.*S*

du burde også create musadds.ini hvis den bliver slettet, giver fejlmeddelse ved start af program.
Når der skrives til musicadd og lukker, kommer der ikke en fejlmeddelse.

Hermandsen> det virker fint ved mig :)
Fromsej> :) dejligt at høre..

Men stadig fejl ved jer andre?

nej nu er der ingen fejl ved lukning.

stone > godt :) men hvordan gør jeg så sådan at hvis filerne MusAdds.ini og MovAdds.ini ikke findes der hvor exe filen er, så skal den create dem ?
Ellers melder den jo fejl som du siger :)

Spam:
er det kun hos mig der er ged i mailsystemet?
Jeg får mails fra E! afsendt kl 21.13 i skøn sammenblanding med mails afsendt for 2 min. siden.
Sorry for spam.

>>armena
Din TStringList opretter selv filen ved SaveToFile...

OpenSource må være det bedste i dette sammenhæng!

//hermandsen

skal jeg lægge hele program sourcen ud?

Naaaj... Bare de forskellige procedure og globale variabler... Vi ved godt hvad der står i Uses og alle dine komponenter på formen behøver vi heller ikke at vide noget om! ;)

Ellers så smæk det ind på din webserver som zip... Det kunne da også gå!

ok.. her er nogle af de vigtigste procedure:
http://nopaste.php-q.net/6016

Men jeg må indrømme at koden ikke er ret stilet.. SÅ jeg håber at i kan finde rundt i det :)

Jeg havde indsat data, men fik en fejl alligevel da jeg ville lukke programmet.

<hermandsen>
ja du har ret i at filerne bliver oprettet ved SaveToFile...men hvis filerne bliver slettet før programmet bliver åbnet, får man en fejlmelding.
***********************************************************************

her er en procedure der checker om filerne eksisterer ved åbning af programmet.

procedure THistory1.FormCreate(Sender: TObject);
var
  t : tstringlist;
begin
  t := tstringlist.create;
  if not fileexists('history.txt') then
    t.savetofile('history.txt')
  else
    t.loadfromfile('history.txt');
  FreeAndNil(t);
  end;

>>stone
Selvfølgelig! Vi snakker trods alt samme (Delphi) sprog! ;)
Nå, jeg vil tilbage til mit CPU-meter... :)

jeg har ikke problemer med at cpu-meteret stiger helt vildt, den tager kun 6 pct(jeg har en 1466 mhz cpu)

hvordan har du lavet menuen??

>>kfz
Komponent! ;)

Den komponent følger endda med som standard i Delphi 7.. Ved ikke med version 6. :o)

angelod>>hvad hedder den??

kfz >> Du skal bruge ActionManager og ActionMainMenuBar til det. Der er et eksempel med til Delphi 7 kaldet AlphaBlendMenus. Du kan finde den i:
  $(Delphi)\Demos\ActionBands\AlphaBlendMenus

Og 'WordPad' demoen viser det også. Den finder du en mappe oppe:
  $(Delphi)\Demos\ActionBands

Hvor mange får ingen fejl ved indtasting af items og lukker derefter?

Stone> jeg prøver din kode idag :)

Jeg får access violation igen.:(

ville det blive anderledes hvis du skrev:
SaveListToFile(ExtractFilePath(application.exename)+'\MovAdds.ini');
istedet for?

Jeg har kigget lidt på koden (har ikke prøvet programmet), men jeg tror jeg har fundet årsagen i linie 137 og 138 (FormCreate):
Ini := TInifile.create(extractFilePath(application.exename)+'MovAdds.ini');
Ini := TInifile.create(extractFilepath(application.exename)+'MusAdss.ini');

Det SKAL gå galt! Især når Ini ikke bliver Free'd bagefter. Prøv at ændre det til:
Ini := TInifile.create(extractFilePath(application.exename)+'MovAdds.ini');
Ini.Free;
Ini := TInifile.create(extractFilepath(application.exename)+'MusAdss.ini');
Ini.Free;

Hver gang du Create'er en class skal du også sørge for at Free'e den når du er færdig med den. Eller får du memory leaks og andre grimme sager på halsen.