Guten morgen,
Ich würde gerne mein Programm eine .rar Datei entpacken lassen.
Habe dazu auch schon
dieses,
und
dieses
Touturial gefunden.
Wollte die
Dll am Anfang erst mal statisch einbinden.
Aber wenn ich diesen Code anwende:
Delphi-Quellcode:
function RAROpenArchive(ArchiveData: PRAROpenArchiveData): THandle; stdcall;
external 'C:\urar.dll';
function RARProcessFile(hArcData: THandle; Operation: Integer; DestPath: PChar;
DestName: PChar): Integer; stdcall;
external 'C:\unrar.dll';
procedure TForm1.Button1Click(Sender: TObject);
begin
h:=RAROpenArchive('c:\b.rar');
RARProcessFile(h,RAR_EXTRACT,nil,nil);
end;
Kommt bei der Zeile:
function RAROpenArchive(ArchiveData: PRAROpenArchiveData):
der Fehler
unit1.pas(31,57) Error: Identifier not found "PRAROpenArchiveData"
ud hier:
RARProcessFile(h,RAR_EXTRACT,nil,nil);,
dass: unit1.pas(43,31) Error: Identifier not found "RAR_EXTRACT"
Hier einmal alle Fehlermeldungen(jetzt sind auch Bemerkungen dabei)
unit1.pas(31,57) Error: Identifier not found "PRAROpenArchiveData"
unit1.pas(42,31) Error: Incompatible type for arg no. 1: Got "Constant String", expected "<erroneous type>"
unit1.pas(31,10) Hint: Found declaration: RAROpenArchive(<erroneous type>)
Word; StdCall;
unit1.pas(43,31) Error: Identifier not found "RAR_EXTRACT"
unit1.pas(51) Fatal: There were 3 errors compiling module, stopping
Kann mir jemand helfen, bzw. ein klleines Stückchen Code geben?
Danke schonmal für eure Antworten