Rar Dll

[1234567890987654321]

Das mit dem Code-Tag habe ich aber nicht verstanden, wo muss das hin.
Und jetzt an alle:
Entschuldigung wegen dem push

[mkinzler]

Was ist daran so schwer zu vwestehen einen passenden Tag zu verwenden: für Delphi/Pascal-Code den Delphi-Tag, für SQL.Code den SQL.Tag, für C-Code den C-Tag usw.

[1234567890987654321]

Achso, ich dachte ihr meint das "Codische", und nicht das Optische.
Aber was ist denn jetzt mit den @?

[omata]

Habe mal des weiter oben angegebene Demo nach Lazarus übersetzt.

Da das Beispiel niemanden interessiert -> entfernt.

[himitsu]

krass, ich glaub ich hatte mein Lazarus gerade zum ersten mal dieses Jahr wieder verwendet :stupid:

joar, im objfpc-Mode hat Lazarus, bzw. der FPC irgendein (krankes) Problem mit Funktionszeigern (den ganzen hier benötigten @-Geschichten) ... kein Wunder daß der Code, für mich als Delphianer irgendwie korrekt aussah und eigentlich funktionieren hätte müssen.

tausch mal das

Delphi-Quellcode:

{$mode objfpc}{$H+}

gegen

Delphi-Quellcode:

{$mode delphi}

.
(mit der delphikompatiblen Syntax scheint es jedenfalls zu funktionieren)

ansonsten ... nja, k.A. wie man solche Sachen sonst in der "normalen" FPC-Syntax angeben muß ... entweder kann/kennt FPC sowas nicht oder die haben irgendeine andere (kranke) Syntax dafür.


[edit]
mode objfpc GetProcAddress lieferte z.B. Folgendes:
http://www.lazarusforum.de/viewtopic.php?f=55&t=3292
hier ist auch ein Beispiel mit enthalten http://wiki.lazarus.freepascal.org/Hardware_Access/de

PS: im Lazarus-Wiki/-Forum findet man zu solchen lazarus-, bzw. fpc-spezifischen Problemem bestimmt öfters mal eine Lösung :wink:

[edit2]

Delphi-Quellcode:

function RARDllGetVersion: integer;
begin
  if @RARGetDllVersion = nil then
    Result:= 0;
  else
    Result := RARGetDllVersion()
  // der (leere) Parameter "()" markiert es als Funktionsaufruf
  // sowas muß z.B. auch in den meißten C-#hnlichen Sprachen
  // gemacht werden, wobei "Delphi" soetwas aber automatisch erkennt
end;

function UnrarDllLoad(const dllfilename : string) : Boolean;
begin
  Result := False;
  UnrarDllHandle := LoadLibrary(PChar(dllfilename));
  if UnrarDllHandle <> 0 then
  begin
    RAROpenArchive   := TRAROpenArchive  (GetProcAddress(UnrarDllHandle, 'RAROpenArchive'));
    RAROpenArchiveEx := TRAROpenARchiveEx(GetProcAddress(UnrarDllHandle, 'RAROpenArchiveEx'));
    RARCloseArchive  := TRARCloseArchive (GetProcAddress(UnrarDllHandle, 'RARCloseArchive'));
    RARReadHeader    := TRARReadHeader   (GetProcAddress(UnrarDllHandle, 'RARReadHeader'));
    RARReadHeaderEx  := TRARReadHeaderEx (GetProcAddress(UnrarDllHandle, 'RARReadHeaderEx'));
    RARProcessFile   := TRARProcessFile  (GetProcAddress(UnrarDllHandle, 'RARProcessFile'));
    RARSetCallback   := TRARSetCallback  (GetProcAddress(UnrarDllHandle, 'RARSetCallback'));
    RARSetPassword   := TRARSetPassword  (GetProcAddress(UnrarDllHandle, 'RARSetPassword'));
    RARGetDllVersion := TRARGetDllVersion(GetProcAddress(UnrarDllHandle, 'RARGetDllVersion'));
    if (@RAROpenArchive = nil) or (@RARCloseArchive = nil) or
       (@RARReadHeader = nil) or (@RARProcessFile = nil) or
       (@RARSetPassword = nil) or (@RARSetCallback = nil) or
       (@RAROpenArchiveEx = nil) or (@RARReadHeaderEx = nil) then
      FreeLibrary(UnrarDllHandle)
    else
      Result := True;
  end;
end;

einen leeren Try-Except-Block macht man einfach nicht :warn:
entweder man behandelt einen Fehler oder man läßt ihn zu.
Fehler einfach so zu unterdrücken gibt's nicht, denn so bekommt man ja nie mit, ob und warum etwas "nicht" passiert.

Und Assigned kann auch manchmal nett sein:

Delphi-Quellcode:

function RARDllGetVersion: integer;
begin
  if Assigned(RARGetDllVersion) then
    Result := RARGetDllVersion()
  else
    Result:= 0;
end;

function UnrarDllLoad(const dllfilename : string) : Boolean;
begin
    ...
    if Assigned(RAROpenArchive)   and Assigned(RARCloseArchive) and
       Assigned(RARReadHeader)    and Assigned(RARProcessFile)  and
       Assigned(RARSetPassword)   and Assigned(RARSetCallback)  and
       Assigned(RAROpenArchiveEx) and Assigned(RARReadHeaderEx) then
      Result := True
    else
      FreeLibrary(UnrarDllHandle);
  end;
end;

[1234567890987654321]

Danke:-d:-d:-d:-d:-d

[Mithrandir]

Zitat:

Zitat von himitsu (Beitrag 1035616)

[...] (krankes) Problem mit Funktionszeigern [...] die haben irgendeine andere (kranke) Syntax dafür.

Ich würde den Freepascal-Compiler nicht unbedingt als "krank" bezeichnen. Delphianer haben sich nur daran gewöhnt, Dinge nicht explizit (de-)referenzieren zu müssen. Im Großen und Ganzen kann FPC viele Dinge, die auch Delphi kann.

Er verzeiht nur nicht soviel. ;)

Aber ja, wenn man von Delphi kommt, sind viele Dinge erstmal nervig. Auf der anderen Seite macht man sich dann auch endlich mal Gedanken um seinen Code. ;)

[himitsu]

Also das ist schon etwas nervig ...

Delphi-Quellcode:

RAROpenArchive := GetProcAddress(UnrarDllHandle, 'RAROpenArchive');

wer soll denn bei solchen Fehlermeldungen ....

Zitat:

unit1.pas(168,14) Error: Incompatible types: got "<procedure variable type of function:LongInt;StdCall>" expected "LongInt"
unit1.pas(183,7) Error: Can't assign values to an address

auf sowas kommen?

Delphi-Quellcode:

RAROpenArchive := TRAROpenArchive(GetProcAddress(UnrarDllHandle, 'RAROpenArchive'));

Aber OK, hatte es ja auch nicht so "böse" gemeint. :angel:

[Mithrandir]

Ja, darüber bin ich damals natürlich auch gestolpert. Ist schon nervig, aber wenn mans weiß - na ja, man kann damit leben.

[1234567890987654321]

Danke, Omata
Nur, wenn ich z.B. ein Falsches Passwort eingebe,
dann kommt keine Fehlermeldung, aber es funktioniert auch nicht wie kann ich eine Fehlermeldung erscheinen lassen?