Aktív témák
-
Szalma
őstag
(Ajajj... Nem így működik. Létrehozol egy streamet, ami egy file-ból táplálkozik és abban oda és akkor mozogsz, ahová és amikor akarsz. És annyit olvasol belőle, amennyit akarsz... A memóriafoglalással nem kell küzdened, megoldja.
Valami ilyesmikre számíts:
with TFileStream.Create ( ''olvasni.kell'' ) do begin
seek ( pozíció, offszet ) ;
read ( datapuffer, hossz ) ;
end ;
Hajrá!
)
Szeretettel:
Szalma -
Miracle
senior tag
''Váá, te Turbo Pascal-ba próbáltál megákat beolvasni?? ''
hat egy regi pascal doksiban olvastam(hogy nem tort el a programozo keze, amikor lirta
) hogy nagy fileok cimzett olvasasakor, amikor kicsuszunk az integer-el cimezheto terbol, nincs mas hatra, mint elore, !!!lebegopontos szammal!!! kellett a filet indexelni 
ekkora perverz dolgot 
-
QuarK
senior tag
Nem annyira, megadod az offsetet, ahonnan olvasni akarsz. Oda seek (ez egy sornyi kód), majd pedig beolvas 64k (felteve, hogy van annyi meg hatra a fajlbol, ha nem, akkor csak annyit). Amúgy én is freepascalt ajánlom; bár igazat megvallva 10 percig bírta a gépemen (nem tudta lefordítani az egyik cuccosom, és nekem nagyon kövérke volt...)
-
QuarK
senior tag
Váá, te Turbo Pascal-ba próbáltál megákat beolvasni??
Amúgy lehetséges, van XMS unitom
Azaz volt, asszem az SMIX libraryre kell rákeresni, és annak melléklete egy XMS-t is kezelő unit.
Hogy gondolod ezt a seekelős dolgot? Mert ezt nagyjából úgy lehetne megoldani, h. van egy eljárás, aminek megadod, hogy a fájlból hanyadik bájttól mennyi bájtot szeretnél beolvasni, és egy pufferbe mindig a megfelelő adatot köpi... -
QuarK
senior tag
A több megás cuccokat egy az egybe bevágni a memcsibe sokszor még a C nyelvet is hazavágja (próbáltam én egy ~100 megás mp3-at betölteni 1giga ram mellett, és szépen elhalálozott kékre az XP
).
Mit akarsz seekelni te abban a fajlban? Azt hittem, csak beolvas, feldolgoz, kiköp... Ugrálni is akarsz a fájlon belül?![;]](//cdn.rios.hu/dl/s/v1.gif)
-
Esmein
nagyúr
Attól függ mennyi plussz kód kell ahhoz, hogy memóriába menjen az egész. Heapből mekkorát enged kivágni ?
Bár ha fogok tesztnek egy 45 megás intaller exe filet bevágom memóriába az egészet akkor nem lesz túl gyors a dolog :/
Bőven jó lesz az 64k-s blokkokban is. Gonolom nem okoz gondot akkor a nem stream szerű beolvasás, hanem össze vissza keresgélés a fileban.
[Szerkesztve] -
Esmein
nagyúr
Binárisan beolvasni ezeket a dögöket, mókázni vele és utána szintén binárisan újra kinyomni.
Olyan egyszerű primitív és gyors megoldás kellene, ami a fájlt a tartalmától függetlenül fel tudja dolgozni.
(Semmi konkrét programtervem nincsen, csak szeretnék gyakorolni egy kicsit a progalap vizsgámra és néhány algoritmust ki akarok ezeken próbálni)
[Szerkesztve]
abból elég nehéz kicsúszni.
) hogy nagy fileok cimzett olvasasakor, amikor kicsuszunk az integer-el cimezheto terbol, nincs mas hatra, mint elore, !!!lebegopontos szammal!!! kellett a filet indexelni 
ekkora perverz dolgot 
) esek neki egy freepascal doksinak.
Azaz volt, asszem az SMIX libraryre kell rákeresni, és annak melléklete egy XMS-t is kezelő unit.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Aktív témák
- Milyen autót vegyek?
- Kormányok / autós szimulátorok topikja
- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
- Home server / házi szerver építése
- Okos Otthon / Smart Home
- Windows 11
- Mobil flották
- PlayStation 3
- Magga: PLEX: multimédia az egész lakásban
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- További aktív témák...
- Bomba ár! Lenovo ThinkPad T450 - i5-5GEN I 8-16GB I 256SSD I 14" HD+ I Cam I W10 I Garancia!
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 16/32/64GB RAM RX 9060 XT 8GB GAMER PC termékbeszámítással
- MacBook Pro 16 2021 M1 Max 32GB 512GB 1 év garancia
- GYÖNYÖRŰ iPhone 13 Pro 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3074, 100% Akkumulátor
- Samsung Galaxy Book2 NP750XED i7-1255U 16GB 512GB GARANCIA: 1 ÉV
Állásajánlatok
Cég: FOTC
Város: Budapest