- Mobilinternet
- Az MSI RadiX AXE6600 tesztje – router, játékosoknak
- Hálózati / IP kamera
- 3 évig még biztosan nem rendelhetünk Xiaomi EV-t
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- HBO Max & OD topic
- Milyen program, ami...?
- Aliexpress tapasztalatok
- Microsoft Office és Office 365 topic
- Microsoft Outlook topic
Aktív témák
-
Esmein
nagyúr
Ilyesmi érdekelne, hogy hogyan lehet hatalmas fileokkal dolgozni pascal alatt( pl 100 kb-tól 50 megáig) Beolvasni szeretném ezeket a nem tipusos fileokat és szépen kiíratni.
"I no longer want to declare war on Hungary. It would be like waging war on a mental institution." - Jeremy Clarkson
-
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]"I no longer want to declare war on Hungary. It would be like waging war on a mental institution." - Jeremy Clarkson
-
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]"I no longer want to declare war on Hungary. It would be like waging war on a mental institution." - Jeremy Clarkson
-
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? -
Szalma
őstag
(Ha egy kicsit elszakadsz a pascaltól, és mondjuk elkukkantasz az object pascal (vagy hasonló társaik (pl. delfi)) felé, akkor ott összefuthatsz a Stream jellegű filekezelő objektumokkal, amiket ilyesmire találtak ki... Póriasan pedig blokkolvasás...)
Szeretettel:
Szalma -
-
Esmein
nagyúr
Hát, hogy úgy mondjam nem sok delphi kódot túrtam át eddig
Sima turbopascal ill freepascal nem okoz túl sok gondot azzal fordítottam már sikeresen de windows alatt még nem volt működő programom"I no longer want to declare war on Hungary. It would be like waging war on a mental institution." - Jeremy Clarkson
-
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... -
Esmein
nagyúr
Tyühű...
Amint felkelek( nem aludtam este ) esek neki egy freepascal doksinak.
Ha csak streamszerűen kell 64k-néknt beolvasni a filet akkor mennyire macerás ?"I no longer want to declare war on Hungary. It would be like waging war on a mental institution." - Jeremy Clarkson
-
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...)
-
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értelmező késziszótár :: rekurzió --> lásd : rekurzió
-
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 -
Esmein
nagyúr
Jesszus. PEdig nem is bonyolult ezek szerint. Alszom egyetm, mert a héten még csak 6 órát aludtam és ha felkeltem megint benézek ide, hogy felfogjam a dolgokat
"I no longer want to declare war on Hungary. It would be like waging war on a mental institution." - Jeremy Clarkson
Aktív témák
- Samsung Galaxy S24 - nos, Exynos
- Redmi Note 13 Pro+ - a fejlődés íve
- S.T.A.L.K.E.R.: Shadow of Chernobyl
- Mobilinternet
- Vezeték nélküli fülhallgatók
- S.T.A.L.K.E.R. Clear Sky
- bitpork: Fogyasztásra ítélve
- Samsung Galaxy Z Fold5 - toldozás-foldozás
- Ford topik
- Milyen billentyűzetet vegyek?
- További aktív témák...
- ZOTAC GeForce GTX 1080 AMP Edition 8GB GDDR5X 256bit
- Filmes gép gyűjtemény
- Nikon D5000 + AF-S DX NIKKOR 18-105 mm
- Bontatlan Seagate & Western Digital HDD-k 3TB - 12TB -ig - Számla + Garancia, Ár alatt! BeszámítOK!
- DJI Mini 4 pro FMC drón - 3 akku, RC2 táv, 2 táska, Filterek, 2025. decemberig garancia, DJI Care