Das Topic is alt, aber bevor ich ein neues aufmach ^^
Also hab auch die Komponente, die weiter unten genannt ist und sie funzt auch gut.
Nur mit dem IsCabinet komm ich net klar (*ist ein noob*)
| Zitat: |
function IsCabinet(const aFileName: String;
var aCabInfo: TFDICABINETINFO): Boolean; |
das is die Funktion und so ruf ich die auf
| Zitat: |
| TSTCabReader.IsCabinet(regpfad + '\anim.idx',test) |
Dann muss man für das test dingens nen neuen Typ machen (TFDICABINETINFO)
So das steht dann auch in der Hilfe drin
| Zitat: |
type
TFDICABINETINFO = record
cbCabinet: Longint; // Total length of cabinet file
cFolders: USHORT; // Count of folders in cabinet
cFiles: USHORT; // Count of files in cabinet
setID: USHORT; // Cabinet set ID
iCabinet: USHORT; // Cabinet number in set (0 based)
fReserve: WIN_BOOL; // TRUE => RESERVE present in cabinet
hasprev: WIN_BOOL; // TRUE => Cabinet is chained prev
hasnext: WIN_BOOL; // TRUE => Cabinet is chained next
end;
PFDICABINETINFO = ^TFDICABINETINFO;
|
So alles eingefügt, variable noch zugewiesen und dann:
[Error] Updatefm.pas(149): Undeclared identifier: 'USHORT'
[Error] Updatefm.pas(153): Undeclared identifier: 'WIN_BOOL'
So und was mach ich jetzt???
ICh hoff ihr könnt helfen. Hab Delphi7. Aja und aus win_bool boolean zumachen bzw. aus ushort real oder so: das funzt au net