Doch, die demo nehme ich als grundlage ich habe es mir soweit ich konnte umgeschrieben.
Weil was bringt es mir eine datei zu splitten, wenn sie, wenn ich sie unsplitte, die dateiendung XXX hat.
Deswegen wollte ich die dateiendung abschneiden, in die dateischreiben (in die dateischreiben klappt), dann beim unsplitten auslesen und an die datei hängen.
So lese ich es aus:
Delphi-Quellcode:
FileName := OpenDialog.FileName;
AssignFile(Datei, FileName);
Reset(Datei);
try
ReadLn(Datei, MyString);
Label4.Caption := copy(MyString, 0, 3);
Ex := copy(MyString, 0, 3);
FileSplitter.CustomExt := Ex;
finally
CloseFile(Datei);
end;
bla := Ex;
FileSplitter.CustomExt := bla;
FileSplitter.UnSplit;
ShowMessage('Done unsplitting!');
end;
Nur da gibts ein problem in der
unit filesplitter
Delphi-Quellcode:
type
TSignature = record
ExeName: String; // String, weil mit Array ist unkompatibel
Copyright: array [1..34] of Char;
NumberOfFiles: Word;
end;
Delphi-Quellcode:
// ..
Signature.ExeName := CustomExt; // Problem !!!, es wird "nix" hineingeschrieben, also leer
Signature.Copyright := 'Copyright';
Signature.NumberOfFiles := 0;