XProfan

Italia

Jac
de
Lad

Hallo. Hier noch eine Unit, die mit der DLL circa 200 Archivtypen erkennen kann. Aiuto lesen!

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

08.11.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Rolf
Koch

Hätte es gern getestet, bin aber immer ehrlich gesagt zu faul mir die Arbeit zu machen eine Test.prf zu erstellen. Ich bin dafür, wenn man PCUs veröffentlicht, wenigstens einen
ganz kurzen Code beizlegen

08.11.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jojo Rolf hast schon recht, zum Glück hatter aber ne .def dabei - da sieht man schön: Ein Aufruf, eine Funktion, ein Parameter.

08.11.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Rolf
Koch

Weis ich. ;) - bin zu faul heute *looool*

08.11.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Nicht daß ich mich jetzt mit pcus besonders auskenne... Im Gegenteil - ich hab eigentlich noch nie welche benutzt. Aber das hat mich jetzt neugierig gemacht.
Kompilieren Markieren Separieren

 $U D:incFileInfoFileInfo.pcu = FI_
Var hDll&=UseDll(D:incFileInfo\dpinfo95.dll)
Print FI_FILETYPE(Par$(0))
FreeDll hDll&
WaitInput

/pre>

Das funktioniert jedenfalls nicht. Es kommt eine Meldung Fehler in ....pcu

Error.jpg	13 kB

Hochgeladen:	09.11.2007

Downloadcounter:
		Download

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

09.11.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jac
de
Lad

OK, ich kümmer mich rum...

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

09.11.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jac
de
Lad

Büdde. Geht jetzt. Usedll ist nicht nötig.

Hier noch ein Link auf die Homepage des DLL-Erstellers: [...]

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

09.11.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Ok, mal testen. Du solltest aber das dazuschreiben, b.z.w. den Titel ändern:

Der Hersteller

DPINFO95 erkennt 218 Archive

Ist schon ein ziemlicher Unterschied.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

09.11.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jac
de
Lad

Hm, ok. Aber ist bmf ein Archiv??? Meiner Ansicht nach isses ein Bild...

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

09.11.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Wahrscheinlich, weil es ein komprimiertes Bild ist. jpg ist ja auch dabei.
Es corre aber immernoch nicht.

Error.jpg	12 kB

Hochgeladen:	09.11.2007

Downloadcounter:
		Download

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

09.11.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jac
de
Lad

Grummel.

Ich seh was ich tun kann. Bei mir hats komischerweise funktioniert...hab sicher nur die alte File reingepackt. Heute abend gibts Abhilfe.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

09.11.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Damit es dann noch besser geht ist hier noch eine PH-File, mit der man die Typen auch gleich als Texte ermitteln kann:

FileInfo.ph
Kompilieren Markieren Separieren

ArchivTypen = ARC|ZIP|ZOO|LZH|DWC|MDCD|LBR|ARJ|HYP|UC2|HAP|HA|HPack|SQZ (Squeeze It)|RAR|PAK|ARC+|LIM|BSN/BSA (PTS-DOS)|PUT|SQWEZ|Crush/ZIP|Crush/ARJ|Crush/LZH|Crush/ZOO|Crush/HA|LZExe|PKLite|Diet|TinyProg|GIF|JPG (JFIF)|JPG (HSI)|AIN|AINEXE|SAR|BS2/BSArc|GZIP/Comp 4.3|ACB|MAR|CPShrink|JRC|JArcs|Quantum|ReSOF|Crush/ungepackt|ARX|UCEXE|WWPack|QuArk|YAC|X1|Codec|AMGC|NuLIB|PAKLeo|TGZ|WWPack-Datendatei|ChArc|PSA|ZAR|LHARK|CrossePAC|Freeze|KBoom|NSQ|DPA|TTComp|WIC (Fake-ARCHIVER!!!!!!!!!)|RKive|JAR|ESP|ZPack|DRY|OWS (Fake-ARCHIVER!!!!!!!!!)|SKY|ARI|UFA|Microsoft CAB|FOXSQZ|AR7|TSComp|PPMZ|MS Compress|MP3 (Marco Czudej)|ZET|XPack-Data|XPack-Diskimage|ARQ|ACE|Squash|Terse|XPack Single Data|Stuffit (Mac)|PUCrunch|BZip|UHarc|ABComp|CMP (André Olejko)|BZip2|LZOP|szip (M. Schindler from 1.10)|Splint|TAR|InstallShield|CARComp|LZS|BOA|InstallShield Z|ARG|Gather|Pack Magic|BTS|ELI|QFC|PRO-PACK|MSXiE|RAX|777|LZS221|HPA|Arhangel|EXP1|IMP|BMF|NRV|PAK (D. Dvoinikov)|Squish (Mike Albert)|Par|HIT (Bogdan Ureche)|SBX|NSK|Disintegrator|ASD (T. Svensson)|InstallShield CAB|TOP4|BatComp (4DOS)|BlakHole|BIX (Igor Pavlov)|ChiefLZA|Blink (D.T.S.)|CAR (MylesHi!)|SARJ|Compack Sfx|LogiTech Compress|ARS-SFX|AktType|Flash|PC/3270|NPack|PFT|XTreme|SemOne|Akt32|InstallIt|PPMD|Swag|FIZ|BA (M. Lundqvist)|BeckerTools Exe Extractor|RK (successor of RKIVE)|Redhat RPM-Dateien|Deepfreezer|ZZip (Damien Debin)|XPA32 (Jauming Tseng).|DC (Edgar Binder)|AiType|YbsType|TpcType|Ai32Type|SBCTYPE|DitType|EPCType|VSAType|PDZ|Package for the Web|Nullsoft Installer|Wise Installer|DZip (N.Pflug)|7ZIP|ReDuq|aPackage|WinImage|GCA|PPMN (Max Smirnov)|SAPCAR|SQXType|Compressia (Yaakov Gringeler)|UHBC 1.0|PKZIP BZ|Resource 2.6x |WINHKI|Deepfreezer v2|Debian DEP|BGA|PurePack|NOA32|PAQAR|WINUDA|LFB|ZLIB|UCL|BriefLZ|SPL32|Aplib|MSI|FilePacker|ALZ|PMA|PMASFX|PAQ7|CHM|KGB Archiver|UDA||||||||||||||||||||||||||||||||||||PAQ8|Miliki Super Compressor Pro|Inno Setup (tested with 2.019, 3.0x, 4.x and 5.x)|NEWZIP Crypted ZIPfile (NEWZIP version 1.8b4 and higher)|unbekannt|Datei nicht gefunden;

Testprogramm
Kompilieren Markieren Separieren

 $H FileInfo.ph
 $U FileInfo.pcu
Randomize
Declare Typ%

WhileLoop 10

    Typ% = Rnd(254) + 1
    Print Typ%,=,SubStr$(~ArchivTypen,Typ%,|)

Wend

Typ% = fileinfo(Par$(0))
Case Typ% > 0:Print Par$(0)+:  + SubStr$(~ArchivTypen,Typ%,|)
nput