Forum: Sonstige Fragen zu Delphi
Delphi
by xZise,
20. Dez 2008
So ich habe es mir jetzt nochmal angeschaut, und naja es funktioniert nicht :D Woran es genau liegt weiß ich nicht.
So sieht meine Testroutine aus:
procedure TForm1.Button1Click(Sender: TObject);
var
outdir : string;
var
dictionary:integer;
inStream:TBufferedFS;
outStream:TBufferedFS;
Forum: Sonstige Fragen zu Delphi
Delphi
by xZise,
12. Mär 2008
Hi,
ich denke du kannst was mit dem Code anfangen, aber ich blicke da nicht irgendwie da so richtig durch.
Was macht z.B. TStreamReader? Im Endeffekt sieht es so aus, als würde sie... TStream imitieren ... oder nicht?
Und warum nicht TStream nehmen?
War wohl ein Fehler zu vermuten, dass OpenSource Systeme eher implementiert werden...
Zu 7zipVCL, sollte wirklich jemand das benutzten und...
Forum: Sonstige Fragen zu Delphi
Delphi
by xZise,
2. Mär 2008
Hmmm... Nicht gerade einfach der Code ^^
Zu der 7zVCL Komponente:
Wenn ich das wie oben mache und nur den Dateinamen setzte, dann funktionierts immer noch nicht, weil i <> 0 ist :(
Warum muss man das auch so benutzerunfreundlich machen.
updateOpenCallback := TMyArchiveOpenCallback.Create( self );
i := inA.Open( ms, nil, updateOpenCallback );
if i <> 0 then begin
Forum: Sonstige Fragen zu Delphi
Delphi
by xZise,
2. Mär 2008
Hi Michael und Manuel,
ich habe mir mal den Universal Updater angeschaut, und habe mir dort den Code angesehen:
Zip.ExtrBaseDir := Pfad;
Zip.AddRootDir :='c:\';
Zip.SZFileName := inttostr(LatestVersion) + '.7z';
Zip.Extract();
Da die Komponente installiert war, fehlen natürlich die Initalisierungssachen.
Aber aufgrund dessen ist mir aufgefallen, dass "SZFileName" ja ein Dateiname und nicht...
Forum: Sonstige Fragen zu Delphi
Delphi
by xZise,
2. Mär 2008
Naja, ich habe mir mal die Demo angesehen, und irgendwie ist diese Komponente so arg statisch!
Und zwar, wenn man ein Archiv öffnen möchte, muss man auf "List Archive" klicken. Diese ruft aber wiederrum ".List" auf, welche wiederrum einen OpenDialog anzeigt?!
Und mithilfe von ".List" wird das Ereigniss "ListProgress" oder so aufgrufen, wo dann endlich die FileIndexes stehen, welche ich dann...
Forum: Sonstige Fragen zu Delphi
Delphi
by xZise,
26. Feb 2008
Also darin steht genau die Datei die ich entpacken möchte.
Nun habe ich den Code debuggt, und komme da an diese Stelle:
function TSevenZip.Extract( TestArchive:Boolean=False ): Integer;
var
updateCallback: TMyArchiveExtractCallback;
updateOpenCallback: TmyArchiveOpenCallback;
ms: TMyStreamReader;
filesDW: array of DWORD;
Filestoex,w: DWORD;
i,j,n: Integer;
Forum: Sonstige Fragen zu Delphi
Delphi
by xZise,
26. Feb 2008
Hi mimi
Naja: Ich habe den Wert des Ausdrucks kopiert und im Windows Explorer kopiert, welcher das öffnen konnte.
MfG
xZise
Forum: Sonstige Fragen zu Delphi
Delphi
by xZise,
26. Feb 2008
Also ich habe mich mal dran versucht, und bin dran gescheitert :(
Und zwar habe ich folgendes Problem:
sevenZip := TSevenZip.Create(self);
try
sevenZip.SFXCreate := False;
sevenZip.SFXModule := '7z.sfx';
sevenZip.AddOptions := ;
sevenZip.ExtractOptions := ;
sevenZip.LZMACompressType := LZMA;