Ich möchte gerne das CAKE2-Paket installieren. Davor muss ich aber einige andere Komponenten installieren, wie DelphiZip/DFUnRar/ActiveAce und RTdUnAce. Bloss das alles will sich nicht installieren lassen. Also habe ich ganz klein angefangen und wollte nur RTdUnAce ans Laufen bekommen aber nichtmal das klappt. Und das habe ich gemacht:
- RTdUnAce entpackt und das Verzeichnis in die Bibliothek eingebunden
- UnAce.dll ins Windows/System32-Verzeichnis kopiert
- Delphi gestartet und dann "Neue Komponente installieren" / "In neues Package"
- dann bestätigt für "kompilieren & installieren"
- dann kommen 100 Fehlermeldungen "Kann der linken Seite nichts zuweisen"
Woher kommt das? Irgendwas findet er doch nicht oder? Hier ein kleiner Code-Schnipsel aus der RTdUnAce.pas:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
| Procedure UnloadAceDll;
begin
if RtdunAce.AceDllHandle<>0 then
FreeLibrary(RtdunAce.AceDllHandle);
RtdunAce.AceDllHandle:=0; <--------------------- der linken seite kann nichts zugewiesen werden
end;
procedure CloseAcefile;
begin
if RtdunAce.unAcehandle<>0 then
AceCloseArchive(RtdunAce.unAcehandle);
RtdunAce.unAcehandle:=0; <--------------------- der linken seite kann nichts zugewiesen werden
end;
Function LoadAceDLL (const dllpath:string) :boolean;
var DlPath:String;
var pt:pchar;
var oldmode:integer;
begin
if RtdunAce.AceDllHandle<>0 then result:=true
else begin
if (dllpath[length(dllpath)]<>'\') then dlpath:=dllpath+'\'
else dlpath:=dllpath;
pt:=pchar(dlpath+'unace.dll');
oldmode:=SetErrorMode($8001);
RtdunAce.AceDllHandle:=LoadLibrary(pt); <--------------------- der linken seite kann nichts zugewiesen werden
SetErrorMode(oldmode);
if RtdunAce.AceDllHandle<>0 then begin
[...] |
Ich wäre für jede Hilfe sehr dankbar, denn ich sitze nun schon seit Tagen an dieser CAKE2 Installation.
