abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
    včera 22:33 | Nová verze

    Byla vydána beta verze openSUSE Leap 16. Ve výchozím nastavení s novým instalátorem Agama.

    Ladislav Hagara | Komentářů: 0
    včera 17:44 | Zajímavý článek

    Devadesátková hra Brány Skeldalu prošla portací a je dostupná na platformě Steam. Vyšel i parádní blog autora o portaci na moderní systémy a platformy včetně Linuxu.

    karkar | Komentářů: 0
    včera 12:11 | Humor

    Lidi dělají divné věci. Například spouští Linux v Excelu. Využít je emulátor RISC-V mini-rv32ima sestavený jako knihovna DLL, která je volaná z makra VBA (Visual Basic for Applications).

    Ladislav Hagara | Komentářů: 2
    včera 10:44 | IT novinky

    Revolut nabídne neomezený mobilní tarif za 12,50 eur (312 Kč). Aktuálně startuje ve Velké Británii a Německu.

    Ladislav Hagara | Komentářů: 22
    včera 09:55 | IT novinky

    Společnost Amazon miliardáře Jeffa Bezose vypustila na oběžnou dráhu první várku družic svého projektu Kuiper, který má z vesmíru poskytovat vysokorychlostní internetové připojení po celém světě a snažit se konkurovat nyní dominantnímu Starlinku nejbohatšího muže planety Elona Muska.

    Ladislav Hagara | Komentářů: 2
    včera 09:33 | IT novinky

    Poslední aktualizací začal model GPT-4o uživatelům příliš podlézat. OpenAI jej tak vrátila k předchozí verzi.

    Ladislav Hagara | Komentářů: 0
    včera 08:11 | Nová verze

    Google Chrome 136 byl prohlášen za stabilní. Nejnovější stabilní verze 136.0.7103.59 přináší řadu novinek z hlediska uživatelů i vývojářů. Podrobný přehled v poznámkách k vydání. Opraveno bylo 8 bezpečnostních chyb. Vylepšeny byly také nástroje pro vývojáře.

    Ladislav Hagara | Komentářů: 0
    29.4. 20:55 | Nová verze

    Homebrew (Wikipedie), správce balíčků pro macOS a od verze 2.0.0 také pro Linux, byl vydán ve verzi 4.5.0. Na stránce Homebrew Formulae lze procházet seznamem balíčků. K dispozici jsou také různé statistiky.

    Ladislav Hagara | Komentářů: 0
    29.4. 16:22 | Nová verze

    Byl vydán Mozilla Firefox 138.0. Přehled novinek v poznámkách k vydání a poznámkách k vydání pro vývojáře. Řešeny jsou rovněž bezpečnostní chyby. Nový Firefox 138 je již k dispozici také na Flathubu a Snapcraftu.

    Ladislav Hagara | Komentářů: 0
    29.4. 15:55 | Pozvánky

    Šestnáctý ročník ne-konference jOpenSpace se koná 3. – 5. října 2025 v Hotelu Antoň v Telči. Pro účast je potřeba vyplnit registrační formulář. Ne-konference neznamená, že se organizátorům nechce připravovat program, ale naopak dává prostor všem pozvaným, aby si program sami složili z toho nejzajímavějšího, čím se v poslední době zabývají nebo co je oslovilo. Obsah, který vytvářejí všichni účastníci, se skládá z desetiminutových

    … více »
    Zdenek H. | Komentářů: 2
    Jaký filesystém primárně používáte?
     (58%)
     (1%)
     (9%)
     (22%)
     (4%)
     (1%)
     (2%)
     (0%)
     (1%)
     (3%)
    Celkem 493 hlasů
     Komentářů: 19, poslední včera 11:32
    Rozcestník

    Kdo mi ho dodělá? (objectpascal utilitka)

    28.9.2013 17:24 | Přečteno: 1011× | poslední úprava: 28.9.2013 18:35

    Zdar,

    potřebuji dodělat kopírovací utilitku, co má za úkol v daný čas kopírovat vybraný adresáře do zadaný složky. Stvořil jsem jí kvůli tomu, že mi ostatní nástroje jednoduše nevyhovovaly(i?).

    Jak to funguje: nastaví se adresář pro zálohy, naklikaj se adresáře co se maj zálohovat a klikne se na „Zálohovat nyní“. A ono to vytvoří adresář s datem a časem (např. 2013_09_28-17_05_21) a do toho to ty nastavený adresáře zkopíruje. Jupí jej.

    Co potřebuju:

    - ošetřit věci tak aby to bylo blbuvzdorný (kopírování adresáře do sebe sama, když to nemá co kopírovat, když není (síťový) disk dostupný atd atd)

    - dodělat časovátko aby to kopírovalo v nastavený čas

    - mazat adresáře starší než nastavený počet dní

    - mazat adresáře od nejstaršího po dosažení nastavené velikosti adresáře zálohy

    - možnost purgekopírování dat v adresáři – jen poslední verze ProE partů (ukládá soubory jako sestava.asm.1, při změně a uložení to vytvoří nový soubor sestava.asm.2 atd atd a purgekopírování zkopíruje jen ty poslední)

    - ukládání nastavení do xml nebo cfg souboru. Nyní to používá registry (fuj?)

    Co nabízím: Vděk :) a prachy

    Co nepotřebuju: Chytrý kecy o použití velkých zálohovacích programů, inkrementálního zálohování nebo snad verzovacího FS :) Tato utilitka je specifická pro roztěkané konstruktéry, co potřebujou mít zálohy práce za posledních pár desítek dní.

    Takže k dospozici diskuze zde nebo ímejl pivoaheavymetal na seznamu.

    Update: tutkaj je zdrojový prasokód v Lazaru: http://uloz.to/xoc8uMjS/zalohovani-zip

           

    Hodnocení: 100 %

            špatnédobré        

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    Komentáře

    Vložit další komentář

    Dreit avatar 28.9.2013 17:27 Dreit | skóre: 15 | blog: Dreit a jeho dračí postřehy | Královehradecký kraj
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)

    Zrovna jsem chtěl navrhnout, že by bodlo inkrementální zálohování :-D

    Nope
    28.9.2013 18:00 Ivorne | blog: Ivorne
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    Moment, object pascal?

    Prostě se smiřte s tím, že nalezení a nakonfigurování nějakého již existujícího sw bude rychlejší a snazší. Výsledek možná nebude úplně 100% jak si ho představujete, ale ono když doděláte tenhle váš sw, tak taky zjistíte, že to nefunguje tak skvěle, jak jste si představoval.
    28.9.2013 18:31 pivoaheavymetal | skóre: 4 | blog: Pivo_a_heavymetal
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    Tak základní funkce funguje a dělá to co chci, jen prostě jednou za dva měsíce zpurguju a smažu nejstarší zálohy. Jenom to chci dotáhnout do konce. BTW, výsledek bude právě 100 prc jak si představuju, proto to dělám :)
    28.9.2013 18:51 Halis | skóre: 6 | blog: capacitor
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    Takový SW již existuje, jmenuje se BackupPC. Perlové skripty využívající rsync a/nebo ssh, nad nimi webové CGI rozhraní. Pro vaše použití stačí vypnout automatické zálohy, a spouštět je jen ručně. Neukládá se ale do složek podle data, ale do obrovského poolu kvůli deduplikaci (což je asi to co je myšleno purgekopírováním). Obnovu jednotlivých souborů nebo celé zálohy (dle data) lze udělat z webového rozhraní.
    Jardík avatar 28.9.2013 19:34 Jardík | skóre: 40 | blog: jarda_bloguje
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    Runtime free pascalu na windows neumí pracovat s case-sensitive filesystémy a s dlouhými názvy souborů (větší jak PATH_MAX, což je tuším 256). NTFS je case-sensitive a podporuje názvy až s 32k znaky. Kvůli této neschopnosti musíte přímo volat Win API funkce (jejich unicode verzi, ansi to nezvládá) s plnou cestou (né relativní), a musíte použít správná lomítka ('\' a nikoliv '/'). Taková cesta vypadá nějak takto: \\?\D:\very long path. Toto předáváte fcím FindFile, CreateFile, ... Taky je potřeba použít FILE_FLAG_POSIX_SEMANTIC, aby to respektovalo case-sensitive názvy a povolilo různé znaky ve výchozím stavu zakázané. Díky tomuto přístupu pak budete moci i otevřít soubory vytvořené z linuxu na NTFS systému, kde jste prdly do názvu věci jako dvojtečku. Pak je taky potřeba počítat se symlinky, hardlinky a junction, na všechno existuje API, ale runtime free pascalu s tím nepočítá (resp. nepočítalo před pár lety, jak je to teď, nevím). Pro zálohovací utilitku je potřeba tohoto použít, jinak záloha může dopadnout špatně a to jistě u zálohy nechcete.
    Věřím v jednoho Boha.
    Rezza avatar 30.9.2013 19:23 Rezza | skóre: 25 | blog: rezza | Brno
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    Jo, tak jsem kdysi narazil s Baculou na win :D.
    Max avatar 28.9.2013 21:28 Max | skóre: 72 | blog: Max_Devaine
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    Sice bez zdrojáků, ale je to asi nejlepší free backup nástroj pro widle, který umí i VSS, viz Cobian Backup
    Zdar Max
    Měl jsem sen ... :(
    Bedňa avatar 29.9.2013 00:13 Bedňa | skóre: 34 | blog: Žumpa | Horňany
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    V Pascale som pred rokmi napísal tisíce riadkov, no nieje čas. Ale prečo vlastne píšem komentár, to okno je hrozne škaredé, podobá sa to na Widle ale asi to niesu Widle, kurwa ako sa na to môžeš pozerať? To by ma zabilo!
    KERNEL ULTRAS video channel >>>
    Jardík avatar 29.9.2013 02:58 Jardík | skóre: 40 | blog: jarda_bloguje
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    Jsou to widle 8 nebo 8.1.
    Věřím v jednoho Boha.
    Bedňa avatar 29.9.2013 15:28 Bedňa | skóre: 34 | blog: Žumpa | Horňany
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    Aha dík, pokrok nezastavíš :-)
    KERNEL ULTRAS video channel >>>
    Salamek avatar 29.9.2013 00:55 Salamek | skóre: 22 | blog: salamovo
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    Proc jsi to u satanovejch kouli nenapsal v necem normalnim ?
    V QT by to byla brnkacka... navic multiplaformni...
    Skutečně nemám v plánu zničit Microsoft. Bude to jen zcela neúmyslný vedlejší efekt.
    Jardík avatar 29.9.2013 03:00 Jardík | skóre: 40 | blog: jarda_bloguje
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    Qt možná pro to GUI, na zálohování se Qt třídičky nehodí, protože nepodporují věci, co jsem zmínil výše. Ono málokterý program na Windows umí správně pracovat se soubory, dokonce i Explorer se podělá na prvním souboru s dvojtečkou v názvu, či dlouhém jméně (po 256 znacích začne používat dosovský krátký jména a pak krachne úplně).
    Věřím v jednoho Boha.
    29.9.2013 12:07 w4rr10r
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    To je AFAIK věc souborového systému, ne Windows/Exploreru. Za domácí úkol si, než vyrazíš na ten pochoďák, zkus třeba v Xfce klikátkem nakopírovat na flešku s FAT32 snímek obrazovky pořízený tím nástrojem z Xfce (tzn. soubor obsahuje v názvu dvojtečky jako oddělovače v čase pořízení snímku).
    Jardík avatar 29.9.2013 15:07 Jardík | skóre: 40 | blog: jarda_bloguje
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    To je AFAIK věc souborového systému, ne Windows/Exploreru.
    NTFS dvojtečku v názvu podporuje, stejně tak < > apod. Dokonce i Windows API se s tím vypořádá a takový soubor otevře, pokud se však to API použije správně a né mizerně, tak jak ho používá Qt či Explorer a mnoho dalších aplikací (už jenom to, že Qt interpretuje '/' jako oddělovač adresářů na Windows je stupidní). Třeba takový 7-zip je jedna z mála aplikací, která to API dokáže použít lépe, než ostatní aplikace (tj. dokáže rozbalit archiv s obrovskou hloubkou adresářů a názvy až 32k dlouhými, tak, že to pak ani nejde smazat z Exploreru, protože to neumí). Bohužel už ale nezvládá case-sensitive názvy, které jak Windows, tak NTFS podporuje.
    Věřím v jednoho Boha.
    29.9.2013 08:28 Roman Došek | skóre: 17 | blog: flare
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)

    Před časem jsem došel ke stejnému závěru: že stávající zálohovací programy mi úplně nevyhovují a že si zkusím napsat něco vlastního.

    Takže jsem se do toho pustil v C++ & Qt a dotáhnul to do nějakého funkčního stavu, kde fungují alespoň základy. Pak mi ale (typicky) kvůli práci došel čas a už mi to pár měsíců leží bez toho aby na to někdo sáhl. A napsané to taky není kdovíjak skvěle.

    Kdyby měl někdo zájem v tom třeba pokračovat, nebo se jen podívat, tak tady to je...:-)

    FileFridge
    29.9.2013 11:28 xxxxxxxxxxx | skóre: 13 | blog: rhrtshrth
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    Osobně bych nějaký nástroj na zálohování svých pracovních CAD dat bral taktéž. Pokud možno Multiplatformní a v C++/QT. Klidně na to přidám prachy.
    Konqui avatar 30.9.2013 14:10 Konqui | skóre: 18 | blog: Konqui | Rožnov pod Radhoštěm
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    Kdyby se sešlo více lidí a nějaká rozumná částka, jsem ochoten to v C++/QT naprogramovat....
    Open/save dialogy z GTK+ jsou nejkřiklavější ukázkou toho nejdebilnějšího software, co vůbec může existovat.
    1.10.2013 02:05 xxxxxxxxxxx | skóre: 13 | blog: rhrtshrth
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    Co radši mrknout na formát *.iges?
    Konqui avatar 1.10.2013 14:44 Konqui | skóre: 18 | blog: Konqui | Rožnov pod Radhoštěm
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    To mi nic moc neříká. A soft, co sám nevyužiju se mi moc dělat nechce
    Open/save dialogy z GTK+ jsou nejkřiklavější ukázkou toho nejdebilnějšího software, co vůbec může existovat.
    1.10.2013 14:55 xxxxxxxxxxx | skóre: 13 | blog: rhrtshrth
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    A co prachy? :-)
    30.9.2013 16:03 Roman Došek | skóre: 17 | blog: flare
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    Což o to, kdyby o to byl zájem, a nějaké připomínky, tak je klidně do toho svojeho programu zakomponuju.
    (For free, ale kdybych pak potřeboval nějaké rady ohledně CADu, tak bych si to vybral.)
    Klidně napiš maila. ;-)
    30.9.2013 17:02 xxxxxxxxxxx | skóre: 13 | blog: rhrtshrth
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    Napsal jsem ti mail. Každopádně rady ohledně CAD máš samo grátis v plném rozsahu. :-)
    29.9.2013 11:31 xxxxxxxxxxx | skóre: 13 | blog: rhrtshrth
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    Jo nechceš poslat poslední verzi ZIMA-CAD-Parts? už umíme zobrazovat verzovací soubory a pracujeme na tom aby jsme dokázali načítat parametres z Pro/E souboru do tabulky. :-)
    29.9.2013 16:39 lertimir | skóre: 64 | blog: Par_slov
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    Zajímalo by mne, co vytýkáte (nevyhovuje) na zálohovacím programu BackupPC? Instalačně je to jeden balik z repozitáře na manožství distribucí.

    Konfigurace se zadefinuje:
    1. Kam zálohovat: typicky specializovaným oddílem mounutým do BacupPC adresáře
    2. koho zálohovat: umí jak linuxové systémy (rsync) tak Windowsí systémy (buď rsyncd z Cygwinu nebo samba sdílení)
    3. vše ostatní se nakliká ve webovém CGI: tedy časově kdy, jaké adresáře(soubory) zahrnout jaké vyloučit (třeba videa z adresáře Download), kdy dělat full a kdy incremental backup
    4. U každého stroje vidím seznam záloh (a automaticky se mi mažou podle profilu (třeba tak že zálohy starší měsíc nechám mazat) a maže to inteligentně, tedy i když full backup je starší než měsíc tak mi zůstane dokud poslední inkrementální, který na něm závisí není smazaný, mohu také specifikovat kolik posledních full backupů držet, i s tím že některé budou staré pro archivní účely) V každé záloze vidím adresářovou strukturu všech uložených souborů i s tím s jakého backupu je tedy jestli z toho konkrétního inkrementálu nebo starší full. Stejně tak u každého souboru vidím všechny verze, které má uloženo s příslušenstvím k jednotlivým backupům
    Vzhledem k tomu, že je to opensource tak je rozběhnutelný i na většinu NASů a mnohé jej mají i jako stáhnutelný instalovatelný balík.

    V případě, že někde mám servřík, který mi stále běží, a není to žádná mohutná organizace, kde bych potřeboval Enterprise řešení, tak BackupPC mi připadá jako z uživatelského hlediska velmi přímočaré jednoduché hezky ovladatelné řešení.
    30.9.2013 08:09 gsnak | skóre: 22 | blog: gsnak
    Rozbalit Rozbalit vše Re: Kdo mi ho dodělá? (objectpascal utilitka)
    - dodělat časovátko aby to kopírovalo v nastavený čas
    Pridaj TTimer (asi zalozka System) na formular, do udalosti OnTimer pridaj
      if now > datum_kedy_sa_to_ma_spustit then
      try
        timer1.Enabled := false;
    
        ...samotny kod...
        datum_kedy_sa_to_ma_spustit := dalsi_datum;
      finally
        timer1.Enabled := true;
      end;
    Pripadne ak chces aby sa to spustalo napr. kazdych 5 minut tak nastav Interval toho timeru na 300000 (to je 300s) a ten kod daj priamo do toho.
    - mazat adresáře starší než nastavený počet dní

    Listuj adresare cez TSearchRec (cez FindFirst, FindNext, FindClose) a starsie adresare maz cez DeleteDir. Nevie to mazat prazdne takze musis mazat rekurzivne.
    - mazat adresáře od nejstaršího po dosažení nastavené velikosti adresáře zálohy

    Hod si adresare do listu (alebo string listu, metoda CustomSort), funkcia Sort akceptuje ako parameter triediacu funkciu, vytvor si triediacu funkciu s 2 pointer parametrami ktora bude porovnavat adresare podla datumu. Alebo pouzi rovno datum yyyy-mm-dd-HH-MM-SS-zzz a bude to triedit spravne. Potom len vymazes prvy adresar z toho listu.
    - možnost purgekopírování dat v adresáři – jen poslední verze ProE partů (ukládá soubory jako sestava.asm.1, při změně a uložení to vytvoří nový soubor sestava.asm.2 atd atd a purgekopírování zkopíruje jen ty poslední)

    To iste ako s tym sortovanim len si vytvoris inu sortovaciu funkciu.
    function TriedenieAsmSuborovPodlaPripony(a,b : integer) : integer;
    var fa,fb : string;
        ca,cb : integer;
    begin
      fa := subory[a];
      fb := subory[b];
      if pos('.asm.', fa) then
        ca := StrToIntDef(ExtractFileExt(fa), -1);
      if pos('.asm.', fb) then
        cb := StrToIntDef(ExtractFileExt(fb), -1);
      result := ca - cb;
    end;
    
    - ukládání nastavení do xml nebo cfg souboru. Nyní to používá registry (fuj?)
    Pouzi ini subory, pozor, cesta v atribute Create musi byt uplna!
    uses IniFiles;
    
    with TIniFile.Create(GetEnvironmentVariable('HOME')+PathDelim+'.config'+PathDelim+'nieco.ini') then
    try
      Left := ReadInteger('OKNO', 'Left', 0);
      Top := ReadInteger('OKNO', 'Top', 0);
      b := ReadBool('OKNO', 'B', false);
      s := ReadString('OKNO', 'Meno', '');
      ... zapis cez WriteInteger, WriteString, WriteBool, ...
    finally
      Free;
    end;
    Čo Rys, to vrah!

    Založit nové vláknoNahoru

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.