[delphi] Animatie snelheid & files openen

[Verwijderd]

Twee vragen voor de prijs van een(mag dat wel?)

1) ik heb een animatie van een simple circletje wat over het beeld gaat(2d).
Nou gebeurt dat via een timer maar het gaat erg traag. Ik laat per timmer tik er steeds 1 bij komen (x+1) . Nou kan uit bepaalde overwgingen 1 neit groter gemaakt worden. Dus moet de timer anders.

2) ik laad een txt bestand, maar dat is altijd het zelfde. Nu heb ik nu 'c:\delphi\project3\map.txt' terwijl het programma ook in project3 staat.
dus dacht ik dan neem ik voortaan '\map.txt' maar dat vind delphi een probleem.
Kan dit wel in delphi? en hoe dan

Nou hartelijk dank alvast, het is wat opdringerig maar ik hoop dat ik antwoord kan krijgen(heb me al rot gezocht 5 boeken en de manual)

[whoami]

code:

.\map.txt

Wat je bedoelt met vraag 1, opmerking 1? Je kunt je timer-tick veranderen...

Lees ook even de P&W Quickstart, want dit topic is niet echt duidelijk.

[Verwijderd]

zal je precies zien dat ik eht met ..\map.txt geprobeert heb.
Heel hartelijk dank
Over nummer 1, ik wil weten hoe ik de timer op krik. Ik kan wel em op 1000 zetten maar dan gaat ie haperen

[whoami]

Kijk eens naar de properties van het TTimer object, en bestudeer ze even...

[Varienaja]

TTimers kunnen niet meer dan (uit m'n hoofd) 18 events per seconde genereren. Supervloeiend zal je animatie dus nooit worden. Als je vloeiende animatie wilt moet je even op zoek naar een betere TTimer.

ExtractFileDir(Application.Exename)+'\Subdir\huppel.txt'

[Verwijderd]

dank voor die 18 events tip.
mijn animatie gaat nu mmmmmmm vloeiend.
Geen andere timmer nodig. En wat blijkt hoe kleiner de waarde hoe sneller.
Doh, zat ik daar met mijn 1000 (en ja cazz kan geen engels, interval... like duh)

[Verwijderd]

Misschien beetje offtopic, maar het is zo onnodig om hier een topic over te openen (zal wel ergens in oud topic staan, maar search werkt nog niet echt):

Hoe open jij die file? Ik wil namelijk een URL 'openen' (zodat default browser dus opent). Hoe moet ik dat doen?

[LordLarry]

Kijk even in de help bij shellexecute. Maar dat opend alleen het bestand alsof je erzelf op gedubbelklicked hebt in je verkenner.

Je kan niet direct bestanden openen via http of ftp alsof ze lokaal staan. Dan moet je het bestand toch echt eerst downloaden.

[Verwijderd]

shellexecute kan hij niet vinden ik wist wel dat het zoiets was, maar toen ik die niet kon vinden sloeg ik vast

[Mr.Nobody]

code:

var
tempstr: array[0..256] of Char;
filenaam:string;

begin
filenaam := extractfilepath(application.ExeName)+'\progsel.exe';
strpcopy(tempstr,filenaam); 
if fileexists(filenaam) then
      ShellExecute(Handle, 'open',      
tempstr, nil, nil, SW_SHOWNORMAL);

end;

zoiets? wel shellapi aan je uses toevoegen

[SchizoDuckie]

Zoek voor je bewegende plaatje eens naar wat sprite componenten. die werken met een hele andere manier van painten dan dat de gewone componenten doen, waardoor je geen flikkeringen meer krijgt

http://www.torry.net is een goeie source voor componenten

[Mr.Nobody]

LordLarry schreef op 07 augustus 2002 @ 19:02:
Kijk even in de help bij shellexecute. Maar dat opend alleen het bestand alsof je erzelf op gedubbelklicked hebt in je verkenner.

Je kan niet direct bestanden openen via http of ftp alsof ze lokaal staan. Dan moet je het bestand toch echt eerst downloaden.

_{opm.: shellapi toevoegen aan uses}

code:

procedure TForm1.Button1Click(Sender: TObject);
var
urlnaam:string;
begin
        urlnaam := 'http://download.com.com/redir?
pid=8132587&merid=50220&mfgid=50220&ltype=
dl_dlnow&lop=link&edId=3&siteId=4&oId=3002-20-
8132587&ontId=20&dlrs=1&destUrl=ftp%3A%2
F%2Fftpx.download.com%2Fpub%2Fwin95%2
Futilities%2Ffilecomp%2Fwinzip81.exe';

        ShellExecute(Application.Handle, nil,
                       PChar(urlnaam), nil, nil, SW_NORMAL);
end;

dit opent bij mij toch gewoon winzip.exe van download.com hoor

[ Voor 0% gewijzigd door Mr.Nobody op 07-08-2002 19:43 . Reden: voorbeeld aangepast ]

[Verwijderd]

thnx

Ik was idd vergeten om shellapi aan mijn uses toe te voegen, daarom kon hij hem denkik ook niet vinden

[Mr.Nobody]

Verwijderd schreef op 07 augustus 2002 @ 20:13:
thnx

Ik was idd vergeten om shellapi aan mijn uses toe te voegen, daarom kon hij hem denkik ook niet vinden

moet je hier eens kijken, kun je heel veel mee doen

http://msdn.microsoft.com...functions_by_category.asp

[LordLarry]

Mr.Nobody schreef op 07 augustus 2002 @ 19:39:
dit opent bij mij toch gewoon winzip.exe van download.com hoor

Tuurlijk....maar opent
ShellExecute(Handle, 'open', 'http:\\some\where.doc', nil, nil, SW_NORMAL);
ook MS Word die dat bestand dan opend? Misschien doet Word dat toevallig wel, maar dat komt dan omdat Word dan op de achtergrond het bestand eerst download. Daar had ik het over.

[Mr.Nobody]

alles wat je van internet linkt download je... natuurlijk.
wat is nou het probleem? je krijgt pas een probleem als je het wilt opslaan, dan zou het kunnen dat je dat alleen lokaal kan doen omdat het programma wat gekoppeld is aan de link niet op kan slaan op internet.

je kunt zo met word doc's openen die op internet staan:

code:

ShellExecute(Handle, 'open',
'winword.exe','http://home.hccnet.nl/j.aeilkema/
zogaathetwel.doc', nil, SW_SHOWNORMAL);

[Tomatoman]

Verwijderd schreef op 06 augustus 2002 @ 16:57:
2) ik laad een txt bestand, maar dat is altijd het zelfde. Nu heb ik nu 'c:\delphi\project3\map.txt' terwijl het programma ook in project3 staat.
dus dacht ik dan neem ik voortaan '\map.txt' maar dat vind delphi een probleem.
Kan dit wel in delphi? en hoe dan

'\map.txt' verwijst naar het bestand map.txt in de root directory van de huidige schijf.

Met een enkele punt duid je de huidige directory aan (zie ook GetCurrentDir). Je kunt dus '.\map.txt' gebruiken, mits het bestand in de huidige directory staat.

[Tomatoman]

Verwijderd schreef op 06 augustus 2002 @ 16:57:
1) ik heb een animatie van een simple circletje wat over het beeld gaat(2d).
Nou gebeurt dat via een timer maar het gaat erg traag. Ik laat per timmer tik er steeds 1 bij komen (x+1) . Nou kan uit bepaalde overwgingen 1 neit groter gemaakt worden. Dus moet de timer anders.

Als het cirkeltje altijd precies dezelfde beweging maakt, kun je veel beter een animated gif maken. Als je die op je scherm weergeeft (eerst ergens een van de vele gif-image-componenten downloaden), draait je animatie altijd precies op de gewenste snelheid, zelfs op een computer uit het jaar kruik.

[LordLarry]

Mr.Nobody schreef op 07 augustus 2002 @ 22:02:
alles wat je van internet linkt download je... natuurlijk.
wat is nou het probleem? je krijgt pas een probleem als je het wilt opslaan, dan zou het kunnen dat je dat alleen lokaal kan doen omdat het programma wat gekoppeld is aan de link niet op kan slaan op internet.

je kunt zo met word doc's openen die op internet staan:

code:

ShellExecute(Handle, 'open',
'winword.exe','http://home.hccnet.nl/j.aeilkema/
zogaathetwel.doc', nil, SW_SHOWNORMAL);

Ja en nee.
Ja, natuurlijk moet je alles wat je van internet wil gebruiken naar je toehalen (downloaden).
Nee, dat is niet wat ik bedoelde.

Ik had het over het feit dat je binnen je programma zeer specifieke code moet schrijven om het voor de gebruiker net te laten lijken alsof ze een bestand openen en bewaren op een http of ftp locatie. En in die specifieke code zal ShellExecute zeker niet voorkomen. De url die je hier aan winword meegeeft (je had niet eens winword hoeven meegeven) komt in winword gewoon binnen als platte paramater. Word zelf moet het downloaden van het bestand regelen.

Je kan dus niet een TFileStream createn of een AssignFile doen en dan een http locatie opgeven. Dat is waar ik het over had toen ik antwoord gaf op de vraag.